gravando uma formatação em arquivo texto

Delphi

03/03/2006

Fala galera, estou com seguinte problema, preciso gravar um campo monetário num arquivo texto, com a seguinte formatação:

000000000001.2300

no meu banco é monetário R$ 1,23

tentei assim:

Write(arq2,FormatCurr(´000000000000.0000´,DM1.QrCliente.FieldByName(´Valor_Boleto´).AsFloat));

mais no arquivo texto fica assim:
000000000001,2300 ---> com vírgula e precisava do ponto......


se alguém puder dar uma luz agradeço....


Vieira_alex

Vieira_alex

Curtidas 0

Respostas

Motta

Motta

03/03/2006

tente um replace (replacestring ou stringreplace nunca lembro de cabeça)

no arquivo texto terá de ter ponto , em geral prefiro retirar a virgula , pois basta multiplicar/dividir por cem para obter o valor monetário.


GOSTEI 0
Fabiano Góes

Fabiano Góes

03/03/2006

Um exemplo:

var
   str1, str2: String;
begin
// str1 = 000000000001,2300
// str2 = 000000000001.2300
str2 := StringReplace(str1, ´,´, ´.´, []  );
end;


acho que isso resolve seu problema !!!


GOSTEI 0
POSTAR