Witam,
otóż mam taki kod
tper=record
imie:string;
nazwisko:string;
lata:integer;
miej:string;
end;
var
Form1: TForm1;
n:integer;
g:array[1..5] of tper;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
n:=strtoint(edit1.Text);
g[n].imie:=edit2.Text;
g[n].nazwisko:=edit3.Text;
g[n].lata:=strtoint(edit4.Text);
g[n].miej:=edit5.text;
listbox1.Items.Add(edit1.Text+g[n].imie+','+g[n].nazwisko+','+inttostr(g[n].lata)+','+g[n].miej);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
n:=strtoint(edit6.Text);
edit7.Text:=g[n].imie+','+(g[n].nazwisko)+','+inttostr(g[n].lata)+','+g[n].miej;
end;
end.
Zastanawiam się jak można do tego podejść aby Button2 zamiast pokazywać szukany wynik w polu edit podświetlał go w listboxie (przy np. takich samych imionach zostały by podświetlone dwie opcje) = oczywiście wiem że muszę się liczyć tu z pętlą ;]. Reasumując chce aby po wpisaniu w pole szukaj: np. imienia podświetlały się wszystkie osoby o danym imieniu i tak samo jeśli będę szukał pod względem daty urodzenia itd.
Więc w tej małej kwestii proszę o nakierowanie na dany punkt jak należało by to zrobić.
Pozdro