mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-04 18:18:20 +02:00
lazutils: fix comment from r52480 #b13ba1b0b9
git-svn-id: trunk@52486 -
This commit is contained in:
parent
0357266afc
commit
47df5bbcc5
@ -371,7 +371,7 @@ begin
|
||||
//Use Widestring Api so it works on WinCE as well
|
||||
GLI := GetLocaleInfoW(aLocaleID, aLCType, Buf, Length(Buf)); // GLI is char count with the ending #0 char
|
||||
if GLI > 2 then
|
||||
begin // more than 2 chars -> try to find first non-space character
|
||||
begin // more than 1 char -> try to find first non-space character
|
||||
for I := 0 to GLI-2 do
|
||||
begin
|
||||
WRes := Buf[I];
|
||||
|
Loading…
Reference in New Issue
Block a user