Timer: speichern in ini und auslesen...

[Luckie]

Beim ersten Code sitzt der try-finally-Block falsch und im zweiten Code fehlt er ganz.

Code:

[b]procedure[/b] TForm1.schreibe_ini; 
[b]var[/b] IniFile : TIniFile; 
[b]begin[/b] 
        IniFile:=TIniFile.create(ExtractFilePath(Paramstr(0))+'daten.dat'); 
     [b]try[/b]
[color=#000080][i]{Telekom}[/i][/color] 
        IniFile.WriteString ('Wert(/)','Telekom',Label33.Caption); 
        [b]if[/b] Edit1.Text <> '' [b]then[/b] 
        IniFile.WriteString ('Anzahl','Telekom',Label32.Caption); 
        [b]if[/b] Edit3.Text <> '' [b]then[/b] 
        IniFile.WriteString ('Kurs-Zeitwert(brutto)','Telekom',Label36.Caption); 
        [b]if[/b] Edit4.Text <> '' [b]then[/b] 
        IniFile.WriteString ('Kurs-Zeitwert(netto)','Telekom',Label37.Caption); 
        [b]if[/b] Edit5.Text <> '' [b]then[/b] 
        IniFile.WriteString ('TagesWert','Telekom',Edit5.Text); 
     [b]finally[/b] 
       IniFile.Free; 
     [b]end[/b]; 
[b]end[/b];