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

* String -> ShortString

Browse Source
This commit is contained in:
Michael VAN CANNEYT 2023-01-06 12:04:11 +01:00 committed by Michaël Van Canneyt
parent e98ef65b6f
commit 3085eac501
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/variant.inc
View File

@ -445,7 +445,7 @@ end;
operator :=(const source : variant) dest : AnsiChar;{$ifdef SYSTEMINLINE}inline;{$endif}
Var
S : String;
S : ShortString;
begin
VariantManager.VarToPStr(S,Source);
If Length(S)>0 then
@ -797,7 +797,7 @@ operator :=(const source : olevariant) dest : longbool;{$ifdef SYSTEMINLINE}inli
{ Chars }
operator :=(const source : olevariant) dest : AnsiChar;{$ifdef SYSTEMINLINE}inline;{$endif}
var
S : String;
S : ShortString;
begin
VariantManager.VarToPStr(S,Source);
If Length(S)>0 then