Delphi-PRAXiS
Seite 2 von 5     12 34     Letzte »    

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Programmzustand speichern und laden (https://www.delphipraxis.net/2024-programmzustand-speichern-und-laden.html)

nailor 4. Jan 2003 21:52

Du speicherst unabhängig von der Eingabe im "speichern unter"-Dialog in die game.ini. Speicher statt in game.ini in die Datei "savedialog1.filename"
Dann speichert er in die Datei, die du dort angibst!
Beim Laden genauso!

trebormillenium 4. Jan 2003 22:25

Für ganz doofe :-)

Also angenommen ich will eine URL speichern und dann später wieder laden! (steht z.Z. in einem Edit Feld)

Wie geht das?

Mit Beispiel wäre schön :D

RomanK 4. Jan 2003 22:55

Hoi,

Zitat:

Für ganz doofe
Ganz doof können die ja nicht sein, immerhin haben sie's bis in das Forum geschaft :mrgreen:
Zum Problem:

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
  with TIniFile.Create('game.ini') do
  try
    WriteString('URL', 'Letzter url', edit1.Text);
    finally
    Free;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 with TIniFile.Create('game.ini') do
  try
    edit1.Text := ReadString('URL', 'Letzter url', '');
    finally
    Free;
  end;
end;
und bei uses IniFiles nich vergessen:

Delphi-Quellcode:
uses
  ..., IniFiles;

nailor 4. Jan 2003 23:12

und beim speichern:

Delphi-Quellcode:
if savedialog1.execute then begin
  with TIniFile.Create(savedialog1.filename) do
    try
      //alles dein Zeug, zB
      WriteBool('Optionen', 'Computer', 'die variable, die angibt, ob gegen Computer oder Mensch gespielt wird');
    finally
      Free;
    end;
end;
[Edit=FuckRacism]aus " wird ' :zwinker: [/Edit]

RomanK 4. Jan 2003 23:21

Jo aber eine String bitte in ' und nicht in "
aus:
Delphi-Quellcode:
if savedialog1.execute then begin
  with TIniFile.Create(savedialog1.filename) do
    try
      //alles dein Zeug, zB
      WriteBool('Optionen', 'Computer', "die variable, die angibt, ob gegen Computer oder Mensch gespielt wird");
    finally
      Free;
    end;
end;
wird
Delphi-Quellcode:
if savedialog1.execute then begin
  with TIniFile.Create(savedialog1.filename) do
    try
      //alles dein Zeug, zB
      WriteBool('Optionen', 'Computer', [color=#e50000]'[/color]die variable, die angibt, ob gegen Computer oder Mensch gespielt wird[color=#f60000]'[/color]);
    finally
      Free;
    end;
end;
PS: Ich bin mal so frei und korrigiere das in deinem Post.

trebormillenium 4. Jan 2003 23:24

Hej danke! das klappt sogar! Vielen Dank :lol:

Madeleine 5. Jan 2003 00:12

ok, hiermit oute ich mich mal als dumm,
ich hab immer noch nicht verstanden, was ich falsch gemacht habe und warum es nicht klappt! Erklärts doch bitte nochmal so, das es auch Mädchen verstehen! :mrgreen:

nailor 5. Jan 2003 00:13

Dir ist klar, dass das aber grade KEIN String sein soll. Es soll ein ein Boolean sein. Ist so eine Art Kommentar. Aber auch kein echter Kommentar, weil hinterher ja etwas dafür hin muss. Sollte "Hier muss jetzt das einegfügt werden" heissen.

...Ich liebe diese rekursiven Erklärungen.

Wir können ja mal ein Zeichen zur Markierung von sowas ausmachen. Vielleicht "µ"? Nach der neuen Regel dann µµµ. 8)

PS: Jedenfalls klappt es!

trebormillenium 5. Jan 2003 00:35

Naja da ich es ja jetzt (hoff ich) verstanden habe erkläre ichs dir!

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
// hier erstellt der die *.ini File wo das Programm alles drin speichert
  with TIniFile.Create('game.ini') do
  try
// hier speichert er den Text der im edit-Feld steht also der erstellt eine überschrift URL und dann einen eintrag mit Letzter url! Und dahinter schreibt er dann den text des edit feldes! sieht dann so aus
// Hier ist der Eintrag in der ini-file
[URL]
Letzter url=http://www.delphipraxis.net
__________________________________________________
    WriteString('URL', 'Letzter url', edit1.Text);
    finally
    Free;
  end;
end;

//hier liest er dann die ini-datei aus!
procedure TForm1.Button2Click(Sender: TObject);
begin
with TIniFile.Create('game.ini') do
  try
//hier sucht er sich die "überschrift" URL und den "Eintrag" letzter url, und schreibt die dann in das edit feld!
    edit1.Text := ReadString('URL', 'Letzter url', '');
    finally
    Free;
  end;
end;
So hoffe du hasts vestanden und ich hoffe das ichs richtig erklärt habe :-) Gehe jetzt penne bis morgen!

PS: fast vergeßen :-)

Noch bei "uses" noch "inifiles" hizuschreiben!

Dann noch viel Spass und bis "morgen"!! :thuimb:

Madeleine 5. Jan 2003 00:46

Ich bin scheinbar wirklich zu dumm, habe 'game.ini' in 'savedialog.filenname' geändert....hoffentlich war es das, was ihr gemeint habt und das dumme Ding speichert trotzdem nur ein Spiel!!! :evil: gibt es irgendwas bei diesem Savedialog und Opendialog -Zeug zu beachten???


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:30 Uhr.
Seite 2 von 5     12 34     Letzte »    

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