[firebase-br] Conversao de valores

[Eduardo Bahiense]

Maria Ap Rosa da Silva escreveu:
> O problema é que não consegui fazer isso, será que vc poderia passar como 
> faz
StringReplace(Texto, '.', ',', rfReplaceAll);

Outra coisa, seu arquivo de layout está certinho para mandar via SQL.

Eu Faria mais ou menos assim

if posicão = 'R' then
  Insert := 'INSERT INTO TBL_R (R1, R2, R3, R4, R5) VALUES(%s);'
else
  Insert := 'INSERT INTO TBL_D (D1, D2, D3, D4, D5, D6, D7) VALUES(%s);' ;

ListaScript.Add(Format(Insert, [Copy(s, 3, 500)]);
...
ListaScript.SaveToFile('RD.Sql');

IbExpert->ScriptExecutive->Open(RD.Sql);

ou vai excutando as Queries conforme vai avançando com o Readln

[]s Eduardo