mahdy.asia
یک شنبه 25 دی 1390, 11:22 صبح
من در برنامه ام کنترل بار استفاده کردم و چند تا toolbar روی آن گذاشتم که کاربر می تواند visible آند را false یا true کند می خواهم این تغییرات را در یک فایل ذخیره کنم و هر بار که کاربر وارد برنامه می شود برنامه مطابق با آخرین تغییرات لود شود.
برای این کار من در اینترنت جستجو کردم و کدهای زیر رو پیدا کردم اما درست کار نمی کنه
procedure TF_Main.SaveControlBar2Stream(ControlBarName : String ; Con : TControlBar) ;
var
FileStream: TFileStream;
FileWriter: TWriter;
BufferSize: Integer;
begin
try
BufferSize := 1024;
FileStream := TFileStream.Create(ControlBarName,fmCreate);
FileWriter := TWriter.Create(FileStream,BufferSize);
FileWriter.WriteRootComponent(Con);
finally
FileWriter.Free;
FileStream.Free;
end;
end;
procedure TF_Main.LoadControlBar2Stream(ControlBarName : String ; Con : TControlBar) ;
var
FileStream:TFileStream;
FileReader:TReader;
BufferSize:Integer;
Identification:String;
begin
if not fileexists(ControlBarName) then exit;
try
BufferSize := 1024;
FileStream := TFileStream.Create(ControlBarName,fmOpenRead);
FileReader := TReader.Create(FileStream,BufferSize);
FileReader.ReadRootComponent(con);
finally
FileReader.Free;
FileStream.Free;
end;
end;
از راهنمایی شما متشکرم
برای این کار من در اینترنت جستجو کردم و کدهای زیر رو پیدا کردم اما درست کار نمی کنه
procedure TF_Main.SaveControlBar2Stream(ControlBarName : String ; Con : TControlBar) ;
var
FileStream: TFileStream;
FileWriter: TWriter;
BufferSize: Integer;
begin
try
BufferSize := 1024;
FileStream := TFileStream.Create(ControlBarName,fmCreate);
FileWriter := TWriter.Create(FileStream,BufferSize);
FileWriter.WriteRootComponent(Con);
finally
FileWriter.Free;
FileStream.Free;
end;
end;
procedure TF_Main.LoadControlBar2Stream(ControlBarName : String ; Con : TControlBar) ;
var
FileStream:TFileStream;
FileReader:TReader;
BufferSize:Integer;
Identification:String;
begin
if not fileexists(ControlBarName) then exit;
try
BufferSize := 1024;
FileStream := TFileStream.Create(ControlBarName,fmOpenRead);
FileReader := TReader.Create(FileStream,BufferSize);
FileReader.ReadRootComponent(con);
finally
FileReader.Free;
FileStream.Free;
end;
end;
از راهنمایی شما متشکرم