DeathmasterOfHell
Messages postés1Date d'inscriptionsamedi 12 avril 2003StatutMembreDernière intervention 8 octobre 2003 8 oct. 2003 à 15:18
je sais pas si c est une erreur dans le code,
mais il manque un petit bout de code dans la partie ExportToHtml,
au debut je croyais que c etait moi qui avait déconné dans l install , mais apres regardé de plus pret on constate qu il n enregistre pas le fichier,
pour cela il faut rajouter (la meme ligne que l on retrouve pour le csv :D)
avant le end; de la procedure
strs.SaveToFile(FileName);
strs.Free;
(enfin c etait peu etre fait expres :)
nan peche bon boulot (clap clap)
cs_VUX
Messages postés27Date d'inscriptionmercredi 18 avril 2001StatutMembreDernière intervention25 juillet 2002 23 juil. 2002 à 11:50
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;
cs_VUX
Messages postés27Date d'inscriptionmercredi 18 avril 2001StatutMembreDernière intervention25 juillet 2002 23 juil. 2002 à 08:29
Oui c vrai je le ferais très vite
cs_greg505
Messages postés12Date d'inscriptionmercredi 8 mai 2002StatutMembreDernière intervention24 mai 2006 22 juil. 2002 à 17:13
terrible ! c ce que je cherchais mais le probleme c qu'on ne pe pas importer depuis 1 CSV :( .... c juste ce qui mank.
8 oct. 2003 à 15:18
mais il manque un petit bout de code dans la partie ExportToHtml,
au debut je croyais que c etait moi qui avait déconné dans l install , mais apres regardé de plus pret on constate qu il n enregistre pas le fichier,
pour cela il faut rajouter (la meme ligne que l on retrouve pour le csv :D)
avant le end; de la procedure
strs.SaveToFile(FileName);
strs.Free;
(enfin c etait peu etre fait expres :)
nan peche bon boulot (clap clap)
23 juil. 2002 à 11:50
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;
23 juil. 2002 à 08:29
22 juil. 2002 à 17:13