Если вы хотите сохранить это на диске:
var:myStream: TFileStream;beginmyStream1 := TFileStream.Create('grid1.sav', fmCreate);myStream1.WriteComponent(StringGrid1);myStream1.Destroy;end; |
Для обратного чтения:
myStream := TFileStream.Create('grid1.sav', fmOpenRead);StringGrid1 := myStream1.ReadComponent(StringGrid1) as TStringGrid; |
[000468]