Seems the IN/OUT is not consistently written in uppercase in SHOW CREATE PROCEDURE, probably server version dependent. Anyway, stable now.

This commit is contained in:
Ansgar Becker
2009-03-03 20:30:37 +00:00
parent b66a62b9f8
commit 593adf939c

View File

@ -174,7 +174,7 @@ begin
rx.Expression := '^((IN|OUT|INOUT)\s+)?(\S+)\s+(\S+)$';
for i := 0 to Params.Count - 1 do begin
if rx.Exec(Trim(Params[i])) then begin
Context := rx.Match[2];
Context := UpperCase(rx.Match[2]);
if Context = '' then
Context := 'IN';
Parameters.Add(rx.Match[3] + DELIM + rx.Match[4] + DELIM + Context);