Fórum Importar dados arquivo texto #41048

[quote:5347276926=´Nilson Carvalho A. Junior´]Gostaria de saber como fazer para importar dados de um arquivo text, sei fazer pelo IBmanager ou IbExpert, ou pelo DataPump

Mas como faria isto via programação:

importar um aquivo com uma unica coluna

Esta coluna teria o ´codigo+preco a prazo+preco de venda + tipo´, depois que ele estiver dentro de uma tabela tambem com um unico campo, eu trataria isto (tambem sei fazer).

Mas como fazer que este arquivo tipo texto posso ser importado pelo Firebird e delphi


Nilson

T+[/quote:5347276926]


Oi Nilson.
Crie um botão no seu form

Var cArq:TextFile;
clinha:String;
begin

cLinha:=´´;
if FileExists(´Nomedoseuarquivotexto´) then begin
AssignFile ( cArq, ´Nomedoseuarquivotexto´);
Reset ( cArq );
while not Eof ( cArq) do begin
ReadLn ( cArq, clinha );
Tabela.SQL.ADD(´Insert.....´);

End;
CloseFile ( cArq );
end;


Espero que resolva teu problema.