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