Jeg vil gerne lære at bruge inifiles, så jeg har læst en artikel om det.
Nu spørger jeg så dumt: Hvor skal dette stykke kode sættes ind henne?
(taget fra "Start med INI filer" af Thomas (Darkstar))
Var
MyINI: TINIFile; // TINIFile objektet
PathToINIFile: String;
Begin
PathToINIFile := IncludeTrailingBackslash(ExtractFilePath(ParamStr(0)))+'test.ini';
{Skab objektet}
MyINI := TINIFile.Create(PathToINIFile);
{Lav arbejde med objektet}
//Det kommer vi til.. 
{Frigør hukommelse}
MyINI.Free;
End;
Der er ikke nogen procedure, eftersom det er et nyt project jeg starter. ellers ville det have været mit første gæt.
Jeg er fuldstændig på bar bund. Kan I hjælpe?
hele proceduren er ikke skrevet, men vi tager lige en procedure hvor vi skriver til ini filen:
<pre>
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
Var
MyINI: TINIFile; // TINIFile objektet
PathToINIFile: String;
Begin
PathToINIFile := IncludeTrailingBackslash(ExtractFilePath(ParamStr(0)))+'test.ini';
{Skab objektet}
MyINI := TINIFile.Create(PathToINIFile);
{Lav arbejde med objektet}
//procedure WriteString(const Section, Ident, Value: String);
MyINI.WriteString('MinSektion', 'Tekst', 'Se, det virker!');
//procedure WriteInteger(const Section, Ident: String; Value: Longint);
MyINI.WriteInteger('MinSektion', 'Heltal', 1337);
//procedure WriteFloat(const Section, Ident: String; Value: Double);
MyINI.WriteFloat('EndnuEnSektion', 'pi_ca', 22/7);
//proceduure WriteBool(const Section, Ident: String; Value: Boolean);
MyINI.WriteBool(‘EndnuEnSektion’, ‘ErINIFilerNyttige’, True);
{Frigør hukommelse}
MyINI.Free;
End;
</pre>
Når man skriver til en Ini fil, plejer det at være i luk knappen, altså når man lukker programmet.
ellers kan du bare create din egen procedure fx:
procedure TForm1.Skriv(Sender: TObject);
//koden
Så skal du bare tilføje procedure Skriv(Sender: TObject); i public sektionen.
MVH.
ALA