Mega Code Archive
Kontrol bilgilerini okutma ve oluşturma
<![CDATA[
{
Verilen kontrolün bilgilerini aynen okur.
kullanımı:
Memo1.text := ComponentToString(Form1);
}
function ComponentToString(Component: TComponent): string;
var
BinStream:TMemoryStream;
StrStream: TStringStream;
s: string;
begin
BinStream := TMemoryStream.Create;
try
StrStream := TStringStream.Create(s);
try
BinStream.WriteComponent(Component);
BinStream.Seek(0, soFromBeginning);
ObjectBinaryToText(BinStream, StrStream);
StrStream.Seek(0, soFromBeginning);
Result:= StrStream.DataString;
finally
StrStream.Free;
end;
finally
BinStream.Free
end;
end;
//Text olarak verilen kodu kontrol olarak oluşturuyor.
//Bu kodu kullanamadım. hata verdi. kullanabilen olursa mail atarsa sevinirim.
//murat80@msn.com
function StringToComponent(Value: string): TComponent;
var
StrStream:TStringStream;
BinStream: TMemoryStream;
begin
StrStream := TStringStream.Create(Value);
try
BinStream := TMemoryStream.Create;
try
ObjectTextToBinary(StrStream, BinStream);
BinStream.Seek(0, soFromBeginning);
Result := BinStream.ReadComponent(nil);
finally
BinStream.Free;
end;
finally
StrStream.Free;
end;
end;
//yukarıda bulunan kodları delphi'nin yardımında buldum.
]]>