Сохранение формы в run-time

← →
СатирЪ © (2004-07-29 16:42) [0]

Подскажите, пожалуйста, каким методом можно сохранить форму в dfm-файл, на которую в рантайме были установленны компоненты?

← →
Юрий Зотов © (2004-07-29 16:53) [1]

WriteComponentResFile

← →
СатирЪ © (2004-07-29 17:05) [2]

Да, спасибо, уже нашёл.
Только оно сохраняется в бинарном виде.
А как сохранить в текстовом?

← →
Юрий Зотов © (2004-07-29 17:25) [3]

TMemoryStream -> WriteBuffer -> ObjectBinaryToText -> TFileStream

← →
СатирЪ © (2004-07-30 14:36) [4]

var Buffer,Count:integer;
Input:TMemoryStream;
Output:TFileStream;
begin
Input:=TMemoryStream.Create;
Input.WriteBuffer(Buffer,Count);
Output:=TFileStream.Create("test.dfm",$FFFF);
ObjectBinaryToText(Input, Output);
end;

Вопрос на засыпку: всё ли здесь верно и что долно представлять собой Buffer,Count?

Примерно так:

procedure SaveFormToFile(Form: TForm; FileName: string);
var
MS: TMemoryStream;
FS: TFileStream;
begin
MS := TMemoryStream.Create;
try
MS.WriteBuffer(Form, Form.InstanceSize);
MS.Position := 0;
FS := TFileStream.Create(FileName, ...);
try
ObjectBinaryToText(MS, FS)
finally
FS.Free
end
finally
MS.Free
end
end;

Благодарю.

Сохранение формы в run-time Найти похожие ветки