Ordnen vo Zahlen

[Klaus01]

da habe ich mich mit der Funktion nicht besonders geschickt angestellt.

Delphi-Quellcode:

function findValue(spiel:TKartenspiel;karte:String):Byte;
var
  i:Byte;

begin
  result := 0;
  i:=1;

  while (result = 0) and (i <= High(spiel) do
    begin
      if spiel[i] = karte then
        result:=i;
      inc(i);
    end;

end;

so geht es auch wenn man das exit in der for Schleife nicht mag.

Grüße
Klaus