Highscore

[Gregor00]

Hallo Leute

bin mir nich ganz sicher ob mein Problem in dieses Forum gehört bin noch neu hier :shock:
Also mein problem is Folgendes: ich bin grad dabei nen kleines Spiel zu proggen und will auch ne Highscore hinzufügen: Aber diese funktioniert einfach nicht so wie sie soll. Ich will sie mit einer Listbox realisieren, also name und Punktzahl in einer Listbox. Ohne die namen währe es ja kein problem, aber da die Namen ja Strings sind funktionieren die Sortieralgorithmen logischerweise nicht.
Also lautet meine frage: Löse ich dieses prob?? Vielleicht gibt es ja auch einfachere möglichkeiten (nicht mit einer Listbox), wenn ja, welche wären das??

Also vielen Dank schon mal für alle antworten 8)
gregor

[Marco Haffner]

Nimm eine TListView und setze ViewStyle auf vsReport.

[neolithos]

Halte die Daten doch in einer Liste von Records / Klassen (TList, TObjectList).

Diese Klassen haben eine anpassbare Sortier-Funktion.

Die Daten würde ich per Owner-Data-List darstellen um rudimentäre Daten zu vermeiden.

+ Owner-Draw zur Verschönerung weil es ja ein Spiel werden soll.

[Gregor00]

@ marco Haffner

Danke schon mal für den Tipp, ich komm aber mit der TListView net ganz klar. Ich hab mit der noch nie gearbeitet (lern Delpi erst seid 2 Jahren in der schule) und die Online- Hilfe konnte mir auch nicht wirklich helfen. :roll:
Kannst du (oder jemand anderes) mir nochmal genauere Anweisungen geben??

@ neolithos
Auch danke für die Hilfe, die Möglichkeit finde ich aber irgentwie zu kompliziert, da muss es doch was einfacheres geben....

cu
gregor

[Tpercon]

Hier mal schnelkl das Einfügen eines Eintrages im ListView:

Delphi-Quellcode:

var ListItem: TListItem;
begin
  ListItem := ListView.Items.Add;
  ListItem.Caption := 'Caption';
  ListItem.SubItems.Add('1. SubItem');

Sowas müßte aber eigentlich in der OH zu finden sein. Ansonsten wirst du auch hier im Forum fündig.

[Gregor00]

ok danke Tpercon, hast mir sehr geholfen.
Sorry wenn ich nerve, aber alles ist jetzt immernoch nicht ganz klar:
Ich weiß nicht wie ich einträge Sortieren soll. Ich mein jetzt nicht die Namen sondern die "Untertitel" der Namen, welche die gewonnene Punktzahl darstellen sollen. ich hab#s schon selber versucht bekomme aber immer nur ne Zugriffsverletztung.... als ergebnis :oops:

[Alexander]

Kuck dir mal den Source auf der Seite an:
http://www.swissdelphicenter.ch/de/showcode.php?id=1103

Da steht zwar noch etwas mehr, sollte dir aber dennohc helfen :mrgreen:

[Gregor00]

hab mir grad den link angesehen.. sieht ja wahnsinnig kompliziert aus...
versteh ich fast kein wort von.
Da muss es doch noch ne viel einfachere Möglichkeit geben, z.B. mit den ganz normalen Sortieralgorithmen. oder geht das etwa nicht???

[kiar]

versuche mal das , damit wird bei einem klick auf column sortiert

Delphi-Quellcode:

procedure TForm1.listview1ColumnClick(sender:TObject;Column:TListColumn);

begin
    ColumnToSort := Column.Index;
    (Sender as TCustomListView).AlphaSort;

end;

procedure TForm1.ListView1Compare(Sender: TObject;
              Item1, Item2: TListItem;
                                  Data: Integer;
                                  var Compare: Integer);
var
  i:integer;
begin
       if ColumnToSort = 0 then
          Compare := CompareText(Item1.Caption,Item2.Caption)
       else begin
          i := ColumnToSort - 1;
          Compare := CompareText(Item1.SubItems[i],Item2.SubItems[i]);
  end;
end;

[edit=Daniel B]Delphi-Tags korrigiert Mfg, Daniel B[/edit]

[Alexander]

Zitat:

hab mir grad den link angesehen.. sieht ja wahnsinnig kompliziert aus...
versteh ich fast kein wort von.
Da muss es doch noch ne viel einfachere Möglichkeit geben, z.B. mit den ganz normalen Sortieralgorithmen. oder geht das etwa nicht???

Ich habe ja gesagt, dass es etwas mehr ist als du willst. Hätte aber man bestimmt hinbiegen könenn.
Schließlich lernt man ja auhc daraus.