Problem mit INI

[McCry]

Hi,
ich möchte demnächst ein kleines Spiel programmieren, und teste jetzt schonmal ein paar Funktionen dafür.
Zurzeit bin ich dabei, das Level in eine INI-Datei zu speichern. Das Auslesen funktioniert, aber nicht das Speichern.
Mein Code:

Code: Alles auswählen

 
var
  Form1: TForm1;
  INI: TINIFile;
  Level: String;
  nLevel: String;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
    INI := TINIFile.Create('C:\DB.ini');
    Level := INI.ReadString('INIDB', 'Level', '');
 
    Label1.caption := Level;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
    INI := TINIFile.Create('C:\DB.ini');
    nLevel:= Edit1.caption;
    Level := INI.WriteString('INIDB', 'Level', nLevel);
end; 
 

Und die Fehlermeldung:

unit1.pas(54,17) Error: Incompatible types: got "untyped" expected "AnsiString"

Ich habe leider keine Ahnung, wie ich das Problem lösen könnte, und frage deßhalb euch.
Lg
McCry

[McCry]

Ok.
Ich habs herausgefunden und es funktioniert.

[pluto]

Für alle die es nicht sofort erkannt haben: Level := INI.WriteString('INIDB', 'Level', nLevel);
writeString ist keine Funktion wie bei ReadString sondern eine einfache Preocedur also ohne Parameter

[Heinrich Wolf]

Aufräumen am Ende der Prozedur mit

Code: Alles auswählen

INI.Free;

wäre auch nicht schlecht.