Memory-Spiel: Ideen

[Mavarik]

Die Delphi Version ist aber ausreichend für ein Memory Game!

Wo liegt den Dein Problem?

[XardasLP]

Bis jetzt noch keins, brauche aber trotzdem später bisschen Unterstützung.

Habe bis April Zeit, also fange in Februar Ferien mal an. Wollte mich nur mal vor informieren.

[XardasLP]

Pff, wenn ich das Lucky Memory sehe dann kann ich das ja schon nicht nachvollziehen.

Wenn ich euch mal schicke wie weit wir mit Klassen sind dann hilft mir das hier sooooo weit.
-.-

[Perlsau]

Und was möchtest du jetzt von den Usern der Delphi-Praxis konkret? Was erwartest du?

[Luckie]

Dann fang mit was einfacheren an. Schreibt dir ein Programm zum Umrechnen von Temperaturen mit Klassen. Oder lies dich hier mal ein: http://michael-puff.de/Programmierung/Delphi/Tutorials/ -> Klassen_in_Delphi

[XardasLP]

Das bringt ja nicht viel... brauche das ja an einem komplexen Projekt, weiß nicht mal was ich nehmen soll. Also Klasse Spieler 1, Spieler2, Gewonnen, Verloren oder jedes Feld einzeln als Klasse?

[citybreaker]

Zitat von XardasLP:

Das bringt ja nicht viel... brauche das ja an einem komplexen Projekt, weiß nicht mal was ich nehmen soll. Also Klasse Spieler 1, Spieler2, Gewonnen, Verloren oder jedes Feld einzeln als Klasse?

Hallo XardasLP,

mir würden als Klassen spontan zum Thema Memory folgende einfallen: Spieler, Spielfeld und Karte. Die einzelen Spieler, also Spieler 1 und 2 wären in dem Fall Objekte / Instanzen von der Klasse Spieler.

[Luckie]

Zitat von XardasLP:

Das bringt ja nicht viel...

Doch. Das ist an einem Nachmittag gemacht und du bekommst ein Gefühl wie das mit den Klassen funktioniert. Dann würdest du auch erkennen, dass eine Klasse für "Gewonnen" und "Verloren" Unsinn ist. Das ist eine Methode der Klasse "Spiel" (zum Beispiel).

[XardasLP]

Hmm, naja immer der Reihe nach erstmal.

Ich benötige einen Login und eine Registrierung (falls man einen neuen Nutzer anlegen möchte).

Also beim eingeben des Benutzernamens und des Passwortes wird gesucht, ob es eine entsprechende .txt Datei mit dem Namen des Benutzers gibt.

Das bedeutet...
Benutzername: Xardas
Passwort: Test

procedure TFormLogin.Button_Login.Click usw.
dann entsteht eine .txt Datei mit dem Namen Xardas.txt
dort wird das Passwort mit Ascii und einem gewählten Schlüssel(programmintern) verschlüsselt.

Mein Problem ist jetzt, dass ich bis jetzt nur eine Verschlüsselung für einen Nutzer gemacht habe und dort der Benutzername + einen Schlüssel verschlüsselt war. (wie oben beschrieben mit Ascii + Schlüssel um die Zahlen zu ändern)

Jetzt muss das Programm aber suchen, sobald ein zweiter Nutzer kommt der auch Xardas heißt, ob es diesen nicht schon gibt.
Das bedeutet Xardas.txt darf nicht überschrieben werden, also Fehlermeldung!

Code:

 if (Editpw.Text = '') or (Edits.Text = '') then
  begin
  showmessage('Bitte Eingaben überprüfen!');
  Editpw.Text := '';
  Edits.Text := '';
  end
    else
    begin
   //if editpw.Text ='12345'
    assignfile (tf, 'pw.txt');    //Die Prozedur weist einer Dateivariablen den Namen einer externen Datei zu.
   reset(tf);                     //Die Prozedur offnet eine vorhandene Datei
    {readln(tf,zeile);
    if zeile = Editpw.text}
   passw:='';
    s:=strtoint(edits.Text);
    while not eof(tf) do
      begin
      readln(tf,zeile);
      a:=strtoint(zeile);
      z:=chr(a-s);
      passw:=passw +z;
      end;

    if passw = Editpw.text
      then begin
         formstart.Show;
         formmain.Visible:=false;

           end
            else begin
                  if anz<2 then
                         begin
                          showmessage('Passwort Falsch !');
                          anz:=anz+1;
                          editpw.Clear;
                          edits.Clear;
                          editpw.SetFocus;
                          end
                          else
                              begin
                               anz:=anz+1;
                               if anz=3
                               then begin
                                showmessage('Sie besitzen keine Zugangsberechtigung!');
                                close;
                                   end;
                  closefile(tf);
                  end;
       end;
end;
end;

Das ist die alte beschrieben Sache...
bei der neuen weiß ich jetzt nicht wie ich dafür sorge das er die Datei nicht überschreibt und ich dann eine Meldung bringen kann. [showmessage('Dieser Nutzer existiert bereits!')

Bis jetzt so weit:

Code:

var
  FormLogin: TFormLogin;
  Benutzername: string;
  tf: textfile;

implementation

uses URegistrierung;

{$R *.dfm}

procedure TFormLogin.Button_RegClick(Sender: TObject);
{1}begin
      FormReg.Show;
      FormLogin.ShowHint := True;
{1}end;

procedure TFormLogin.Button_LoginClick(Sender: TObject);
{1}begin
   if (Edit_Benutzername.Text = '') or (Edit_PW.Text = '') then
      {1}begin
          showmessage('Bitte überprüfen Sie Ihre Eingaben!');
          Edit_Benutzername.Text := '';
          Edit_PW.Text := '';
      {1}end
            else
         {2}begin
              Benutzername := Edit_Benutzername.Text;
              assignfile(tf,Benutzername+'.txt');
              reset(tf);
              closefile(tf);
         {2}end


end;

Geht das mit dem

Code:

assignfile(tf,Benutzername+'.txt');

, weil das ja eine vorhandene Datei normalerweise öffnet.
Bräuchte eine normale Savetofile[] Variante. //NACHTRAG: Ok gut ich schreibe den Inhalt der Edit-Felder in ein unsichtbares MemoFeld und mache dann Memo.Lines.SaveToFile...

[Jumpy]

Ok gut ich schreibe den Inhalt der Edit-Felder in ein unsichtbares MemoFeld und mache dann Memo.Lines.SaveToFile...[/QUOTE]

Schau dir mal die Klasse TStringlist an. Das mach mehr Sinn als ein unsichtbares Memo.
Die Funktion FileExists(Dateiname) kann dir sagen, ob eine Datei mit dem Namen des Benutzers schon existiert.
Statt AssignFile usw. kannst du dann diese Datei in eine StringList laden und damit arbeiten, oder falls die Datei bisher nicht existierte, die entsprechenden Infos in die StringList schreiben und dann unter dem gewünschten Namen abspeichern.


Du könntest dir aber auch mal anschauen, was es mit Ini-Dateien auf sich hat, auch diese könnte man für den Anfang nutzen, um solche Dinge zu speichern. Da könnte man in nur einer Datei, für alle Nutzer die gewünschten Infos speichern, z.B. in dem man für jeden Nutzer eine Sektion anlegt.
Pro Nutzer eine Datei erscheint mir nämlich unnötig kompliziert.