TStringGrid и файловый поток
Falk0ner, вс, 06/07/2008 - 15:34.
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;
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;
http://delphiworld.narod.ru/ DelphiWorld 6.0
Отправить комментарий