hab folgendes Problem:
Ich kann in einer Listbox 2 items auswählen. Ich brauche dann den index der zwei Einträge um dann später eine funktion aufzurufen. ich hab das folgendermasen programmiert. geht das auch einfacher?
Delphi-Quellcode:
var
i : integer;
st1,st2 : integer;
erstegefunden : boolean;
begin
erstegefunden:=false;
if Listbox1.Selcount=2 then begin begin
for i:=Listbox1.Items.Count-1 downto 0 do
if (Listbox1.Selected[i]=true) then
if erstegefunden=false then begin
st1:=i;
erstegefunden:=true;
end else
st2:=i;
end;
(*Hier wird die funktion mit a und b aufgerufen*)