tinifile hvordan henter man en bestemt variabel ud af en inifile

uses
  Inifiles;
procedure TForm1.Button1Click(Sender: TObject);
var
  AppPath : String;
  Name : String;
begin
  AppPath := ExtractFilePath(Application.ExeName);
  With TIniFile.Create(AppPath + 'hest.ini') do
  try
    Name := ReadString('Cat0', 'Name', '');
  finally
    free;
  end;
end;


Jens B

function TForm1.FindSection(const IniFileName, Ident: String): String;
var
  sl: TStringList;
  S: String;
  I: Integer;
begin
  sl := TStringList.Create;
  sl.LoadFromFile(IniFileName);
  for I := 0 to sl.Count -1 do
  begin
    S := sl.Strings[I];
    if (S[1] = '[') and (S[Length(S)] = ']') then
    begin
      Result := S;
      Continue;
    end;
    if Pos(Ident, S) = 1 then
      Break;
  end;
  sl.Free;
end;

Det er altså utestet, men jeg tror da nok at de måske virker... ;)

hermandsen >> Hvorfor bruger du ikke TIniFIle ?

Jens B

Jeg ved ikke om det bare er mig der har misforstået spørgsmålet, men jeg forstod det i hvert fald sådan at han ville finde den section som en ident var i... :)

Mente derfor ikke lige TIniFile var nødvendig/brugbar... ;)