Warum denn so aufwendig?
Das Prinzip ist einfach (in Luckie's Source auch schon angedeutet): Speichern, wie viele mal wie viele Zeilen/Spalten es gibt. Durchlaufen lassen schreiben. Fertig.
Ich würde das dann so machen:
Delphi-Quellcode:
var
i, j: integer;
tf: TextFile;
begin
AssignFile(tf, 'C:\EineDatei.grd');
ReWrite(tf);
writeln(IntToStr(StringGrid1.colCount));
writeln(IntToStr(StringGrid1.rowCount));
for i:=0 to StringGrid1.colCount do begin
for j:=0 to StringGrid1.rowCount do begin
writeln(StringGrid1.Cells[i,j]);
end;
end;
CloseFile(tf);
end;
Das waret schon mit schreiben. Lesen funktioniert ähnlich.
Allerdings frage ich mich, was Herr unbekannt da gemacht, dass er soviel Source hat. Weil eigentlich braucht man "ColHeight" da nicht wirklich (ist, denke ich mal, in euren Programmen immer eindeutig).
Chris