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

Thu, 20 Oct 2005 18:05:49 -0700 

Ao invés de usar ".Value" use ".AsString".

Um abraço,

Valdir Marcos

  ----- Original Message ----- 
  From: fabianojd 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, October 20, 2005 6: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]



        Yahoo! Grupos, um serviço oferecido por: 
          


------------------------------------------------------------------------------
  Links do Yahoo! Grupos

    a.. Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/
      
    b.. Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]
      
    c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço 
do Yahoo!. 



[As partes desta mensagem que não continham texto foram removidas]





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