Ini fil igen !!

Ja da... Laver lige et eksempel, vent lidt! ;)

procedure GetIdentValues(IniFileName, Ident: String): TStrings;
var
  sl: TStringList;
  I: Integer;
  S: String;
begin
  sl := TStringList.Create;
  sl.LoadFromFile(IniFileName);
  for I := 0 to sl.Count -1 do
  begin
    S := sl.Strings[I];
    if Pos(Ident, S) <> 0 then
      Result := Result + ', ' + Copy(S, Length(Ident)+1, Length(S));
  end;
end;

Når du så skal kalde den, så er det bare:

ComboBox1.Items := GetIdentValues('C:\Delphi\Maaf\min inifil.ini', 'navn');

Det er utestet, så jeg er ikke 100% sikker på det, men det burde være noget i den retning...

Ellers må du lige vente lidt mere, så prøver jeg det lige i gennem! ;)

At jeg så starter med at skrive det som procedure i stedet for function, og laver en masse lort ved result, det må du lige bære over med... Der kommer en endelig funktion... ;)

Det er bare mig der ikke er helt vågen endnu!

Færdig!!! :)

function GetIdentValues(IniFileName, Ident: String): TStringList;
var
  sl: TStringList;
  I: Integer;
  S: String;
begin
  Result := TStringList.Create;
  sl := TStringList.Create;
  sl.LoadFromFile(IniFileName);
  for I := 0 to sl.Count -1 do
  begin
    S := sl.Strings[I];
    if Pos(Ident, S) <> 0 then
      Result.Add(Copy(S, Length(Ident)+2, Length(S)));
  end;
end;

//hermandsen

Er det ikke lige en anelse nemere bare at gøre sådan :

VAR
  L : TIniFiles;
  Sl : TStringList;
begin
  L.ReadSections(Sl);
  // find Sectionen "Hest"
  Sl.IndexOf('Hest');
end;

/Martin

Og så læser vi lige hvad der står :( ( sorry ! )

>>martinlind
Giver det ikke næsten det samme?
Så skal du bare køre

function GetIdentValues(...): TStringList
var
  I: Integer
begin
  I := 0;
  while I <> -1 do
  begin
    I := sl.IndexOf('Hest');
    Result.Add(sl.Strings[I]);
    sl.Delete(I);
  end;
end;

Sådan cirka... ;)

Hehe... Helt i orden...
Din kunne også bruges, bare med en lille modifikation! ;)

jeg siger tak !!! det virker som jeg ville have det til !!