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 -> http://www.delphipraxis.net/internal...ieren+tlistbox 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; |
Re: Ordnen vo Zahlen
@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:
Grüße
function CompareInteger(i1, i2: Integer): Integer;
begin Result := i2-i1; end; Klaus |
Re: Ordnen vo Zahlen
Zitat:
Zitat:
Zitat:
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: |
Re: Ordnen vo Zahlen
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 |
Re: Ordnen vo Zahlen
Zitat:
this < that => Ergebnis < 0 this = that => 0 this > that => Ergebnis > 0 |
Re: Ordnen vo Zahlen
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: |
Re: Ordnen vo Zahlen
Axel, du hast eine Ausdrucksweise - da gibt es doch ein einfaches Heilmittel:
Delphi-Quellcode:
Grüße vom marabu
function CompareInteger(i1, i2: Integer): Integer;
begin Result := -1 * (i2 - i1); // genial end; PS: hatte den Dreher zuerst gar nicht gesehen... |
Re: Ordnen vo Zahlen
Zitat:
Zitat:
Delphi-Quellcode:
:zwinker:
function CompareInteger(i1, i2: Integer): Integer;
begin Result := i1 - i2; end; |
Re: Ordnen vo Zahlen
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:
Dann ist doch die niedrigste Karte auf Position 1
type
TKartenSpiel = Array [1..32] of string; var KartenSpiel: TKartenSpiel; begin KartenSpiel[1]:='Karo 7'; KartenSpiel[2]:='Karo 8'; ... end; 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:
Die Karten kannst Du dann anhand ihres Wertes vergleichen.
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;
Delphi-Quellcode:
Ansonsten sehe ich nicht wo Dein Problem ist.
if findvalue(Kartenspiel,'Karo 7') < findValue(Kartenspiel,'Herz 8') then
// tue etwas else // tue etwas anderes Grüße Klaus |
Re: Ordnen vo Zahlen
Zitat:
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; |
Re: Ordnen vo Zahlen
da habe ich mich mit der Funktion nicht besonders geschickt angestellt.
Delphi-Quellcode:
so geht es auch wenn man das exit in der for Schleife nicht mag.
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; Grüße Klaus |
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:11 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz