Em que linha do programa esta acontecendo o erro?
Verifique o conteudo do arquivo texto na linha que estiver dando erro.
Poste tambem a linha do arquivo texto em que ocorre o erro!!!
As colunas do seu arquivo texto tem numero de caracteres iguais em todas as
linhas?
[]'s
-----
Jéferson Mehlecke
Porto Alegre - RS
----- Original Message -----
From: "fabianojd" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Thursday, October 20, 2005 7:36 PM
Subject: [delphi-br] Conversão de arquifo Texto TXT
Estou com um problema, esta ocorrendo um erro na conversão de um
arquivo texto quando a linha é maior que 100.
var
TXT :TextFile;
Entrada: String;
begin
inherited;
AssignFile(TXT,'Tabela.Txt');
Reset(TXT);
While not Eoln(TXT) do
Begin
ReadLn(TXT,Entrada);
TFarma.Insert;
TFarmaMED_ABC.Value:=Copy(Entrada,01,09);
TFarmaMED_CTR.Value:=Copy(Entrada,10,01);
TFarmaMED_LAB.Value:=Copy(Entrada,11,06);
TFarmaLAB_NOM.Value:=Copy(Entrada,17,30);
TFarmaMED_DES.Value:=Copy(Entrada,47,45);
TFarmaMED_APR.Value:=Copy(Entrada,92,45);
até aqui roda. quando passa da linha 100 ocorre o erro: [Error]
UnFarma.pas(69): Incompatible types: 'Double' and 'String'
TFarmaMED_PCO1.Value:=Copy(Entrada,137,11);
TFarmaMED_PLA1.Value:=Copy(Entrada,148,11);
TFarmaMED_FRA1.Value:=Copy(Entrada,159,11);
TFarmaMED_UNI.Value:=Copy(Entrada,236,03);
TFarmaMED_IPI.Value:=Copy(Entrada,239,02);
TFarmaMED_DTVIG.Value:=Copy(Entrada,244,08);
TFarmaMED_EXP_13.Value:=Copy(Entrada,252,01);
TFarmaMED_BARRA.Value:=Copy(Entrada,253,03);
TFarmaMED_GEN.Value:=Copy(Entrada,266,03);
TFarmaMED_NEGPOS.Value:=Copy(Entrada,269,03);
TFarmaMED_NEUTRO.Value:=Copy(Entrada,272,03);
TFarmaMED_PRINCI.Value:=Copy(Entrada,275,130);
TFarma.Post;
end;
CloseFile(TXT);
end;
Desde já agradeço
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.344 / Virus Database: 267.12.4/143 - Release Date: 19/10/2005
_______________________________________________________
Promoção Yahoo! Acesso Grátis: a cada hora navegada você acumula cupons e
concorre a mais de 500 prêmios! Participe! http://yahoo.fbiz.com.br/
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
