Text aus Textdatei in Stringgrid einfügen (Delphi)

[Popov]

Eigentlich ist in StringGrid alles da, man muss es nur anwenden, d. h. Rows ist bereits TStrings, man kann ihm also eine mit Komma getrennte Zeile direkt zuweisen.

Beispiel: Rows[1] := 'Stein, Thorsten, 40, 90';

Delphi-Quellcode:

var
  i: Integer;
  c3po , r2d2: TStringList;
begin
  with StringGrid1 do
  begin
    c3po := TStringList.Create;
    try
      c3po.Add('Stein, Thorsten, 40, 90');
      c3po.Add('Müller, Max, 14, 10');
      c3po.Add('Musternann, Max, 20, 95');
      c3po.Add('Zweisein, Albert, 34, 140');

      for i := 0 to c3po.Count - 1 do
      begin
        r2d2 := TStringList.Create;
        try
          r2d2.CommaText := ',' + c3po[i]; //das Extrakomma wg. FixedCol := 1
          Rows[i + 1] := r2d2;             //das + 1 wg. FixedRow := 1
        finally
          r2d2.Free;
        end;
      end;
    finally
      c3po.Free;
    end;
  end;
end;