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;