paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 23:39:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Simplified TBinaryObjectReader.ReadString

Browse Source 
* TReader.ReadComponent now uses ComponentClass.NewInstance for creating
  a new component instance
This commit is contained in:
sg 2001-07-14 13:19:05 +00:00
parent e23694b03e
commit 08180516a7
1 changed files with 8 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
fcl/inc/reader.inc
View File

@ -200,7 +200,6 @@ end;
function TBinaryObjectReader.ReadString(StringType: TValueType): String;
var
i: Integer;
p: PChar;
begin
case StringType of
vaString:
@ -211,18 +210,9 @@ begin
vaLString:
Read(i, 4);
end;
// SetLength(Result, i);
SetLength(Result, i);
if i > 0 then
begin
// ###
GetMem(p, i + 1);
Read(p^, i);
p[i] := #0;
Result := p;
FreeMem(p);
end else
SetLength(Result, 0);
{ Read(Pointer(@Result[1])^, i);}
Read(Pointer(@Result[1])^, i);
end;
{!!!: function TBinaryObjectReader.ReadWideString: WideString;
@ -720,7 +710,6 @@ begin
if not Assigned(Result) then
begin
NewComponent := TComponent(ComponentClass.NewInstance);
//!!!: NewComponent := TComponentClass(ComponentClass).Create(Owner);
if ffInline in Flags then
NewComponent.FComponentState :=
NewComponent.FComponentState + [csLoading, csInline];
@ -1278,7 +1267,12 @@ end;
{
$Log$
Revision 1.4 2001-03-08 19:32:22 michael
Revision 1.5 2001-07-14 13:19:05 sg
* Simplified TBinaryObjectReader.ReadString
* TReader.ReadComponent now uses ComponentClass.NewInstance for creating
a new component instance
Revision 1.4 2001/03/08 19:32:22 michael
Fixes merged
Revision 1.3 2000/12/21 09:08:09 sg