Pristup elementima ListBox-a ????

[ mish_ns @ 30.10.2009. 09:37 ] @

Pozdrav svima.

Interesuje me kako u Delphi-ju pristupiti elementima ListBoxa ako je prethodno napunjen na sledći način:

Code:

ListBox1.AddItem(IBQuery1.FieldByName('PREZIME').AsString,TObject(IBQuery1.FieldByName('JMBG').AsInteger));
ListBox1.AddItem(IBQuery1.FieldByName('IME').AsString,TObject(IBQuery1.FieldByName('JMBG').AsInteger));

I još jedno podpitanje....kako mogu spojiti ova dva polja iz baze podataka da mi se prikazuju u jednoj vrsti u ListBoxu?

Znači NE ovako:

Milanović
Milan

nego

Milanović Milan

Hvala!!!

[ captPicard @ 30.10.2009. 11:01 ] @

Kada radiš upit napravi ovako:

Code:
SELECT ime || ' ' || prezime punoime FROM tablica

[ franjo_tahi @ 30.10.2009. 11:10 ] @

Svaki element listboxa:

Code:

ListBox1.Items[i] := 'Neki tekst';

Ako radiš

Code:

ListBox1.Items.Append('Neki tekst');

Onda možeš i:

Code:

ListBox1.Items.Append(IBQuery1.FieldByName('PREZIME').AsString + ' ' + IBQuery1.FieldByName('IME').AsString);

ili u SQL-u definiraš:

Code:

Select IME, PREZIME, IME || ' ' || PREZIME AS IME_PREZIME FROM Neka tablica

Pa to dodaješ u listbox:

Code:

ListBox1.Items.Append(IBQuery1.FieldByName('IME_PREZIME').AsString);

[ mish_ns @ 30.10.2009. 11:30 ] @

Super...ovo sve radi.

A da li postoji mogućnost da npr. selektujem nešto u ListBoxu i klikom na neko dugme napunim edit polje sa tim što je selektovano???

[ savkic @ 30.10.2009. 13:42 ] @

ItemIndex daje indeks selektovane stavke, dalje je lako: Edit1.Text := ListBox1.Items[ListBox1.ItemIndex];

[ mish_ns @ 30.10.2009. 14:41 ] @

Zanimljivo...
Pokušao sam tako ali mi delphi nije to ponudio...

Na kraju sam samo otkucao i RADI. :)

Hvala svima....