Witam.
Piszę ten temat, gdyż nie mogę poradzić Sobie z kodem. Oto on:
procedure TForm1.Button5Click(Sender: TObject);
var
i:integer;
s1:string;
s2:string;
begin
s1:= 'Maciek'
s2:= 'Paulina'
for i:= 0 to listbox1.items.count -1 do
begin
if pos(listbox1.items[i],s1) <> 0 then
begin
showmessage('elo ' + s1);
end
else
begin
application.Title:='raz';
showmessage('spadaj ' +s1);
Application.Terminate;
if pos(listbox1.items[i],s2) <> 0 then
begin
showmessage('elo' +s2);
end
else
begin
application.Title:='dwa';
showmessage('spadaj ' +s2);
end;
end;
end;
end;
end.
Chodzi o to że na FormCreate zrobiłem takie coś by mi generowało kilka imion i dodało je do listboxa. Na buttonie chcę by jeżeli choć jedno imię z tych zapisanych jako string się pojawiło to ma się coś dziać. Na chwilę obecną dałem "showmessage". No spoko, działa. Niestety, ale wygląda to tak: "elo Maciek", a zaraz pojawia się message z napisem "spadaj Maciek". Chcę by "spadaj Maciek" sie pojawiało tylko gdy tego imienia nie ma na listboxie.
Proszę o pomoc. Jestem początkującym programmerem - dopiero się uczę :) Z tego właśnie względu robię pierdoły tego typu.
Dzięki.