Das Skat-Projekt

[tankm26]

MoinMoin!

Wie kann man diese Funktion so umbauen, dass alle Buben entsprechend ihrer Ordnung nach rechts sortiert werden?

Delphi-Quellcode:

 

Das hat sich erledigt.

mfg

Wieland


edit: Habe selber eine Möglichkeit gefunden, muss sie allerdings noch ausarbeiten.

Delphi-Quellcode:

Das auch!

[tankm26]

Wer kann mir hier mit dem richtigen Einordnen von Herz- und Karo-Bube helfen?

Die Variable hz1 gibt die Position für den Herz-Buben an.

Delphi-Quellcode:

Das hab ich geschafft.

thx, Wieland

[tankm26]

So, die Buben werden jetzt richtig sortiert. Geht das eleganter?

Wie bekomme ich die Karten wieder in ihre ursprüngliche Reihenfolge?
edit: damit z.B.

Procedure SelectionSort;
var i, j, min : Integer;
Begin
For i:= 1 to N-1 Do
Begin
min:= i;
For j:= i+1 To N Do
If (Data[j] < Data[min]) Then min:= j;

SwapValues( i, min);
End;
End;

Delphi-Quellcode:

Das war jetz' zulang (Bubensortier-Code)

[tankm26]

Sagt mal, was ist am unteren Code falsch?

[Error] skat1.pas(364): [Es geht um items] Class does not have a default property

Delphi-Quellcode:

procedure TForm1.nullspiel (Items: TStringgrid);
var
  done: boolean;
  i, n: integer;
  Dummy: string;
begin
  n:=10;
  repeat
    done := true;
    for i := 0 to n - 2 do 
      if Items[i] > Items[i + 1] then begin
        Dummy := Items[i];
        Items[i] := Items[i + 1];
        Items[i + 1] := Dummy;        done := false;
      end;
  until done;
end;

Danke, Wieland

[Nikolas]

Wenn du nur Grid[1] angibst, weiss Delphi nicht, welche Eigenschaft des Grids du auslesen willst.
Es muss Grid.Cells[x,y] heissen, du musst also auch noch eine Koordinate mehr angeben.

[Airblader]

Wieso löschst du denn die ganzen Codes? :gruebel:
Also ggü. den Leuten, die sowas vllt. mal suchen ist das ja nicht gerade nett ;)

MfG, air

[tankm26]

gut, ich lasse sie in zukunft drin.

Allerdings wird der Thread auch sehr lang, man muss alle Quelltexte erstmal zuklappen.


Außerdem kann man sich (ja, es ist umständlicher) auch das Programm jeweils herunterladen.


Wieland