paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-25 23:39:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: extract proc: stop if identifier is invalid

Browse Source 
git-svn-id: trunk@39461 -
This commit is contained in:
mattias 2012-12-06 16:33:40 +00:00
parent 989a5004df
commit 979dfc0037
1 changed files with 1 additions and 0 deletions

1
ide/extractprocdlg.pas
View File

@ -214,6 +214,7 @@ begin
MessageDlg(lisInvalidProcName,
Format(lisSVUOisNotAValidIdentifier, ['"', ProcName, '"']),
mtError,[mbCancel],0);
ModalResult:=mrNone;
exit;
end;
ModalResult:=mrOk;