Problem sa filtriranjem itema u TcomboboxU programu u jednoj formi imam edit i listbox. U list box su itemi stringovi iz jednog fajla. Napravio sam funkciju koja je kako kucam rec u editu skidala iteme iz listbox
[/code]procedure TForm3.Edit1Change(Sender: TObject);
var
d,l:integer;
c1,c2:char;
p:boolean;
begin
lista.Items.Clear;
for d:= 0 to (filesize(firme)-1) do
begin
seek(firme,d);
read(firme,sifr);
if edit1.Text <> '' then
begin
p:=true;
for l := 1 to length(edit1.Text) do
begin
c1:=edit1.text[l];
c2:=sifr.ime[l];
if c1 <> c2 then
p:=false;
end;
if p = true then
lista.Items.Add(sifr.ime+' '+sifr.ssf);
end
else lista.Items.Add(sifr.ime+' '+sifr.ssf);
end;
if lista.Items.Count <>0 then
begin
lista.Selected[0]:=true;
Form3.listaClick(sender);
end;
end;[/quote]
Nije bas najelegantnije resenje, ali radi extra. Kada tu funkciju iskopiram u drugi form i u Tcombobox.change
Code:
procedure TForm2.listaChange(Sender: TObject);
var
d,l,y:integer;
c1,c2:char;
p:boolean;
begin
lista.Items.Clear;
y:=5;
for d:= 0 to (filesize(firme)-1) do
begin
seek(firme,d);
read(firme,sifr);
if lista.Text <> '' then
begin
p:=true;
for l := 1 to length(lista.Text) do
begin
c1:=lista.text[l];
c2:=sifr.ime[l];
if c1 <> c2 then
p:=false;
end;
if p = true then
begin
lista.Items.Add(sifr.ime+' '+sifr.ssf);
y:=y+1;
end;
end
else lista.Items.Add(sifr.ime+' '+sifr.ssf);
end;
lista.DropDownCount:=y;
lista.DroppedDown:=true;
end;
procedure TForm2.listaChange(Sender: TObject);
var
d,l,y:integer;
c1,c2:char;
p:boolean;
begin
lista.Items.Clear;
y:=5;
for d:= 0 to (filesize(firme)-1) do
begin
seek(firme,d);
read(firme,sifr);
if lista.Text <> '' then
begin
p:=true;
for l := 1 to length(lista.Text) do
begin
c1:=lista.text[l];
c2:=sifr.ime[l];
if c1 <> c2 then
p:=false;
end;
if p = true then
begin
lista.Items.Add(sifr.ime+' '+sifr.ssf);
y:=y+1;
end;
end
else lista.Items.Add(sifr.ime+' '+sifr.ssf);
end;
lista.DropDownCount:=y;
lista.DroppedDown:=true;
end;
problem je sto se combobox ovde mnogo cudno ponasa. Znaci kad ukucam neko slovo on me stavi na pocetak reci i mis postane nevidljiv.Sta treba da promenim u funkciji da bi lepo funkcionisala u comboboxu?
Jos jedno pitanje u comboboxu kad kliknem na neki item on mi selektuje ceo text. Kako da stavim da kad selektujerm neki item da mi texet nije selektovan? Znaci kad nastavim da pisem on mi ne izbrise text nego dopise?
