Será que alguem pode me ajudar?
Estou desenvolvendo um sistema para importacao de arquivos txt, onde tenho diversos tipos de layout,
então resolvi criar uma tabela para criar esses layouts para poder alimentar minhas tabelas no banco de dados
cod_chave item pos_in pos_fn tipo_campo campo formato_campo
Mas so que agora não estou conseguindo montar uma rotina para fzer isso funcionar
no delphi 5.0
Alguem poderia me dar uma idéia?
Obrigado
então resolvi criar uma tabela para criar esses layouts para poder alimentar minhas tabelas no banco de dados
cod_chave item pos_in pos_fn tipo_campo campo formato_campo
Mas so que agora não estou conseguindo montar uma rotina para fzer isso funcionar
no delphi 5.0
Alguem poderia me dar uma idéia?
Obrigado
Anonymous
Curtidas 0
Respostas
Anonymous
21/02/2003
while not Arquivo_txt.EOF do
begin
S := Linha_do_arquivo_txt
while not Tabela_Formato.Eof do
begin
S1:=copy(S,pos_in,pos_fin);
if tipo_campo=inteiro then
TabelaCampo.AsInteger := StrToInt(S)
else
if tipo_campo=string then
TabelaCampo.AsString := S
else
...
Tabela_Formato.Next;
end;
Tabela_Formato.First;
end;
begin
S := Linha_do_arquivo_txt
while not Tabela_Formato.Eof do
begin
S1:=copy(S,pos_in,pos_fin);
if tipo_campo=inteiro then
TabelaCampo.AsInteger := StrToInt(S)
else
if tipo_campo=string then
TabelaCampo.AsString := S
else
...
Tabela_Formato.Next;
end;
Tabela_Formato.First;
end;
GOSTEI 0