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

+ Ansistring write now gets pointer.

Browse Source
This commit is contained in:
michael 1998-09-29 08:39:07 +00:00
parent 7b19196a21
commit c04585305f
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/inc/text.inc
View File

@ -480,18 +480,15 @@ Begin
End; End;
{$ifdef UseAnsiStrings} {$ifdef UseAnsiStrings}
Procedure Write_Text_AnsiString (Len : Longint; Var T : TextRec; Var S : AnsiString);[Public, alias: {$ifdef FPCNAMES}'FPC_'+{$endif}'WRITE_TEXT_ANSISTRING']; Procedure Write_Text_AnsiString (Len : Longint; Var T : TextRec; S : Pointer);[Public, alias: {$ifdef FPCNAMES}'FPC_'+{$endif}'WRITE_TEXT_ANSISTRING'];
{ {
Writes a AnsiString to the Text file T Writes a AnsiString to the Text file T
} }
Var
Temp : Pointer;
begin begin
Temp:=Pointer(S); If S=Nil then
If Temp=Nil then
exit; exit;
Write_pchar (Len,t,PChar(Temp)); Write_pchar (Len,t,PChar(S));
end; end;
{$endif} {$endif}
@ -1242,7 +1239,10 @@ end;
{ {
$Log$ $Log$
Revision 1.29 1998-09-28 14:27:08 michael Revision 1.30 1998-09-29 08:39:07 michael
+ Ansistring write now gets pointer.
Revision 1.29 1998/09/28 14:27:08 michael
+ AnsiStrings update + AnsiStrings update
Revision 1.28 1998/09/24 23:32:24 peter Revision 1.28 1998/09/24 23:32:24 peter