Alexadre,
You are right. Off topic. And much appreciated.
Jack
--- In firebird-support@yahoogroups.com, Alexandre Benson Smith
<iblist@...> wrote:

>

Quite off topic here, but just as a note, you could have used

> StringReplace Delphi function
>
> function StripChar(const sTarget: string; const sStripChar:

string):string;

> var
> I:Integer;
> begin
> Result := sTarget;
> For I := 1 to Length(sStripChar)
> Result := StringReplace(Result, sStripChar[I], '', [rfAll];
> end;
>
> see you !
>
> --
> Alexandre Benson Smith
> Development
> THOR Software e Comercial Ltda
> Santo Andre - Sao Paulo - Brazil
> www.thorsoftware.com.br
>