Hallo Tom!
Schau Dir doch mal Deinen Code genau an:
Delphi-Quellcode:
procedure TForm1.FormShow(sende:TObject);
begin
ini:=TIniFile.create('ergebnis.ini');
end;
procedure TForm1.votebtmClick(Sender: TObject);
ini:=TIniFile.Create((ParamStr(0))+'ergebnis.ini');
end;
Siehst Du den Unterschied? Bei ersten Mal wird die Datei im aktuellen Verzeichnis gesucht (das nicht unbedingt das Programmverzeichnis sein muß, ein reines Glücksspiel!), im zweiten Fall im Programmverzeichnis. Obendrein hast Du vergessen, den Programmnamen rauszunehmen, der Ini-Name ist also "programmverzeichnis\programm.exeergebnis.ini" - kein Wunder, daß die Werte leer sind.
Schreibe in beiden Fällen:
ini:=TIniFile.Create(ExtractFilePath (ParamStr(0))+'ergebnis.ini');
Außerdem ist es unnötig, die Variable "ini" global zu deklarieren. Deklariere sie jeweils in den Methoden, in denen sie benutzt wird.
Desweiteren: beim ersten Teil hast Du einen Ressourcenschutzblock drin, beim zweiten mal nicht!
Da frage ich mich natürlich, wo Du Deinen Code zusammengesucht hast und ob Du überhaupt verstehst, was Du da geschrieben hast - man sollte nicht
kopieren, sondern
kapieren!
Dietmar Brüggendiek
Edit: hupps - da fehlte ja ExtractFilePath!