Hallo, frohes neues noch!
Es ist wieder soweit ich komme einfach nicht weiter
und wende mich deshalb an Euch!
Ich habe eine Textdatei gespeichert (Stringgrid 4 x 4 Zellen) die wie unten aussieht.
1 2 3 4
5 6 7 8
9 10 11 12
13 14 15 16
Ich möchte diese Datei laden und habe dazu folgenden Quelltext
zum lesen der Textdatei geschrieben.
Delphi-Quellcode:
var zeile:string;
begin
if opendialog1.execute then begin
datname:=opendialog1.filename;
assignfile(f,Datname);
reset(f);
while not eof(f) do begin
readln(f,zeile);
stringgrid1.cells[0,0] :=zeile; setzt komplette Zeile in diese Zelle, das möchte ich aber nicht!!
readln(f,zeile);
stringgrid1.cells[0,1] :=zeile;
readln(f,zeile);
stringgrid1.cells[0,2] :=zeile;
readln(f,zeile);
stringgrid1.cells[0,3] :=zeile;
end;
closefile(f);
end;
Ich weiss aber nicht wie man es hin bekommt
das jeder Wert wieder in seiner Zelle angezeigt wird!
Ich dachte so irgendwie:
grid1.cells[0,0] + grid1.cells[1,0] grid1.cells[2,0] + grid1.cells[3,0] :=zeile;