Hallo,
bei folgendem Code abschnitt wird immer nur der Name
gespeichert, obowhl eigentlich beides gespeichert werden soll.

markieren

Delphi-Quellcode:

  // Speichern
  Ini:=TIniFile.Create(ExtractFilePath(application.Exename)+'data.ini');
  Ini.WriteString('Optionen', 'Name', Spiel.Edit2.Text);
  Ini.WriteString('Optionen', 'Punkte', Spiel.Highscore.Text);
  Ini.Free;

Ini.SaveToFile('...\...ini'); Sorry, hab was verwechselt.

Du machst schon alles richtig, so wird normalerweise beides gespeichert, ich hab's getestet, bei mir geht's.

Sorry, nochmal für obigen Post.

Des ist ja doof, bei allen klappt es wieder nur bei mir nicht,
kann es vielleicht daran liegen wie ich es überprüfe?

markieren

Delphi-Quellcode:

(* Punkte = UpDown an einem Edit feld *)
if Punkte.Position > StrToInt(Highscore.Text) then
  // Speichern
  ....

Also eigentlich sollte das gehen.

Wenn du dir nicht sicher bist, ob die If Abfrage hinhaut, dann gib sie doch
mal raus?!

Ich arbeite viel mit den Ini Files, weils ne einfache und schnelle Lösung ist,
Configs usw. zu speichern.

Ich verwende sie sogar um kleine Memo-Felder abzuspeichern.

zum Schreiben:

markieren

Code:

 c := 0;
   WriteString('Sonstige Infos', 'count', inttostr(sonstiges.Lines.Count));
   while (c<(sonstiges.Lines.Count)) do
   begin
     WriteString('Sonstige Infos', 'sonstiges'+inttostr(c), sonstiges.Lines.Strings[c]);
     c := c + 1;
   end;

zum Lesen:

markieren

Code:

 sonstiges.Lines.Clear;
   c := 0;
   max := strtoint(ReadString('Sonstige Infos', 'count', '0'));
   while (c<max) do
   begin
     sonstiges.Lines.Add(ReadString('Sonstige Infos', 'sonstiges'+inttostr(c), ''));
     c := c + 1;
   end;

Mfg Sonic

Probier mal statt:
ExtractFilePath(application.Exename) das hier:
ExtractFilePath(Paramstr(0))

@alex: Wenn seine Ini im Projekt-Ordner ist, dann kann's daran wohl nicht liegen.

Nuja, die if abfrage muss ja eigentlich klappen,
schließlich wird ja der Name schon gespeichert.

@Matze Ist im Programm Ordner.

---->> Edit <<----
Dies ist mein Dreihunderster beitrag! *froi*

schreib das ganze mal in try-finally block rein !

markieren

Delphi-Quellcode:

try
 Ini.create....
 Ini.write...
finally
 Ini.free;

gruss

Zeig mal alles. Also auch den kompleztten if-Block drumrum, so hat das keinen Sinn.