StringGrid et Fichier text pour lire

Signaler
Messages postés
83
Date d'inscription
lundi 5 mai 2003
Statut
Membre
Dernière intervention
9 décembre 2010
-
Messages postés
83
Date d'inscription
lundi 5 mai 2003
Statut
Membre
Dernière intervention
9 décembre 2010
-
oubadj
Salut tout le mande
Je veux savoir comment j’ ouvrir le contenue d’un fichier texte dans un TstringGrid Ling par ling. Comme avec le memo , j’ai essaie ce source mais j’ai pas arriver
A voire le texte de fichier merci d’avance.
procedure TForm1.Button1Click(Sender: TObject);
var
c, r : integer;
F:textfile;
lig:string;
begin
if opendialog1.execute then
assignfile(F,opendialog1.filename);
reset(F);
with StringGrid1 do
begin
// entêtes
for c := 0 to ColCount-1 do
Cells[c,0] := 'Col ' + IntToStr(c);
// données
for r := 1 to RowCount-1 do
begin
Cells[0,r] := IntToStr(r);
for c := 1 to ColCount-1 do
while not eof(F) do
begin
readln(F,lig);
Cells[c,r] := lig;

end;

end;
end;
closefile(F);
end;

merçi.
i

1 réponse

Messages postés
83
Date d'inscription
lundi 5 mai 2003
Statut
Membre
Dernière intervention
9 décembre 2010

oubadji
merci
j ai trove la souletion.