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

* String -> AnsiString

Browse Source
This commit is contained in:
Michael VAN CANNEYT 2023-01-06 11:22:53 +01:00 committed by Michaël Van Canneyt
parent 74fdf0692c
commit 32d55bb0ea
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/win/sysdl.inc
View File

@ -59,7 +59,7 @@ begin
MakeLangId(LANG_NEUTRAL, SUBLANG_DEFAULT), MakeLangId(LANG_NEUTRAL, SUBLANG_DEFAULT),
@temp[1], 255,nil); @temp[1], 255,nil);
SetLength(temp,c); SetLength(temp,c);
Result:=String(temp); Result:=AnsiString(temp);
end; end;
const const