БОЛЬШОЙ FAQ ПО DELPHI



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;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ