ini fil og label

Hej,

Noget a la:

Uses
  IniFiles;

..

Procedure Form1.OnCreate(Sender : TObject);
Var
  Ini : TIniFile;
Begin
  Ini := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));
  Try
    Label1.Caption := Ini.ReadString('Main','Label1',Label1.Caption);
  Finally
    Ini.Free;
  end;
end;

Procedure Form1.OnDestroy(Sender : TObject);
Var
  Ini : TIniFile;
Begin
  Ini := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini'));
  Try
    Ini.WriteString('Main','Label1',Label1.Caption);
  Finally
    Ini.Free;
  end;
end;

Martin

den kode vil jeg lige teste, er tilbage senere:-)

jeg vil gerne have lidt hjælp til denne kode hvis det kan lade sig gøre:-)
Application.ExeName, '.ini')); skal jeg i stedet for application.exename skrive mit eget navn på min exe fil?
og hvor skal jeg navngive ini filen? det er første gang med ini filer:-)

så please hjælp mig her, i need it bad

desuden vil jeg gerne at tlabel bliver lavet om til en edit1 komponent, hvis jeg bare skifter alt ud hvor der står label1 så virker det ikke

Kan du komme med en kode til en tedit i stedet?

>Application.ExeName, '.ini')); skal jeg i stedet for application.exename skrive mit eget navn på min exe fil?

Nej, Application.ExeName 'outputter' selv programmets exe-fils placering+navn

>og hvor skal jeg navngive ini filen? det er første gang med ini filer:-)
Så vidt jeg kan se hedder din ini-fil det samme som din exe-fil bare med en anden endelse. Eks. hvis din exe-fil hedder project1.exe kommer din ini-fil til at hedde project1.ini.

>Kan du komme med en kode til en tedit i stedet?
Hvis du skifter Label1.Caption ud med Edit1.Text (Se: .Text) burde det virke!

felthaus, det virker:-)
Mange mange tak for hjælpen, smid lige et svar så deler jeg alle de få points mellem jer..

Det var så lidt...

lidt points til jer begge:-)

Takker