Trotzdem vielen Dank für dein Bemühen Stephan,
nun versuch ich´s mal mit der Version von OMATA.
Hier weis ich allerdings noch nicht, wie ich den Code einbinde und vor allem wo
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 ; ^
hat jemand eine kleine Hilfestellung für mich ?