Ordnen vo Zahlen

[Klaus01]

Hallo Mobby,

wenn Du die Karten in das Array reingeschrieben hast
und in der richtigen Ordnung, was willst denn Du dann noch sortieren?

Delphi-Quellcode:

type
  TKartenSpiel = Array [1..32] of string;

var
  KartenSpiel: TKartenSpiel;

begin
  KartenSpiel[1]:='Karo 7';
  KartenSpiel[2]:='Karo 8';
  ...

end;

Dann ist doch die niedrigste Karte auf Position 1
und die höchste auf Position 32. Die sind dann
sortiert - oder nicht?

Um eine Wertigkeit einer Karte zu finden
mußt Du nur die Position finden.

Das kannst Du machen indem Du das Array durchsucht

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;

Die Karten kannst Du dann anhand ihres Wertes vergleichen.

Delphi-Quellcode:

if findvalue(Kartenspiel,'Karo 7') < findValue(Kartenspiel,'Herz 8') then
   // tue etwas
else
  // tue etwas anderes

Ansonsten sehe ich nicht wo Dein Problem ist.

Grüße
Klaus