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

* change make TBinaryObjectWriter.WriteStr public mantis #22973

Browse Source 
Delphi seems to use .writestr also for shortstring only, so the 
   function is the same.

git-svn-id: trunk@22556 -
This commit is contained in:
marco 2012-10-06 10:06:55 +00:00
parent 11ea2561b9
commit 5d42d3a53c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/classes/classesh.inc
View File

@ -1368,7 +1368,6 @@ type
{$endif} {$endif}
procedure FlushBuffer; procedure FlushBuffer;
procedure WriteValue(Value: TValueType); procedure WriteValue(Value: TValueType);
procedure WriteStr(const Value: String);
public public
constructor Create(Stream: TStream; BufSize: Integer); constructor Create(Stream: TStream; BufSize: Integer);
destructor Destroy; override; destructor Destroy; override;
@ -1396,6 +1395,7 @@ type
procedure WriteUInt64(Value: QWord); override; procedure WriteUInt64(Value: QWord); override;
procedure WriteMethodName(const Name: String); override; procedure WriteMethodName(const Name: String); override;
procedure WriteSet(Value: LongInt; SetType: Pointer); override; procedure WriteSet(Value: LongInt; SetType: Pointer); override;
procedure WriteStr(const Value: String);
procedure WriteString(const Value: String); override; procedure WriteString(const Value: String); override;
procedure WriteWideString(const Value: WideString); override; procedure WriteWideString(const Value: WideString); override;
procedure WriteUnicodeString(const Value: UnicodeString); override; procedure WriteUnicodeString(const Value: UnicodeString); override;