Einzelnen Beitrag anzeigen

Benutzerbild von ConnorMcLeod
ConnorMcLeod

Registriert seit: 13. Okt 2010
Ort: Bayern
490 Beiträge
 
Delphi 10.4 Sydney
 
#7

AW: alles auf einmal speichern?

  Alt 9. Nov 2011, 07:09
oder mit Delphi-Boardmitteln: die komplette Form auf einmal speichern. Das Laden ist Hausaufgabe
Delphi-Quellcode:
var
  BinStream: TMemoryStream;
  StrStream: TStringStream;
begin
  BinStream := TMemoryStream.Create;
  try
    StrStream := TStringStream.Create('');
    try
      BinStream.WriteComponent(Form1);
      BinStream.Seek(0, soFromBeginning);
      ObjectBinaryToText(BinStream, StrStream);
      StrStream.Seek(0, soFromBeginning);
      StrStream.SaveToFile('d:\temp\text.txt');
    finally
      StrStream.Free;
    end;
  finally
    BinStream.Free
  end;
end;
Nr.1 Delphi-Tool: [F7]
  Mit Zitat antworten Zitat