Carregar um arquivo sem extenção para bd?

Delphi

19/03/2004

13| 40| 8| | |55413291694 |19/03/2004|15:47:22| 0:00:32|01| 0|000|00| 129|03|0|0|00|011E|9999|34285239|SRSANTAN


Preciso carregar um arquivo neste formato no banco de dados! como faço?

procedure TF_ImportaPagamentos.RecArqSEF; 
begin 
  Screen.Cursor := crHourGlass; 

  Reset(prArq); 
  if not eof(prArq) then 
  repeat 
     ReadLn(prArq, Texto); 
     prMASP := Copy(Texto,1,8); 
     prIndica := Copy(Texto,59,1); 
     prTxValor := Copy(Texto,99,10); 
     prVrValor := StrToFloat(prTxValor) / 100; 
     with TabRecebe do 
     begin 
        Insert; 
        FieldByName(´FP´).AsString := prFt; 
        FieldByName(´AnoMes´).AsString := prAnoMes; 
        FieldByName(´MASP´).AsString := prMASP; 
        FieldByName(´Tipo´).AsString := prIndica; 
        FieldByName(´Valor´).AsFloat := prVrValor; 
        Post; 
     end; 
     until eof(prArq); 
     CloseFile(prArq); 
     Screen.Cursor := crDefault; 
end;


Só que não estou conseguindo fazer funcionar....


Genial_reis

Genial_reis

Curtidas 0

Respostas

Sremulador

Sremulador

19/03/2004

qual o tel banco de dados ???


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

19/03/2004

Colega,

Fiz algumas alterações, pois não consegui entender exatamente o seu código:

procedure TForm1.TF_ImportaPagamentos;
var prArq: TextFile;
Texto: String;
begin

try
    Screen.Cursor := crHourGlass;
    AssignFile(prArquivo,´C:\PASTA\ARQUIVO.TXT´); // Linha inserida
    Reset(prArq);
    While not Eof(prArq) do
    begin
      ReadLn(prArq, Texto);
      with TabRecebe do
      begin
        Append;
        FieldByName(´FP´).AsString := ´´;// prFt; { Deve ser variável global?}
        FieldByName(´AnoMes´).AsString := ´´;//prAnoMes; { Deve ser variável global?}
        FieldByName(´MASP´).AsString := Copy(Texto,1,8);
        FieldByName(´Tipo´).AsString := Copy(Texto,59,1);
        FieldByName(´Valor´).AsFloat := StrToFloat(Copy(Texto,99,10))/100;
        Post;
      end;
    end;
    finally
      CloseFile(prArq);
      Screen.Cursor := crDefault;
    end;
end;



GOSTEI 0
POSTAR