COMPOSANT TVUXSTRINGGRID

Commentaire de greg505 le 22/07/2002 17:13:41

terrible ! c ce que je cherchais mais le probleme c qu'on ne pe pas importer depuis 1 CSV :( .... c juste ce qui mank.

Commentaire de VUX le 23/07/2002 11:50:58

Cadeau, voici la méthode à rajouter dans le code pour pouvoir importer depuis un CSV (à ajouter dans le source)

procedure TVUXStringgrid.ImportFromCSV(FileName : string;separator:string = ';';FirstLineFixed:Boolean = False);
{Importe le contenu d' un fichier CSV dans la grille}
var
  strs : TstringList;
  i,j,p : integer;
begin
  strs := TstringList.Create;
  strs.LoadFromFile(FileName);
  RowCount := strs.Count; //MAJ le nombre de lignes de la grille
  ColCount :=1;
  fixedcols := 0;
  if FirstlineFixed then fixedrows := 1 else fixedrows := 0;
  i := 0;
  while i < rowcount do begin
    p := pos(separator,strs[i]);
    j := 0;
    while p > 0 do begin
      cells[j,i] := copy(strs[i],1,p-1);
      if p <= length(strs[i]) then strs[i] := copy(strs[i],p+ length(separator),length(strs[i]));
      p := pos(separator,strs[i]);
      j := j+1;
      if (j>colcount) then colcount := colcount + 1;
    end;
    if length(strs[i]) > 0 then begin //Si il n' y a pas de ; à la fin, mais qu' il reste du texte
      cells[j,i] := strs[i];
      j:=j+1;
      if (j>colcount) then colcount := colcount + 1;
    end;
    i := i +1;
  end;
  strs.Free;
end;