So da bin ich wieder,
ich werde jetzt mal alle dargebotenen Tipps ausprobieren. Ich danke euch erstmal ganz herzlich für die Tipps.
Über das Ergebnis informiere ich natürlich noch.
mfg
Nachtstreuner
PS :
Delphi-Quellcode:
SET TERM ^ ;
CREATE OR ALTER PROCEDURE CLEARNUMERIC (
INPUTSTR Varchar(100)
)
RETURNS (Result Varchar(100)) AS
BEGIN
Result = '';
WHILE (InputStr <> '') DO BEGIN
IF ('0123456789' NOT LIKE '%' || SUBSTRING(InputStr FROM 1 FOR 1) || '%') THEN
BEGIN
Result = Result || SUBSTRING(InputStr FROM 1 FOR 1);
END
InputStr = SUBSTRING(InputStr FROM 2);
END
SUSPEND;
END^
SET TERM ; ^
Wo trage ich diese Prozedur ein ?
Soviel ich weiss, fangen Proceduren in Delphi mit
Procedure TForm.blaBlaBla
begin
.
.
.
end;
an.
Wie ist das mit obigen Code ?