Ini

Har du IniFiles med under dit Uses ?

Ja

Har rettet lidt:

procedure TForm1.Button1Click(Sender: TObject);
var
  IniFile  : TIniFile;
begin
  IniFile := TIniFile.Create(
            ChangeFileExt(Application.ExeName,'.ini'));;

  Edit1 := IniFile.ReadInteger
                ('URLS'+Edit1.text;)

  IniFile.Free;
end;


[Error] Calle.pas(45): Not enough actual parameters

Her har du et komplet kodeeksempel på at læse og skrive til IniFil

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, iniFiles, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
//Skriver til inifil
var
  MinIniFil: TIniFile;
begin
  try
    MinIniFil:= TIniFile.Create(ExtractFilePath(Application.ExeName) + '\MinIniFil.ini');
    with MinIniFil do
    begin
      WriteInteger('URLS', 'MitNr', StrToInt(Edit1.Text));
      //Dine andre værdier kommer her
    end;
  finally
    MinIniFil.Free;
  end;
end;



procedure TForm1.Button2Click(Sender: TObject);
//Læser inifil
var
  MinIniFil: TIniFile;
begin
  try
    MinIniFil:= TIniFile.Create(ExtractFilePath(Application.ExeName) + '\MinIniFil.ini');
    with MinIniFil do
    begin
      Edit1.Text := IntToStr(ReadInteger('URLS', 'MitNr', 7)); //Hvis inifil ikke findes bliver defaultværdien 7
      //Dine andre værdier kommer her
    end;
  finally
    MinIniFil.Free;
  end;
end;

end.

Det sidste var et svar

Selv om du siger du har 'IniFiles' med i uses, så må det være der fejlen ligger... Dobbel check det lige ;)


Og...

Edit1 := IniFile.ReadInteger
              ('URLS', Edit1);

skal vist være

Edit1.Text := IntToStr(IniFile.ReadInteger
              ('URLS', Edit1));

hvis jeg ikke tager meget fejl.

ReadString består af flere paramenter!

ReadString('Section', 'name', 'Value if not found')