isso resolve:
CBox700.Text := dmCompromisso.cdsCompromisso.FieldByName('Linha0700').asstring;
Edit701.Text := dmCompromisso.cdsCompromisso.FieldByName('Linha0701').asstring;
Em 03/07/07, Rubem Nascimento da Rocha <[EMAIL PROTECTED]> escreveu:
>
>
> Não faça assim! A propriedade Value retornar pelo FieldByName() é um
> variant, e se o campo não tiver valor algum, ele pode resultar nesse tipo de
> exceção. Use AsString ao invés de Value. Sds.
>
> To: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>;
> [EMAIL PROTECTED] <lista%40firebase.com.br>;
> [EMAIL PROTECTED] <firebird-br%40yahoogrupos.com.br>;
> [EMAIL PROTECTED] <lista%40firebase.com.brFrom>:
> [EMAIL PROTECTED] <adenes%40ecoplanpb.com.brDate>: Mon, 2 Jul
> 2007 08:53:46 -0300Subject: [delphi-br] Inserindo conteúdo de um campo em um
> TEdit
>
> Caro amigo, quando tento passar o conteúdo de um campo num TEdit aparece
> aseguinte msg: "Could not convert variant of type (Null) into tupe (String).
> Isso ocorre quando o campo não tem nenhuma informação. Exemplo:
> CBox700.Text := dmCompromisso.cdsCompromisso.FieldByName('Linha0700').Value;
> Edit701.Text := dmCompromisso.cdsCompromisso.FieldByName('Linha0701')Value
> O compontente CBOx700.Text tem informção + o Edit701 n tem. É onde ocorre
> o erro.-------------avast! Antivirus: Outbound message clean.VirusDatabase
> (VPS): 000753-1, 02/07/2007Tested on: 2/7/2007 08:54:05avast! -
> copyright (c) 1988-2007 ALWIL Software.http://www.avast.com[As partes
> desta mensagem que não continham texto foram removidas]
>
> __________________________________________________________
> Encontre o que procura com mais eficiência! Instale já a Barra de
> Ferramentas com Windows Desktop Search GRÁTIS!
> http://desktop.msn.com.br/
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
--
Rafael jorge alves
www.acinformatica.org
[As partes desta mensagem que não continham texto foram removidas]
