Marcio,
Desculpe a ignorancia, mas como faco para recuperar os valores de NAME,
ID e PRD??
Poderia nos passar mais codigo para exemplos?
Nunca trabalhei desta forma, criando objetos em tempo de execucao
ligados a objetos jah criados no form!!
Tenho uma certa dificuldade em trabalhar com orientacao a objetos.
Obrigado.
MuriloCunha
On 12/05/2010 09:01, Marcio wrote:
> bom eu faco dessa maneira ...
>
>
> TMyComboObject = class
> private
> { Private declarations }
> FId: Integer;
> FNome: String;
> FPrd : String;
> public
> { Public declarations }
> constructor Create(Id: Integer; Nome: String ; Prd:String);
> property Id: Integer read fId;
> property Name: String read FNome;
> property Prd : String read FPrd;
> end;
>
>
>
> constructor TMyComboObject.Create(Id: Integer; Nome: String; Prd:String);
> begin
> fId := Id * 15;
> fNome := Name;
> fPrd := Prd;
> end;
>
> procedure TfrmCadativ.ClearComboBox;
> var
> I: Integer;
> begin
> if ComboBox1.Items.Count> 0 then
> begin
> for I := 0 to ComboBox1.Items.Count - 1 do
> TMyComboObject(ComboBox1.Items.Objects[I]).Free;
> ComboBox1.Clear;
> end;
> end;
>
>
>
> para carregar ...
>
> while not query.Eof do
> begin
> inc(idx);
> ComboBox1.Items.AddObject(query.Fields[1].AsString,
> TMyComboObject.Create(idx,query.Fields[1].AsString,query.Fields[0].AsString));
>
> query.Next;
> end;
>
>
> att Marcio / Blumenau-SC.
>
>
>
>
>
>
> At 10:36 3/5/2010 -0300, you wrote:
>
>>
>> Pessoal,
>>
>> Tenho esta estrutura para guardar mais de um valor no ComboBox:
>>
>> cbxUsuarios.Properties.Items.AddObject(dtsOracle.FieldByName('LOGIN').AsString,
>>
>> TObject(dtsOracle.FieldByName('ID_USUARIO').AsInteger));
>>
>> Para recuperar este valor faco o seguinte:
>>
>> intIDUsuario :=
>> LongInt(cbxUsuarios.Properties.Items.Objects[cbxUsuarios.ItemIndex]);
>>
>> O problema estah em: Como liberar estes objetos da memoria?
>>
>> Nao sei fazer o FREE para esta estrutura.
>>
>> OBS.:
>> Se ajudar, peguei esta dica em:
>> <http://www.scalabium.com/faq/dct0094.htm>http://www.scalabium.com/faq/dct0094.htm
>>
>> Obrigado.
>> MuriloCunha
>>
>>
>>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> ------------------------------------
>
>
