Textdatei beim laden RICHTIG anzeigen

[marabu]

Hi,

es muss kein "zweites StringGrid" sein - es genügt eine StringList. Und wenn du beim Speichern statt der Leerstelle ein Komma verwendest, dann kannst du die Zellen auch nach folgendem Prinzip laden:

Delphi-Quellcode:

procedure LoadGrid(grid: TStringGrid; fn: TFileName);
var
  iRow: Integer;
  sl: TStringList;
begin
  sl := TStringList.Create;
  sl.LoadFromFile(fn);
  grid.RowCount := sl.Count;
  for iRow := 0 to Pred(sl.Count) do
  begin
    if iRow = 0 then
      with TStringList.Create do
      begin
        CommaText := sl[iRow];
        grid.ColCount := Count;
        Free;
      end;
    grid.Rows[iRow].CommaText := sl[iRow];
  end;
  sl.Free;
end;

Grüße vom marabu