paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 14:19:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fix compilation with FPC 2.5.1. Issue #18695

Browse Source 
git-svn-id: trunk@29385 -
This commit is contained in:
ask 2011-02-05 09:47:01 +00:00
parent 4f8d7a9757
commit 4f3c1f45bb
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/tachart/tagraph.pas
View File

@ -402,14 +402,15 @@ end;
function TChart.Clone: TChart; function TChart.Clone: TChart;
var var
ms: TMemoryStream; ms: TMemoryStream;
cloned: TComponent = nil;
begin begin
Result := nil;
ms := TMemoryStream.Create; ms := TMemoryStream.Create;
try try
WriteComponentToStream(ms, Self); WriteComponentToStream(ms, Self);
ms.Seek(0, soBeginning); ms.Seek(0, soBeginning);
ReadComponentFromBinaryStream( ReadComponentFromBinaryStream(
ms, Result, @FindComponentClass, Owner, Parent, Owner); ms, cloned, @FindComponentClass, Owner, Parent, Owner);
Result := cloned as TChart;
finally finally
ms.Free; ms.Free;
end; end;