Ordnen vo Zahlen

[Khabarakh]

Zitat von Klaus01:

Delphi-Quellcode:

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

begin
  found := false;
  i:=1;

  while not found and i <= 32 do
    begin
      if spiel[i] = karte then
        found:=true;
      inc(i);
    end;

  if found then
    result:=i-1
  else
    result := 0;
end;

Delphi-Quellcode:

function FindValue(ASpiel: TKartenspiel; AKarte: String): Byte;
var
  i: Integer;
begin
  Result := 0;
  for i := Low(ASpiel) to High(ASpiel) do
    if ASpiel[i] = AKarte then
    begin
      Result := i;
      Exit;
    end;
end;