Text aus Textdatei in Stringgrid einfügen (Delphi)

[CShepard]

Guten Abend. Ich habe mir gerade angeschaut, wie man in Delphi Daten aus einer Textdatei entnimmt und diese im Programm ausgeben lassen und verwenden kann.

Mich würde nun mal interessieren, wie man mehrere Daten in einer Zeile einliest, welche jeweils mit einem Komma getrennt sind und diese einzeln in jeder Spalte in einer Reihe ausgibt. Dann noch, wie die Zeilensprünge innerhalb der Textdatei, also beim Lesen, erfolgen und diese Zeile in der nächsten Zeile des Stringgrids eingefügt wird.

Nehmen wir als Beispiel eine Personenliste, dabei gibt es zu jeder Person 4 Angaben: Nachname, Vorname, Alter, IQ. Im Anhang ist ein Bild dazu, wie das ganze so ungefähr aussieht. ^^

Könnte mir dazu jemand bitte einen Code zusammenbasteln, der dies möglich macht? :-D

[himitsu]

Es gibt da sehr viele Wege, aber mit etwas suchen und über deine Suchbegriffe hätte man bestimmt auch selber was finden können.

TStringList.CommaText
SplitString
uvm.

[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:

Delphi-Quellcode:

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;

[CShepard]

Vielen Dank euch beiden, ich werde es demnächst mal ausprobieren. :-D Falls ich dann wieder eine Frage habe, melde ich mich hier.