Hello!
Please give me solution to add the option of recto and verso to simplegraph.
procedure SaveMutipleGraphs(const FileName: String; Graphs: array of TSimpleGraph);
var
Stream: TFileStream;
I: Integer;
begin
Stream := TFileStream.Create(FileName, fmCreate or fmShareExclusive);
try
for I := Low(Graphs) to High(Graphs) do
Graphs[I].SaveToStream(Stream);
finally
Stream.Free;
end;
end;
procedure LoadMutipleGraphs(const FileName: String; Graphs: array of TSimpleGraph);
var
Stream: TFileStream;
I: Integer;
begin
Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
try
for I := Low(Graphs) to High(Graphs) do
Graphs[I].LoadFromStream(Stream);
finally
Stream.Free;
end;
end;
procedure TMainForm.btnSaveClick(Sender: TObject);
begin
SaveMutipleGraphs('C:\TEST.MG', [SimpleGraph1, SimpleGraph2]);
end;
procedure TMainForm.btnLoadClick(Sender: TObject);
begin
LoadMutipleGraphs('C:\TEST.MG', [SimpleGraph1, SimpleGraph2]);
end;
Return to DELPHI AREA Projects
Users browsing this forum: No registered users and 2 guests