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

IDE: TProjectFileDescriptor.DefaultResourceName: first try without appending a number, check for pascal keywords

Browse Source 
git-svn-id: trunk@37162 -
This commit is contained in:
mattias 2012-05-05 11:36:45 +00:00
parent 45c7aa2ce1
commit 7ef4bcdbbf
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/main.pp
View File

@ -5490,9 +5490,21 @@ function TMainIDE.NewUniqueComponentName(Prefix: string): string;
Result:=false;
end;
function IdentifierIsOk(Identifier: string): boolean;
begin
Result:=false;
if (Identifier='') or not IsValidIdent(Identifier) then exit;
if AllKeyWords.DoIdentifier(PChar(Identifier)) then exit;
if IdentifierExists(Identifier) then exit;
if IdentifierExists('T'+Identifier) then exit;
Result:=true;
end;
var
i: Integer;
begin
if IdentifierIsOk(Prefix) then
exit(Result);
while (Prefix<>'') and (Prefix[length(Prefix)] in ['0'..'9']) do
System.Delete(Prefix,length(Prefix),1);
if (Prefix='') or (not IsValidIdent(Prefix)) then
@ -5501,7 +5513,7 @@ begin
repeat
inc(i);
Result:=Prefix+IntToStr(i);
until (not IdentifierExists(Result)) and (not IdentifierExists('T'+Result));
until IdentifierIsOk(Result);
end;
function TMainIDE.DoLoadResourceFile(AnUnitInfo: TUnitInfo;