Timer: speichern in ini und auslesen...

[Anfänger]

Hallo Daniel gerne doch

Code:

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


procedure TForm1.lese_ini;
var IniFile : TIniFile;
begin
     IniUpdate       := true;
     IniFile         := TIniFile.create(ExtractFilePath(Paramstr(0))+'daten.dat');
{Telekom}
     Label32.Caption := IniFile.ReadString('Anzahl','Telekom',Label32.Caption);
     Label36.Caption := IniFile.ReadString('Kurs-Zeitwert(brutto)','Telekom',Label36.Caption);
     Label37.Caption := IniFile.ReadString('Kurs-Zeitwert(netto)','Telekom',Label37.Caption);
     Label33.Caption := IniFile.ReadString('Wert(/)','Telekom',Label33.Caption);
     Edit5.Text      := IniFile.ReadString('TagesWert','Telekom',Edit5.Text);
     IniUpdate       := false;
   IniFile.Free
end;

Das habe ich aus dem Forum und aus Büchern entnommen,
und funzt auch soweit.

Gruß
Anfänger