| Subject | Re: [firebird-support] Re: Create or Alter Procedure: Token Unknown doing a Replace... |
|---|---|
| Author | diego schumacher |
| Post date | 2016-05-02T19:26:57Z |
const
ReplaceFmt = ' S = Replace(S, %s, %s);';
begin
[...]
// Script1.Script.Add('-- Remove Double Letters ');
Script1.Script.Add(Format(ReplaceFmt, [QuotedStr('BB'), QuotedStr('B')]));
Script1.Script.Add(Format(ReplaceFmt, [QuotedStr('BB'), QuotedStr('B')]));
Script1.Script.Add(Format(ReplaceFmt, [QuotedStr('CC'), QuotedStr('C')]));
Script1.Script.Add(Format(ReplaceFmt, [QuotedStr('DD'), QuotedStr('D')]));
[...]
end;
--
Diego.-