1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with lvHighscore.Items.Add do begin // neuen Highscore-Eintrag machen (auto-sortiert!)
    Caption := 'Narses'; // Name eintragen
    Data := Pointer(Random(100)); // Punktestand zum Sortieren
    SubItems.Add(IntToStr(Integer(Data))); // und für die Ausgabe
    SubItems.Add(DateTimeToStr(Now)); // Datum eintragen
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm2.BtHighscoreeintragenClick(Sender: TObject);
    var
      Zeit1, Zeit2, Differenz: TDateTime;
begin
 Form1.LbEndzeit.Caption:=TimeToStr(now);
    Zeit1:= StrToTime(Form1.LbEndzeit.Caption);
    Zeit2:= StrToTime(Form1.LbAnfangszeit.Caption);
    Differenz := Zeit1 - Zeit2;
with lvHighscore.Items.Add do begin // neuen Highscore-Eintrag machen (auto-sortiert!)
    Caption := EdName.Text; // Name eintragen
    Data := (Differenz); // Punktestand zum Sortieren
    SubItems.Add(TimeToStr(Integer(Data))); // und für die Ausgabe
    SubItems.Add(DateTimeToStr(Now)); // Datum eintragen
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

  var
    Zeit1, Zeit2: TDateTime;
    Differenz: Integer;
begin
  Form1.LbEndzeit.Caption := TimeToStr(now);
  Zeit1 := StrToTime(Form1.LbEndzeit.Caption); // du solltest besser die Zeiten in zwei passenden Variablen aufheben,
  Zeit2 := StrToTime(Form1.LbAnfangszeit.Caption); // statt das Gehampel über Strings zu machen
  Differenz := SecondsBetween(Zeit1,Zeit2); // benötigt DateUtils in den uses
  with lvHighscore.Items.Add do begin // neuen Highscore-Eintrag machen (auto-sortiert!)
    Caption := EdName.Text; // Name eintragen
    Data := Pointer(Differenz); // Zeit in Sekunden zum Sortieren
    SubItems.Add(IntToStr(Integer(Data))); // und für die Ausgabe
    SubItems.Add(DateTimeToStr(Now)); // Datum eintragen
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:

unit FrmMain;

interface

uses
  Windows, {..};

type
  TMainFrm = class(TForm)
    {..}
  public
    function GetHighscoreData: THighscoreData;  //THighscoreData = record..
  end;

implementation

uses
  FrmHighscores;

{.
}

end.
/////////////////////////////////////////////
unit FrmHighscores;

interface

uses
  Windows, {..};

type
  THighscoreFrm = class(TForm)
    {..}
  end;

implementation

uses
  FrmMain;

{..}

end.                    

1:

Label1.text                    

1:

FrmMain.Label1.text                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TMainFrm.ShowHighscores;
var
  aHighscoreFrm: THighscoreFrm;
begin
  aHighscoreFrm := THighScoreFrm.Create;
  try
    aHighScoreFrm.AddHighscore(StrToInt(Edit1.Text));
    aHighscoreFrm.ShowModal;
  finally
    aHighscoreFrm.Free;
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

type
  THighscoreFrm = class(TForm)
    {..}
  private
    FHighscore: Integer;
  public
    procedure AddHighscore(aHighscore: Integer);
  end;

{..}

procedure THighscoreFrm.AddHighscore(aHighscore: Integer);
begin
  //könnte auch zwischenspeichern und dann wenn das Formular gezeigt wird(OnShow)
  //den Namen o.ä. noch einlesen
  FHighscore := aHighscore;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm2.BtHighscoreeintragenClick(Sender: TObject);
begin
  with lvHighscore.Items.Add do begin // neuen Highscore-Eintrag machen (auto-sortiert!)
    Caption := EdName.Text; // Name eintragen
    SubItems.Add(Form1.LbGebrauchteZeit.Caption); // und für die Ausgabe
    SubItems.Add(DateTimeToStr(Now)); // Datum eintragen
  end;
end;                    

1:
2:
3:
4:

procedure TForm2.BtnExitClick(Sender: TObject);
begin
  Form1.Close;
end;                    

1:
2:
3:
4:
5:

// bei Programmende ausführen
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  SaveHighscores;
end;                    

1:
2:
3:
4:

procedure TForm2.FormCreate(Sender: TObject);
begin
  LoadHighscores;
end;                    

1:

if EdName.text= ''                    

1:
2:
3:
4:
5:
6:
7:

      with Form2.lvHighscore.Items.Add do begin // neuen Highscore-Eintrag machen (auto-sortiert!)
        Caption := EdName.Text; // Name eintragen
        SubItems.Add(Form1.LbGebrauchteZeit.Caption); // und für die Ausgabe
        SubItems.Add(IntToStr(Points));
        SubItems.Add(IntToStr(Moves));
        SubItems.Add(DateTimeToStr(Now)); // Datum eintragen
      end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

      // geladene Datei auswerten und in das ListView übertragen
      for i := 0 to Datei.Count-1 do begin // über alle Zeilen der Datei
        Zeile.CommaText := Datei.Strings[i]; // Zeile zerlegen
        if (Zeile.Count = 5) then // Name, Punkte, Datum müssen da sein
          with lvHighscore.Items.Add do begin // neuen Eintrag anlegen
            Caption := Zeile.Strings[0]; // Name eintragen
            Data := Pointer(StrToIntDef(Zeile.Strings[1],0)); // Punktestand zum Sortieren
            SubItems.Add(IntToStr(Integer(Data))); // und für die Ausgabe
            SubItems.Add(Zeile.Strings[2]); // Datum
          end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

      // geladene Datei auswerten und in das ListView übertragen
      for i := 0 to Datei.Count-1 do begin // über alle Zeilen der Datei
        Zeile.CommaText := Datei.Strings[i]; // Zeile zerlegen
        if (Zeile.Count = 5) then // Name, Punkte, Datum müssen da sein
          with lvHighscore.Items.Add do begin // neuen Eintrag anlegen
            Caption := Zeile.Strings[0]; // Name eintragen
            Data := Pointer(StrToIntDef(Zeile.Strings[1],0)); // Punktestand zum Sortieren
            SubItems.Add(IntToStr(Integer(Data))); // und für die Ausgabe
            SubItems.Add(Zeile.Strings[2]); // Datum
            SubItems.Add(Zeile.Strings[3]);
            SubItems.Add(Zeile.Strings[4]);
          end;                    

1:
2:
3:
4:
5:
6:

// Sortiervergleich für die Highscore-Liste
procedure TForm2.lvHighscoreCompare(Sender: TObject; Item1, Item2: TListItem;
  Data: Integer; var Compare: Integer);
begin
  Compare := CompareValue(Integer(Item1.Data),Integer(Item2.Data));
end;                    

1:
2:
3:
4:
5:
6:
7:
8:

// Sortiervergleich für die Highscore-Liste
procedure TForm2.lvHighscoreCompare(Sender: TObject; Item1, Item2: TListItem;
  Data: Integer; var Compare: Integer);
begin
  Compare := CompareValue(Integer(Item1.Data),Integer(Item2.Data));
  Compare := CompareValue(Integer(Item1.Zeile.Strings[3]),Integer(Item2.Zeile.Strings[3]));
  Compare := CompareValue(Integer(Item1.Zeile.Strings[4]),Integer(Item2.Zeile.Strings[4]));
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

// Sortiervergleich für die Highscore-Liste
procedure TForm2.lvHighscoreCompare(Sender: TObject; Item1, Item2: TListItem;
  Data: Integer; var Compare: Integer);
begin
  if Item1.Data = Item2.Data
  then Compare := CompareText(Item1.SubItems[3],Item2.SubItems[3])
  else
  begin Compare := CompareValue(Integer(Item1.Data),Integer(Item2.Data));
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

// Sortiervergleich für die Highscore-Liste
procedure TForm2.lvHighscoreCompare(Sender: TObject; Item1, Item2: TListItem;
  Data: Integer; var Compare: Integer);
begin
  if (Item1.Data = Item2.Data) then // wenn die Punkte/Zeit bei den Elementen gleich sind, dann...
    Compare := CompareText(Item1.SubItems[3],Item2.SubItems[3]) // vergleiche die 5. Spalte (auf Textbasis!)
  else // sonst...
    Compare := CompareValue(Integer(Item1.Data),Integer(Item2.Data)); // vergleiche die Punkte/Zeit
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

      // geladene Datei auswerten und in das ListView übertragen
      lvHighscore.Items.BeginUpdate;
      for i := 0 to Datei.Count-1 do begin // über alle Zeilen der Datei
        Zeile.CommaText := Datei.Strings[i]; // Zeile zerlegen
        if (Zeile.Count = 5) then // Name, Punkte, Datum müssen da sein
          with lvHighscore.Items.Add do begin // neuen Eintrag anlegen
            Caption := Zeile.Strings[0]; // Name eintragen
            Data := Pointer(StrToIntDef(Zeile.Strings[1],0)); // Punktestand zum Sortieren
            SubItems.Add(IntToStr(Integer(Data))); // und für die Ausgabe
            SubItems.Add(Zeile.Strings[2]); // Datum
            SubItems.Add(Zeile.Strings[3]);
            SubItems.Add(Zeile.Strings[4]);
          end;
      end;
      lvHighscore.Items.EndUpdate;
    finally                    

1:

Data := Pointer(StrToIntDef(Zeile.Strings[1],0)); // Punktestand zum Sortieren                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

if (EdName.Text = '') then // Kein Name da?
              EdName.Text := InputBox('Bitte geben Sie einen Namen ein.','Ihr Name:','');
            if (EdName.Text <> '') then begin // nur wenn ein Name da ist...
              ShowMessage('Herzlichen Glückwunsch Sie haben gewonnen!'#13#10#13#10+
                          'Benötigte Zeit in Sekunden: '+LbGebrauchteZeit.Caption+#13#10#13#10+
                          'Sie haben '+FloatToStr(FMoves)+' Fehlversuche gehabt.');
              with Form2.lvHighscore.Items.Add do begin // neuen Highscore-Eintrag machen (auto-sortiert!)
                Caption := EdName.Text; // Name eintragen
                SubItems.Add(Form1.LbGebrauchteZeit.Caption); // und für die Ausgabe
                SubItems.Add(IntToStr(Points));
                SubItems.Add(IntToStr(Moves));
                SubItems.Add(DateTimeToStr(Now)); // Datum eintragen
              end;
              Form2.ShowModal;
            end
            else
              ShowMessage('Kein Name, kein Highscore!');
          end;                    

1:
2:

              SubItems.Add(DateTimeToStr(Now)); // Datum eintragen
                Data := Pointer(StrToInt(SubItems.Add[Points])); // Punktestand zum Sortieren                    

1:

Data := Pointer(StrToInt(SubItems.Add[Points])); // Punktestand zum Sortieren                    

1:

Data := Pointer(SubItems[Points]); // Punktestand zum Sortieren                    

1:

lvHighscore.Items.BeginUpdate;                    

1:

lvHighscore.Items.EndUpdate;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

            if (EdName.Text <> '') then begin // nur wenn ein Name da ist...
              ShowMessage('Herzlichen Glückwunsch Sie haben gewonnen!'#13#10#13#10+
                          'Benötigte Zeit in Sekunden: '+LbGebrauchteZeit.Caption+#13#10#13#10+
                          'Sie haben '+FloatToStr(FMoves)+' Fehlversuche gehabt.');
              with Form2.lvHighscore.Items.Add do begin // neuen Highscore-Eintrag machen (auto-sortiert!)
                Caption := EdName.Text; // Name eintragen
                SubItems.Add(LbGebrauchteZeit.Caption); // und für die Ausgabe
                SubItems.Add(IntToStr(Points));
                SubItems.Add(IntToStr(Moves));
                SubItems.Add(DateTimeToStr(Now)); // Datum eintragen
              end;
              Form2.ShowModal;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

Form2.lvHighscore.Items.BeginUpdate;
              with Form2.lvHighscore.Items.Add do begin // neuen Highscore-Eintrag machen (auto-sortiert!)
                Caption := EdName.Text; // Name eintragen
                SubItems.Add(Form1.LbGebrauchteZeit.Caption); // und für die Ausgabe
                SubItems.Add(IntToStr(Points));
                SubItems.Add(IntToStr(Moves));
                SubItems.Add(DateTimeToStr(Now)); // Datum eintragen
              end;
              Form2.lvHighscore.Items.EndUpdate;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:

procedure TForm1.Button1Click(Sender: TObject);
  var
    Differenz: Integer;
    Zeit1, Zeit2: TDateTime;

  // Herausfinden, ob alle Karten aufgedeckt sind
  function AllCardsOpen: Boolean;
    var
      i: Integer;
  begin
    Result := FALSE; // default: noch nicht alle offen
    for i := MIN to MAX do // über alle Karten
      if (Cards[i].Button.Visible) then // Karte verdeckt?
        Exit; // ja, dann nicht weiter suchen
    Result := TRUE; // alle Karten sind offen
  end;
  
begin
  (Sender as TButton).Visible := FALSE; // Button wegnehmen
  case GameState of
    gsOpenCards0: // kein Feld in der "Warteschlange"
      begin
        Move1 := (Sender as TButton).Tag; // Feld als 1. Zug merken
        GameState := gsOpenCards1; // jetzt ist ein Feld offen
      end;
    gsOpenCards1: // ein Feld ist schon offen
      begin
        Move2 := (Sender as TButton).Tag; // 2. Zug vermerken
        // Pärchen gefunden?
       ...
        end
        else begin
          GameState := gsOpenCards2;
          Moves := Moves +1; // sonst ein Zug mehr
        end;
      end;
    gsOpenCards2: // zwei (ungleiche) Felder vom Zug vorher noch offen
      begin
        Cards[Move1].Button.Visible := TRUE; // alte Felder verdecken
        Cards[Move2].Button.Visible := TRUE;
        Move1 := (Sender as TButton).Tag; // den neuen Zug vermerken
        GameState := gsOpenCards1;
      end;
  end;
end;                    

1:

          Data := Pointer(Form2.lvHighscore.Items[1]); // Punktestand zum Sortieren                    

1:

Data :=  Pointer(Form2.lvHighscore.Items[StrToInt(LbGebrauchteZeit.Caption)]); // Punktestand zum Sortieren                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

Form2.lvHighscore.Items.BeginUpdate;
              with Form2.lvHighscore.Items.Add do begin // neuen Highscore-Eintrag machen (auto-sortiert!)
                Caption := EdName.Text; // Name eintragen
                SubItems.Add(Form1.LbGebrauchteZeit.Caption); // und für die Ausgabe
                SubItems.Add(IntToStr(Points));
                SubItems.Add(IntToStr(Moves));
                SubItems.Add(DateTimeToStr(Now)); // Datum eintragen
                Data :=  Pointer(Form2.lvHighscore.Items[StrToInt(LbGebrauchteZeit.Caption)]); // Punktestand zum Sortieren
              end;
              Form2.lvHighscore.Items.EndUpdate;
              Form2.ShowModal;                    

1:
2:
3:
4:
5:
6:

case GameState of
    gsOpenCards0: // kein Feld in der "Warteschlange"
      begin
        Move1 := (Sender as TButton).Tag; // Feld als 1. Zug merken
        GameState := gsOpenCards1; // jetzt ist ein Feld offen
      end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

begin
  (Sender as TButton).Visible := FALSE; // Button wegnehmen
  case GameState of
    gsOpenCards0: // kein Feld in der "Warteschlange"
      begin
      if Moves := '' AND Points :=''
      then begin
         LbAnfangszeit.Caption := TimeToSTr(now)
         Move1 := (Sender as TButton).Tag; // Feld als 1. Zug merken
         GameState := gsOpenCards1; // jetzt ist ein Feld offen
           end
      else begin
        Move1 := (Sender as TButton).Tag; // Feld als 1. Zug merken
        GameState := gsOpenCards1; // jetzt ist ein Feld offen
      end;
      end;                    

1:
2:
3:
4:
5:
6:

 end;
  GameState := gsOpenCards0; // kein Feld offen
  Moves := 0;
  Points := 0;
  LbAnfangszeit.Caption:= '';
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

begin
  (Sender as TButton).Visible := FALSE; // Button wegnehmen
  case GameState of
    gsOpenCards0: // kein Feld in der "Warteschlange"
        if LbAnfangszeit.Caption= ''
        then begin
        LbAnfangszeit.Caption := TimeToStr(now);
        Move1 := (Sender as TButton).Tag; // Feld als 1. Zug merken
        GameState := gsOpenCards1; // jetzt ist ein Feld offen
        end
        else begin
        begin
        Move1 := (Sender as TButton).Tag; // Feld als 1. Zug merken
        GameState := gsOpenCards1; // jetzt ist ein Feld offen
        end;
      end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

// Sortiervergleich für die Highscore-Liste
procedure TForm2.lvHighscoreCompare(Sender: TObject; Item1, Item2: TListItem;
  Data: Integer; var Compare: Integer);
begin
  if (Item1.Data = Item2.Data) then // wenn die Punkte/Zeit bei den Elementen gleich sind, dann...
    Compare := CompareText(Item1.SubItems[3],Item2.SubItems[3]) // vergleiche die 4. Spalte (auf Textbasis!)
  else // sonst...
    Compare := CompareValue(Integer(Item1.Data),Integer(Item2.Data)); // vergleiche die Punkte/Zeit
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

// Sortiervergleich für die Highscore-Liste
procedure TForm2.lvHighscoreCompare(Sender: TObject; Item1, Item2: TListItem;
  Data: Integer; var Compare: Integer);
begin
  if (Item1.Data = Item2.Data) then // wenn die gebrauchte Zeit bei den Elementen gleich ist, dann...
    Compare := CompareText(Item1.SubItems[3],Item2.SubItems[3]) // vergleiche die 4. Spalte (auf Textbasis!)
  else // wenn die gebrauchte Zeit nicht gleich ist
    Compare := CompareValue(Integer(Item1.Data),Integer(Item2.Data)); // vergleiche die Punkte/Zeit
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

// Sortiervergleich für die Highscore-Liste
procedure TForm2.lvHighscoreCompare(Sender: TObject; Item1, Item2: TListItem;
  Data: Integer; var Compare: Integer);
begin
  if (Item1.Data = Item2.Data) then // wenn die gebrauchte Zeit bei den Elementen gleich ist, dann...
    Compare := CompareText(Item2.SubItems[2],Item1.SubItems[2]) // vergleiche die 4. Spalte (auf Textbasis!)
  else // wenn die gebrauchte Zeit nicht gleich ist
    Compare := CompareValue(Integer(Item1.Data),Integer(Item2.Data)); // vergleiche die Punkte/Zeit
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

else begin
        if LbSpieler.Caption= 'Spieler 1'
        then begin
          GameState := gsOpenCards2;
          LbSpieler.Caption:= 'Spieler 2';
          Moves := Moves +1; // sonst ein Zug mehr
          ShowMessage('Spieler 2 ist an der Reihe.');
        end
        else begin
          GameState := gsOpenCards2;
          Moves := Moves +1; // sonst ein Zug mehr
          ShowMessage('Spieler 1 ist an der Reihe.');
          LbSpieler.Caption:= 'Spieler 1'
        end;
        end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

           with Form2.lvHighscore.Items.Add do begin // neuen Highscore-Eintrag machen (auto-sortiert!)
                Caption := EdName.Text; // Name eintragen
                SubItems.Add(Form1.LbGebrauchteZeit.Caption); // und für die Ausgabe
                SubItems.Add(IntToStr(Points));
                SubItems.Add(IntToStr(Moves));
                SubItems.Add(DateTimeToStr(Now)); // Datum eintragen
                Data :=  Pointer(Moves); // Gebrauchte Zeit zum Sortieren
              end;
              Form2.lvHighscore.Items.EndUpdate;
              Form2.ShowModal; //Zeige die Highscoreliste
            end                    

1:

                Data :=  Pointer(Moves); // Gebrauchte Zeit zum Sortieren                    

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm2.lvHighscoreCompare(Sender: TObject; Item1, Item2: TListItem;
  Data: Integer; var Compare: Integer);
begin
  if (Item2.SubItems[1] = Item1.SubItems[1]) then // wenn die gebrauchte Zeit bei den Elementen gleich ist, dann...
    Compare := CompareText(Item1.SubItems[2],Item2.SubItems[2]) // vergleiche die 4. Spalte (auf Textbasis!)
  else // wenn die gebrauchte Zeit nicht gleich ist
    Compare := CompareValue(Integer(Item2.SubItems[1]),Integer(Item1.SubItems[1])); // vergleiche die Punkte/Zeit
end;                    

1:

Compare := CompareValue(Integer(Item2.SubItems[1]),Integer(Item1.SubItems[1])); // vergleiche die Punkte/Zeit (*2)                    

1:

  Data :=  Pointer(Moves); // Gebrauchte Zeit zum Sortieren (*3)                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

  Image1.Visible:= true;
  Image2.Visible:= true;
  Image3.Visible:= true;
  Image4.Visible:= true;
  Image5.Visible:= true;
  Image6.Visible:= true;
  Image7.Visible:= true;
  Image8.Visible:= true;
  Image9.Visible:= true;
  Image10.Visible:= true;
  Image11.Visible:= true;
  Image12.Visible:= true;
  Image13.Visible:= true;
  Image14.Visible:= true;
  Image15.Visible:= true;
  Image16.Visible:= true;
  Image17.Visible:= true;
  Image18.Visible:= true;                    

1:
2:

  for i := MIN to MAX do begin
    Cards[i].Button.Visible := TRUE; // Button anzeigen                    

1:
2:

  for i := MIN to MAX do begin
    Cards[i].Button.Visible := TRUE; // Button anzeigen