Text ===> Tabelle

[Maa83]

Hi,
ich geb dir hier mal nen Quellcode mit dem du was anfangen kannst
Ist ziemlich schludrig programmiert... sonst hast du ja gar nix zu tun

Code:

procedure TForm1.Button1Click(Sender: TObject);
var dat: TextFile;
    a : String;
    i : Integer;
begin
    assignFile(dat, 'd:\test.txt'); //Damit du nicht immer den ganzen Pfad angeben musst
    Reset(dat); //Öffnet eine vorhandene Datei
    i := 0;
    while not eof(dat) do begin //Solange dateiende nicht erreicht
        readln(dat,a); //einlesen zeile für zeile in var a
        StringGrid1.Cells[i,0] := a; //Zelle i,0 den wert a zuweisen
        inc(i); //i erhöhen
    end;
    CloseFile(dat); //Datei wieder schliessen
end;

hoffe das hilft dir was. Jetzt musst du dir halt noch überlegen wie du das Grid füllen möchtest und die Spalten und Zeilen-Zahl anpassen...

gruß maa