TStringGrid и файловый поток

Previous  Top  Next

    
 

Какое наилучшее решение для сохранения экземпляра TStringGrid (150x10)?

 

Если вы хотите сохранить это на диске:

 

Code:

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;

 

 

©Drkb::01056

http://delphiworld.narod.ru/

DelphiWorld 6.0