884 |
|
separator: AnsiString; |
885 |
|
begin |
886 |
|
if not FAttachment.HasFunction(aFunctionName) then |
887 |
< |
aFunctionName := AnsiUpperCase(aFunctionName); |
887 |
> |
aFunctionName := SafeAnsiUpperCase(aFunctionName); |
888 |
|
args := FAttachment.OpenCursorAtStart(FunctionArgsSQL,[aFunctionName]); |
889 |
|
arglist := ''; |
890 |
|
separator := ':'; |
920 |
|
ProcType: integer; |
921 |
|
begin |
922 |
|
if not FAttachment.HasProcedure(aProcName) then |
923 |
< |
aProcName := AnsiUpperCase(aProcName); |
923 |
> |
aProcName := SafeAnsiUpperCase(aProcName); |
924 |
|
args := FAttachment.OpenCursorAtStart(sGetProcArgsSQL,[aProcName]); |
925 |
|
arglist := ''; |
926 |
|
separator := ':'; |