Fórum Conversão de txt para DB #180407
07/09/2003
0
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
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
Curtir tópico
+ 0
Responder
Posts
07/09/2003
Koplin
AssignFile(TXT,´C:\Cliente.TXT´); //com aspas
Acho que é isso.
Acho que é isso.
Responder
Gostei + 0
07/09/2003
Mmtoor
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
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
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)