Datei in StringGrid laden

[Sharky]

Hai Xenar,

so geht es bei mir ohne Fehler:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  datei : TextFile;
  x,y : Integer;
begin
  if (OpenDialog1.Execute) then
  begin
    Assignfile(Datei, OpenDialog1.Filename);
    Reset(Datei);
    for X := 0 to 6 do
      begin
        for Y := 1 to 200 do
          begin
            ReadLn(Datei,zeile);
            stringgrid1.Cells[X, Y] := zeile;
          end;
      end;
    CloseFile(Datei);
  end;
end;