paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-03 15:21:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils, Translations unit: Simplified ModifyFlag method. Now we treat space character as a flag delimiter in all cases, thus improving parsing of flags in case of missing comma characters.

Browse Source 
git-svn-id: trunk@61283 -
This commit is contained in:
maxim 2019-05-23 22:52:31 +00:00
parent a772554251
commit cc4f34a35e
1 changed files with 4 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/lazutils/translations.pas
View File

@ -1761,20 +1761,14 @@ var
i: Integer;
begin
Result := false;
MF := nil;
F := TStringList.Create;
MF := TStringList.Create;
try
F.CommaText := Flags;
if Pos(',', AFlags) = 0 then
ProcessFlag(AFlags)
else
begin
MF := TStringList.Create;
MF.CommaText := AFlags;
for i := 0 to MF.Count - 1 do
ProcessFlag(MF[i]);
end;
MF.CommaText := AFlags;
for i := 0 to MF.Count - 1 do
ProcessFlag(MF[i]);
if not Result then
exit;