paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 13:20:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL-GTK2: Improve and refactor function Ampersands2Underscore. By Massimo Magnano, merge request !449.

Browse Source
This commit is contained in:
Juha 2025-05-10 15:45:57 +03:00
parent 505f2dc9bd
commit 83c1c08a14
1 changed files with 20 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
lcl/interfaces/gtk2/gtk2proc.inc
View File

@ -9186,28 +9186,32 @@ end;
-------------------------------------------------------------------------------}
function Ampersands2Underscore(const ASource: String): String;
var
n: Integer;
n, len: Integer;
FirstFound: Boolean;
s: String;
begin
//TODO: escape underscores
Result := '';
FirstFound := False;
Result := ASource;
n := 1;
while n <= Length(Result) do
len := Length(ASource);
while n <= len do
begin
if Result[n] = '&' then
begin
if FirstFound
or ( (n < Length(Result)) and (Result[n+1] = '&') ) // got &&
then begin
Delete(Result, n, 1);
if not FirstFound then
Inc(n); // Skip the second & of &&
end
else begin
FirstFound := True;
Result[n] := '_';
end;
case ASource[n] of
'_': Result := Result + '__';
'&': begin
if (n < len) and (ASource[n+1] = '&') then // got &&
begin
Result := Result + '&';
Inc(n); // Skip the second & of &&
end
else if not FirstFound then
begin
Result := Result + '_';
FirstFound := True;
end;
end;
else Result := Result + ASource[n];
end;
Inc(n);
end;