![]() |
Ordnen vo Zahlen
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? |
Re: Ordnen vo Zahlen
Guten Morgen,
schau mal bitte hier -> ![]() Grüße Klaus |
Re: Ordnen vo Zahlen
Wenn du die die Beispiele auf meiner HP ansiehst kanst du dem Rechner bei Sortieren sogar zusehen ;)
|
Re: Ordnen vo Zahlen
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? |
Re: Ordnen vo Zahlen
Kanst Du das bitte einmal etwas verständlicher erklären was Du willst?
Grüße Klaus |
Re: Ordnen vo Zahlen
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:
jeder karte eine zahl zugeordnet...nun ist die frage wie ich das nun sortieren kann...ich blick das einfach nicht...
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; |
Re: Ordnen vo Zahlen
warum organisierst Du das KartenSpiel nicht in einem
Array of String;
Delphi-Quellcode:
So hat dann jede Karte seine Wertigkeit in der Position in dem Array definiert.
type
TKartenSpiel = Array [1..32] of string; var KartenSpiel: TKartenSpiel; begin KartenSpiel[1]:='Karo 7'; KartenSpiel[2]:='Karo 8'; ... end; 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 |
Re: Ordnen vo Zahlen
:wall:
ich denke halt meist viel zu kompliziert... |
Re: Ordnen vo Zahlen
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:
Viel Spaß beim Analysieren
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; marabu |
Re: Ordnen vo Zahlen
..bis auf CompareInteger:
Delphi-Quellcode:
function CompareInteger(i1, i2: Integer): Integer;
begin Result := i2-i1; end; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:52 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz