Problem mit dem abspeichern in einer Ini

[citybreaker]

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

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;

[Matze]

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

[Matze]

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

Sorry, nochmal für obigen Post.

[citybreaker]

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

Delphi-Quellcode:

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

[sonic]

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:

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:

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

[Alexander]

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

[Matze]

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

[citybreaker]

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*

[MrKnogge]

schreib das ganze mal in try-finally block rein !

Delphi-Quellcode:

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

gruss

[Luckie]

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