Era isso mesmo Demian.
eu tava usando o SetInstrucoes assim:
procedure TMinhaClasse.SetInstrucoes(Value: TStringList);
begin
  fInstrucoes := Value;
end;
Alterei como você disse e funcionou direitinho. 

Gostaria de te agradecer pela ajuda, e dizer que sempre vejo as suas 
respostas aqui no fórum, sempre explicadas minuciosamente. 

Agradeço a atençao.

Tiago

--- Em delphi-br@yahoogrupos.com.br, Demian Lessa <[EMAIL PROTECTED]> 
escreveu
> Como você definiu a propriedade Instrucoes? Isso, em geral, se 
deve pela 
> forma como você *atribui* o valor à propriedade. Se você utilizou 
algo como:
> 
>    published
>      property Instrucoes: TStringList
>               read FInstrucoes write FInstrucoes;
> 
> É esse o seu problema! Basta ver como outros componentes 
implementam a 
> atribuição (write) de propriedades do tipo objeto para ver qual o 
seu erro.
> 
> O fato é que, para objetos, existem duas formas de se atribuir 
valores- 
> através de referência, como a propriedade DataSet dos TDataSource, 
onde 
> a propriedade apenas guarda uma referência ao objeto; ou, através 
de 
> atribuição propriamente dita, quando um valor atribuido à 
propriedade é 
> utilizado para definir o valor da propriedade- a referência ao 
objeto é 
> utilizada apenas localmente para a atribuição (exemplo logo 
abaixo). A 
> depender da situação, pode ser preciso definir um editor de 
propriedades 
> específico para que a atribuição da propriedade através do Object 
> Inspector corresponda ao modo de operação desejado.
> 
> No seu caso, o correto seria...
> 
>    published
>      property Instrucoes: TStringList
>               read FInstrucoes write SetInstrucoes;
> 
> procedure TMinhaClasse.SetInstrucoes(Value: TStringList);
> begin
>    if Value = nil then
>      FInstrucoes.Clear
>    else
>      FInstrucoes.Assign(Value);
> end;
> 
> 
> Essa forma de implementação ilustra como o objeto (Value) é 
utilizado 
> para atribuir o valor à propriedade.
> 
> Cordialmente,
> 
> Demian Lessa
> Salvador - Brasil
> 
> tiago_econtabil wrote:
> > Pessoal, criei um componente com uma propriedade  chamada 
Instrucoes: 
> > TStringList. Quando jogo o componente em um form e clico no 
Object 
> > Inspector pra adicionar valor para este campo, ele abre a 
janelinha 
> > igual ao IBQuery.SQL (por exemplo). Mas quando coloco valores 
nesta 
> > janelinha, e clico em OK, ele dá um monte de mensagens de erro. 
Será 
> > que esqueci de algo?
> > 
> > Tiago
> > 
> > 
> > 
> >




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