Conversão de txt para DB

Delphi

07/09/2003

Pessoal !!!!!!

Na linha de código abaixo está dando erro em

AssignFile(TXT,Cliente.TXT); // Undeclared identifier Cliente

var
TXT : TextFile;
Entrada : String;
Begin
// Exemplo para fazer conversão de arquivo DB para TXT:
AssignFile(TXT,Cliente.TXT);
Reset(TXT);
While not Eof(TXT) do Begin
Readln(TXT,Entrada);
IbTable1.Insert;
ibTable1Cd_bairro.Value := Copy(Entrada,01,05);
ibTable1nm_bairro.Value := Copy(Entrada,06,50);
ibTable1.Post;
End;
CloseFile(TXT);


Rogério

Continua insistindo em enviar mensagens repetidas. [b:a556878545]Colabore com o Fórum![/b:a556878545]



Roger_prog

Roger_prog

Curtidas 0

Respostas

Koplin

Koplin

07/09/2003

AssignFile(TXT,´C:\Cliente.TXT´); //com aspas

Acho que é isso.


GOSTEI 0
Mmtoor

Mmtoor

07/09/2003

Prezado colega:
Utilizo assim:

var
Txt : TextFile;
Entrada : String;
begin
Assignfile(Txt,´tabela.Txt´);
Reset(Txt);
While not Eoln(Txt) do
begin
Readln(Txt,Entrada);
Table1.Insert;
Table1.FieldByName(´Codigo´).Value := Copy(Entrada,01,05);
Table1.FieldByName(´Nome´).Value := Copy(Entrada,06,50);
Table1.Post;
end;
CloseFile(Txt);

Espero ter ajudado.
MMTOOR2003


GOSTEI 0
POSTAR