paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-02 04:00:25 +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@37163 -
This commit is contained in:
mattias 2012-05-05 11:47:40 +00:00
parent 7ef4bcdbbf
commit a461fd7b65
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/main.pp
View File

@ -5504,7 +5504,7 @@ var
i: Integer;
begin
if IdentifierIsOk(Prefix) then
exit(Result);
exit(Prefix);
while (Prefix<>'') and (Prefix[length(Prefix)] in ['0'..'9']) do
System.Delete(Prefix,length(Prefix),1);
if (Prefix='') or (not IsValidIdent(Prefix)) then