Registriert seit: 7. Jun 2002
Ort: Kirchheim unter Teck
1.036 Beiträge
Delphi 7 Personal
|
10. Dez 2002, 23:03
Und nochmal ne andere Ladelösung:
Delphi-Quellcode:
procedure TForm1.Button6Click(Sender: TObject);
var
i,y,count :integer;
list : TStringlist;
begin
list := TStringlist.Create;
list.LoadFromFile('C:\Strings.txt');
count := -1;
for i:=0 to stringgrid1.colcount-1 do
begin
for y := 0 to stringgrid1.RowCount-1 do
begin
inc(count);
stringgrid1.Cells[i,y]:=list.strings[count];
end;
end;
list.Free;
end;
Roman Keller Krieg ist Gottes Art den Amerikanern Geographie beizubringen!
|