readstring i ini filer?

uses Inifiles;

...

procedure TForm1.Button1Click(Sender: TObject);
var
Ini: TIniFile;
begin
Ini := TIniFile.Create('c:\hejhej.ini');
Label1.Caption := IntToStr(Ini.ReadInteger('CONFIG','FILENR',0));
Ini.Free;
end;

Det skulle vist virke :-)

Det her vist lidt mere enkelt:

procedure TForm1.Button1Click(Sender: TObject);
var
Ini: TIniFile;
begin
Ini := TIniFile.Create('c:\hejhej.ini');
Label1.Caption := Ini.ReadString('CONFIG','FILENR','0');
Ini.Free;
end;

Står lidt om Inifiler her:

http://www.swissdelphicenter.ch/torry/showcode.php?id=160

Og her er en artikel:

http://www.udvikleren.dk/article.php?aid=106&techid=2

kan jeg gøre sådan at hvis inifilen ikke findes så laver den en hvor: writestring('CONFIG','FILENR','100')
men hvis den findes skal den ikke ændre noget, men istedet bare aflæse værdien som den gør i dit eksempel ??

Ja.. Du kan bruge FileExists:

procedure TForm1.Button1Click(Sender: TObject);
var
  Ini: TIniFile;
begin
  Ini := TIniFile.Create('c:\hejhej1.ini');
    if FileExists('c:\hejhej1.ini') then
    begin
      Label1.Caption := Ini.ReadString('CONFIG','FILENR','0');
    end
    else
    begin
      Ini.WriteString('CONFIG','FILENR','100');
    end;
  Ini.Free
end;

tak for hjælpen igen hejhej ;)

Selvtak ;-)