Listbox

[mimi]

wie währe es hiermit:

Delphi-Quellcode:

procedure FillListbox(lb:TListbox);
var
  i:Integer;
begin
  for i:=0 to 400 do lb.items.add(intTostr(i));
end;

// Gibt den ersten Gefunden Eintrag, der Ungerade ist
// Vor sollte FillListbox aufgerufen werden.
// Gibt es keine Ungerade Zahlen wird  -1 zurück geben.
// ich meine odd gibt True zurück wenn die Zahl ungerade ist
// und False wenn sie Gerade ist
function findOdd(lb:TListbox):Integer;
var
  i,k,z:Integer;
begin
  z:=-1;
  for i:=0 to 400 do begin
    k:=StrToint(lb.items[i]);
    if odd(k) then begin z:=i; break;
  end;
  result:=z;
end;

Ich habe die Frage so verstanden der Erste Eintrag der einen ungeraden Wert Enthält das davon der Index gebraucht wird.