Chcę, aby po wpisaniu do pola Edit1 nazwiska(lub czegos innego) zostało one dodane do Listbox1 i jednoczesnie zajeło kolejną pozycję w tablicy (10o elementowej), abym mógł je następnie wyszukać
Podaję fragment kodu który napisałem i mam problem gdyż nie chce mi sie skompilowac a chodzilo mi o to żeby pierwszemu elementowi tablicy była przypisana pierwsza pozycja na listboxie
procedure TForm1.SzukajClick(Sender: TObject);
var szukaj:string;
i:integer;
ok:boolean;
begin
nazwiska[1]:=listbox1.items[1];
nazwiska[2]:=listbox1.Items[2];
nazwiska[3]:=listbox1.Items[3];
nazwiska[4]:=listbox1.Items[4];
nazwiska[5]:=listbox1.Items[5];
nazwiska[6]:=listbox1.items[6];
nazwiska[7]:=listbox1.Items[7];
nazwiska[8]:=listbox1.Items[8];
nazwiska[9]:=listbox1.Items[9];
nazwiska[10]:=listbox1.Items[10];
szukaj:=InputBox('Szukaj','Podaj nazwisko','');
ok:=false;
for i:=1 to 10 do
if szukaj=nazwiska[i] then ok:=true;
if ok then
ShowMessage('Nazwisko '+nazwiska[i]+' zostało znalezione w bazie!!!') ;
if not ok then
ShowMessage('Nie znaleziono takiego nazwiska w bazie');
end;
end.
Prosilbym o pomoc w tej sprawie.
Pozdroweinia Tomek