Problem mit dem abspeichern in einer Ini

[Wormid]

Hast Du die Ini mal mit einem Texteditor geöffnet? Stehen die Werte da auch wirklich nicht drin?

Nicht das das speichern funktioniert, aber das einlesen nicht... :mrgreen:


Gruß

Wormid

[scp]

Zitat:

Zitat von MrKnogge

schreib das ganze mal in try-finally block rein !

Delphi-Quellcode:

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

gruss

Stimmt, create allerdings ausserhalb:

Delphi-Quellcode:

Ini := TIniFile.create....
try
 Ini.write...
finally
 Ini.free;
end;

[edit]Immer diese Flücktigkeitsfehler :-)[/edit]

[citybreaker]

Zitat:

Nicht das das speichern funktioniert, aber das einlesen nicht...

Funny! :-D

In der Ini File steht:

Code:

[Optionen]
Name=Citybreaker
Punkte=5

Die If Abfrage sieht folgendermaßen aus!

Delphi-Quellcode:

  begin
    Dead;
    Spiel.Power.Progress := Spiel.Power.Progress-10;
    if Spiel.Power.Progress = 0 then
    begin
      Player.Dead;
      Spiel.Timer.Enabled := false;
      Spiel.Draw.Visible := false;
      Spiel.GameOver.Visible := true;
      if Spiel.Punkte.Position > StrToInt(Spiel.Highscore.Text) then
      begin
        Spiel.Label3.Visible := true;
        Spiel.Edit2.Visible := true;
        Spiel.Button1.Visible := true;
      end;
    end;
  end;

Es wird ein Editfeld für den Namen und ein Button zum bestätigen sichtbar!
Wenn man auf den Button klickt. Soll der Name gespeichert werden!

Delphi-Quellcode:

var Ini: TInifile;
begin
  // Speichern
  Ini:=TIniFile.Create(ExtractFilePath(application.Exename)+'data.dat');
  Ini.WriteString('Optionen', 'Name', Spiel.Edit2.Text);
  Ini.WriteString('Optionen', 'Punkte', Spiel.Highscore.Text);
  Ini.Free;
  // Ende
  Spiel.Close;

[sonic]

Also ehrlich bin ich zu blöd?

Du hast doch eh alles drin in deiner Ini Datei!
[Optionen]
Name=Citybreaker
Punkte=5

Optionen steht nicht zweimal da, weils ja die selbe Gruppe ist.

Oder willst du vielleicht mehrere namen mit zugehörigen Punkten speichern?

Da müsstest du dann nämlich genau sowas machen wie ich dir vorher geschrieben habe...

Zum Schreiben...

Code:

   // Sonstiges

var Name, Punkte   : String;
  Name := 'Hallo';
  Punkte := '0';
   
   c := strtoint(ReadString('Allgemein', 'count', '0'));
   WriteString('Allgemein', 'count', inttostr(c+1));
  
     WriteString('Name', inttostr(c), Name);
     WriteString('Punkte', inttostr(c), Punkte);

Zum Lesen...

Code:

 
   c := 0;
   max := strtoint(ReadString('Allgemein', 'count', '0'));
   while (c<max) do
   begin
     Liste.Lines.Add(ReadString('Name', inttostr(c), '') + ':' +
                         ReadString('Punkte', inttostr(c), '')
     );
     c := c + 1;
   end;

Mfg Sonic :-D

[citybreaker]

Ne, soll immer nur der höchste Score mit Namen gespeichert werden. :|