Do not use translated combo box text for CREATE code, in routine editor. Fixes issue #3051.

This commit is contained in:
Ansgar Becker
2012-12-08 21:17:05 +00:00
parent d52d304361
commit 3ef3092b42

View File

@ -519,7 +519,10 @@ var
ProcOrFunc: String;
i: Integer;
begin
ProcOrFunc := UpperCase(GetFirstWord(comboType.Text));
case comboType.ItemIndex of
0: ProcOrFunc := 'PROCEDURE';
else ProcOrFunc := 'FUNCTION';
end;
Result := 'CREATE ';
if comboDefiner.Text <> '' then
Result := Result + 'DEFINER='+DBObject.Connection.QuoteIdent(comboDefiner.Text, True, '@')+' ';