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

Formating

Browse Source 
git-svn-id: trunk@61899 -
This commit is contained in:
martin 2019-09-18 15:49:38 +00:00
parent ad89fb55f9
commit fa3be90f84
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/editormacrolistviewer.pas
View File

@ -877,7 +877,8 @@ begin
FHasError := True; // Assume the worst FHasError := True; // Assume the worst
i := 1; i := 1;
while (i <= Length(FText)) and (FText[i] in ['a'..'z','A'..'Z','0'..'9','_']) do inc (i); while (i <= Length(FText)) and (FText[i] in ['a'..'z','A'..'Z','0'..'9','_']) do
inc(i);
if i = 1 then exit(AddError('Expected Command, but found "'+UTF8Copy(FText,1,1)+'"')); if i = 1 then exit(AddError('Expected Command, but found "'+UTF8Copy(FText,1,1)+'"'));
s := Copy(FText, 1, i-1); s := Copy(FText, 1, i-1);
@ -887,7 +888,8 @@ begin
FEventName := s; FEventName := s;
FPos := Length(FOrigText) - Length(FText) - FPosCompensate; FPos := Length(FOrigText) - Length(FText) - FPosCompensate;
while (i <= Length(FText)) and (FText[i] in [' ', #9]) do inc (i); while (i <= Length(FText)) and (FText[i] in [' ', #9]) do
inc(i);
if (i > Length(FText)) then exit(AddError('Expected "(" or ";" bot got end of file')); if (i > Length(FText)) then exit(AddError('Expected "(" or ";" bot got end of file'));
SetLength(FParams, 0); SetLength(FParams, 0);
@ -1558,7 +1560,8 @@ procedure TEditorMacroList.ClearAndFreeMacros;
var var
i: Integer; i: Integer;
begin begin
for i := 0 to Count - 1 do Macros[i].Free; for i := 0 to Count - 1 do
Macros[i].Free;
FList.Clear; FList.Clear;
end; end;
@ -1588,7 +1591,8 @@ begin
Result := AName; Result := AName;
if IndexOfName(AName) < 0 then exit; if IndexOfName(AName) < 0 then exit;
i := 1; i := 1;
while IndexOfName(AName+'_'+IntToStr(i)) >= 0 do inc(i); while IndexOfName(AName+'_'+IntToStr(i)) >= 0 do
inc(i);
Result := AName+'_'+IntToStr(i); Result := AName+'_'+IntToStr(i);
end; end;