TStringGrid и файловый поток
|
- Хотел бы я на "винте" столько места, чтобы на него влез двухсот гигабайтный своп-файл!
- Зачем тебе такой большой своп?!!
- Да не нужен мне такой своп! Просто хотелось бы столько места!..
|
Какое наилучшее решение для сохранения экземпляра TStringGrid
(150x10)?
Если вы хотите сохранить это на диске:
var:
myStream: TFileStream;
begin
myStream1 := TFileStream.Create('grid1.sav', fmCreate);
myStream1.WriteComponent(StringGrid1);
myStream1.Destroy;
end;
|
Для обратного чтения:
myStream := TFileStream.Create('grid1.sav', fmOpenRead);
StringGrid1 := myStream1.ReadComponent(StringGrid1) as TStringGrid;
|
|
