Fórum Formatar Valor no TXT para gravar no paradox #326179

Var Registros,ListaCampos: TStringList;
    j: Integer ;
Const Enter_ = #13 + 10;
begin
try
   try
   Registros := TStringList.Create;
   ListaCampos := TStringList.Create;
   Registros.LoadFromFile(FilenameEdit1.FileName);//aqui é o arquivo que contem os dados
   Memo1.Lines.Clear;
   for j := 0 to Registros.Count -1 do
   begin
      // Separa os campos do registro em itens do TStrinList, registro a registro.
      ListaCampos.Text := StringReplace(Registros[j], ´;´, Enter_, [rfReplaceAll, rfIgnoreCase]);
          ////// coloque aqui a inserção dos campos no BD /////////
          Memo1.Lines.Add(´DUPLICATA: ´ + ListaCampos[0]);
          Memo1.Lines.Add(CLIENTE: ´ + ListaCampos[1]);
          Memo1.Lines.Add(VENCIMENTO: ´ + ListaCampos[2]);
          Memo1.Lines.Add(´VALOR: ´ + FormatFloat(‘#,,0.00’,StrToFloat(ListaCampos[3]));//aqui formato o valor
          Memo1.Lines.Add(´DIAS_ATRASO: ´ + ListaCampos[4]);
          Memo1.Lines.Add(´REPRESENTANTE: ´ + ListaCampos[5]);
          Memo1.Lines.Add(´==============================´);
  End;//do for
Finally
 Registros.Free;
 ListaCampos.Free;
End;//do try
Except
 Raise exception Create(‘Erro durante o processo de importação!’);
End;

var Arquivo: TextFile;
    Linha: string;
    Campos: TStringList;
begin
  Campos  := TStringList.Create;
  AssignFile(Arquivo,´C:\TEMP\TESTE.TXT´);
  Reset(Arquivo);
  while not Eof(Arquivo) do
  begin
    Readln(Arquivo, Linha);
    Campos.Clear;
    ExtractStrings([´;´],[], PChar(Linha), Campos);
    if (Campos.Count=8) then
    begin
      Campos.Strings[0]; // duplicata,
      Campos.Strings[1]; // cliente,
      Campos.Strings[2]; // vencimento,
      Campos.Strings[3]; // valor,
      Campos.Strings[4]; // não consta,
      Campos.Strings[5]; // dias de atraso,
      Campos.Strings[6]; // representante:
    end;
  end;
  CloseFile(Arquivo);
end;