[delphi-br] Conversão de arquifo Texto TXT

Thu, 20 Oct 2005 14:36:40 -0700 

   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

<*> 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

Responder a