Ordnen vo Zahlen

[Mobby]

Ich würde gern wissen, ob man Zahlen z.b. von 1 bis 32 aufsteigend sortieren kann. Ich habe eine Listbox in der Einträge sind und diese würde ich gern in eine sinnvolle Reihenfolge bringen, das Problem ist nur, dass die sinnvolle Reichenfolge nicht dem Alphabet entspricht. D.h. wenn ich die Eigenschaft "Sourted" als true setzte, habe ich zwar eine Reichenfolge, aber nicht die gewünschte.

Wie müsste ich das realisieren oder gibt es dazu vielleicht eine selbstzuschreibende Variante?

[Klaus01]

Guten Morgen,

schau mal bitte hier -> http://www.delphipraxis.net/internal...ieren+tlistbox

Grüße
Klaus

[Corpsman]

Wenn du die die Beispiele auf meiner HP ansiehst kanst du dem Rechner bei Sortieren sogar zusehen ;)

[Mobby]

gut...also das mit zahlensortieren habsch verstanden...nu is das prob...ich hab in der listbox keine zahlen...also da steht z.b. wie bei maumau Kr7 und ich will das jetzt halt normal wie mans macht...nach farbe sortieren und dann nach wert...dazu hab ich jeder karte ne zahl gegeben(weiß nicht ob das wirklich sinnvoll ist) und ich dacht mir anhand der zahl lass ich sie ordnen...das problem...es geht irgendwie nicht so wie ich es dachte!

weiß einer woran es liegt?

[Klaus01]

Kanst Du das bitte einmal etwas verständlicher erklären was Du willst?

Grüße
Klaus

[Mobby]

also...ich hab jetzt ein spiel...mau-mau...das kartenspiel...naja und jetzt bin ich dabei die karten in der listbox zu sortieren. ich hab mir gedacht da ich das nicht nach alphabet haben möchte sortiere ich nach zahlen...ich hab mit hilfe von :

Delphi-Quellcode:

procedure TForm1.sortierenClick(Sender: TObject);

var i: integer;

begin
  Ka7:=inttostr(1);
  Ka8:=inttostr(2);
  Ka9:=inttostr(3);
  KaD:=inttostr(4);
  KaK:=inttostr(5);
  Ka10:=inttostr(6);
  KaA:=inttostr(7);
  He7:=inttostr(8);
  He8:=inttostr(9);
  He9:=inttostr(10);
  HeD:=inttostr(11);
  HeK:=inttostr(12);
  He10:=inttostr(13);
  HeA:=inttostr(14);
  Pi7:=inttostr(15);
  Pi8:=inttostr(16);
  Pi9:=inttostr(17);
  PiD:=inttostr(18);
  PiK:=inttostr(19);
  Pi10:=inttostr(20);
  PiA:=inttostr(21);
  Kr7:=inttostr(22);
  Kr8:=inttostr(23);
  Kr9:=inttostr(24);
  KrD:=inttostr(25);
  KrK:=inttostr(26);
  Kr10:=inttostr(27);
  KrA:=inttostr(28);
  KaB:=inttostr(29);
  HeB:=inttostr(30);
  PiB:=inttostr(31);
  KrB:=inttostr(32);
  spieler_1.Sorted:=true;
  spieler_2.Sorted:=true;
  spieler_3.Sorted:=true;
end;

jeder karte eine zahl zugeordnet...nun ist die frage wie ich das nun sortieren kann...ich blick das einfach nicht...

[Klaus01]

warum organisierst Du das KartenSpiel nicht in einem
Array of String;

Delphi-Quellcode:

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

var
  KartenSpiel: TKartenSpiel;

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

end;

So hat dann jede Karte seine Wertigkeit in der Position in dem Array definiert.
Die Karten solltest Du dann also entsprechend ihrer Wertigkeit in das Array
einfügen. Dann ist es aus meiner Sicht nicht notwendig die Karten
nochmal extra zu sortieren.

Grüße
Klaus

[Mobby]

:wall:
ich denke halt meist viel zu kompliziert...

[marabu]

Hallo.

Die Sortierung innerhalb der ListBox ist ja immer noch nicht gelöst. Im Array muss zur Bestimmung der Ordnungszahl einer Karte eine lineare Suche erfolgen. Hier noch eine Alternative. Die Ordnungszahl wird über eine Funktion StrToValue() bestimmt, die an verschiedene Regeln angepasst werden kann.

Delphi-Quellcode:

function CompareInteger(i1, i2: Integer): Integer;
begin
  if i1 < i2 then Result := -1 else
  if i1 > i2 then Result := 1 else
  Result := 0;
end;

function StrToValue(name: String): Integer;
const
  FARBEN = '.KA.HE.PI.KR.';
  WERTE = '.7.8.9.D.K.10.A.';
begin
  name := Uppercase(name);
  Result := Pos(Copy(name, 1, 2), FARBEN) shl 8
    + Pos(Copy(name, 3, 2), WERTE);
end;

function CustomCompare(sl: TStringList; index1, index2: Integer): Integer;
begin
  Result := CompareInteger(StrToValue(sl[index1]), StrToValue(sl[index2]));
end;

procedure SortValues(lb: TListBox);
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  sl.Assign(lb.Items);
  sl.CustomSort(CustomCompare);
  lb.Items.Assign(sl);
  sl.Free;
end;

procedure TDemoForm.SortButtonClick(Sender: TObject);
begin
  ListBox.Items.CommaText := 'krK,kr7,kaA,he9,piD';
  SortValues(ListBox);
  ShowMessage(ListBox.Items.Text);
end;

Viel Spaß beim Analysieren

marabu

[Sidorion]

..bis auf CompareInteger:

Delphi-Quellcode:

function CompareInteger(i1, i2: Integer): Integer;
begin
  Result := i2-i1;
end;

[Klaus01]

@sidorion

die Funktion von marabu macht wohl etwas anderes als die Deine
die marabu Funktion vergleicht zwei Werte.

Deine subtrahiert zwei Werte.

Delphi-Quellcode:

function CompareInteger(i1, i2: Integer): Integer;
begin
  if i1 < i2 then Result := -1 else
  if i1 > i2 then Result := 1 else
  Result := 0;
end;

Delphi-Quellcode:

function CompareInteger(i1, i2: Integer): Integer;
begin
  Result := i2-i1;
end;

Grüße
Klaus

[leddl]

Zitat:

Zitat von Klaus01

@sidorion
die Funktion von marabu macht wohl etwas anderes als die Deine

Im Großen und Ganzen nicht ;)

Zitat:

Zitat von Klaus01

die marabu Funktion vergleicht zwei Werte.

... und seine auch ;)

Zitat:

Zitat von Klaus01

Deine suntrahiert zwei Werte.

.. und gibt daher Zahlen <, > und = 0 aus, je nachdem, was für Zahlen übergeben werden. Im Normalfall ist bei so einer Vergleichsfunktion nicht relevant, welche Zahl genau zurückgegeben wird, sondern eher, ob sie < 0 (i1 kleiner i2), > 0 (i1 größer i2) oder = 0 (i1 gleich i2) ist.

Das einzige, was an sidirions Funktion zu bemängeln wäre, ist daß sie gerade verdrehte Werte ausspuckt. Im Normalfall sagt man nämlich "Parameter1 im Vergleich zu Parameter2". Bei ihm ist das genau umgedreht. ;)

//Edit: Was zum Teufel ist "Normall"? :lol: Hab das mal fix in "Normalfall" geändert :lol:

[marabu]

Also mir gefällt die Funktion CompareInteger() von sidorion ausgesprochen gut. Meine ist einfach durch code reuse entstanden - sie hat ursprünglich Zeichenketten verglichen.

@leddl: deine Mängelrüge kann ich nicht nachvollziehen.

Freundliche Grüße vom marabu

[leddl]

Zitat:

Zitat von marabu

Also mir gefällt die Funktion CompareInteger() von sidorion ausgesprochen gut. Meine ist einfach durch code reuse entstanden - sie hat ursprünglich Zeichenketten verglichen.

@leddl: deine Mängelrüge kann ich nicht nachvollziehen.

Freundliche Grüße vom marabu

:gruebel: Mängelrüge? :gruebel: Ich war doch mit der Funktion absolut einverstanden, bis eben auf die vertauschten Elemente. Bei euren beiden Funktionen kommt eben immer genau das andere heraus ;) Natürlich kann man sagen "ist Geschmackssache, welchen Parameter man zuerst heranzieht", aber normalerweise sagt man eben wirklich "Parameter1 im Vergleich zu Parameter2", was ja auch durchaus Sinn macht. Auch in Java ist das bei der compareTo-Methode genau so definiert:
this < that => Ergebnis < 0
this = that => 0
this > that => Ergebnis > 0

[Mobby]

sry leute...aber ich kann euch gerade garnicht folgen. :shock:
ich hab es jetzt auf 3verschiedenen wegen gemacht...also ich hab jeder karte wie oben beschrieben

kartenspiel[1]:='Ka7'...gemacht,
andere variante war:
'Ka7':=inttostr(1) //mit fortlaufenden Zahlen//
und dann die methode, es nach alphabet zu sortieren und dabei jeder karte einen buchstaben //indem fall aa,ab,ac...be// zuzuordnen und dann mit dem "normalen" .Sourted zu ordnen...
nur hat keine der drei varianten zum erfolg geführt...und eure anderen sachen kann ich wie gesagt nicht ganz folgen :gruebel:

[marabu]

Axel, du hast eine Ausdrucksweise - da gibt es doch ein einfaches Heilmittel:

Delphi-Quellcode:

function CompareInteger(i1, i2: Integer): Integer;
begin
  Result := -1 * (i2 - i1);  // genial
end;

Grüße vom marabu

PS: hatte den Dreher zuerst gar nicht gesehen...

[leddl]

Zitat:

Zitat von marabu

Axel, du hast eine Ausdrucksweise

:gruebel: Wie habe ich das jetzt zu verstehen?

Zitat:

Zitat von marabu

- da gibt es doch ein einfaches Heilmittel:
[...]

... oder einfach

Delphi-Quellcode:

function CompareInteger(i1, i2: Integer): Integer;
begin
  Result := i1 - i2;
end;

:zwinker:

[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

[Khabarakh]

Zitat:

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;

:gruebel:

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;

[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