paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 14:29:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: replaced C-style operators

Browse Source 
git-svn-id: trunk@3242 -
This commit is contained in:
lazarus 2002-08-25 13:31:35 +00:00
parent 5b85d49737
commit 6670f3b92c
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/stdctrls.pp
View File

@ -588,20 +588,20 @@ begin
'&' :
If I + 1 <= Length(Str) then begin
If Str[I+1] = '&' then begin
I += 2;
Inc(I,2);
Tmp := Tmp + '&';
end
else begin
If Result < 0 then
Result := Length(Tmp) + 1;
I += 1;
Inc(I,1);
end;
end
else
I += 1;
Inc(I,1);
else begin
Tmp := Tmp + Str[I];
I += 1;
Inc(I,1);
end;
end;
SetLength(Str,0);
@ -631,6 +631,9 @@ end.
{ =============================================================================
$Log$
Revision 1.35 2002/08/25 13:31:35 lazarus
MG: replaced C-style operators
Revision 1.34 2002/08/24 06:51:22 lazarus
MG: from Andrew: style list fixes, autosize for radio/checkbtns