odczyt const Ident

jak odzytać const ident z pliku ini znając const value
bardzo tego potrzebuje!o ile sie da :-|

Może tak:

function ReadIdent(Val, Section: String; var Ini: TIniFile): String;
var
 List: TStringList;
 Idx: Integer;

begin

 List := TStringList.Create;

 try

  Ini.ReadSectionValues(Section, List);

  for Idx := 0 to List.Count -1 do
      if UpperCase(List.Values[List.Names[Idx]]) = UpperCase(Val) then
           begin
             Result := List.Names[Idx];
             Break;
           end;

 finally
   List.Free;
 end;

end;

Funkcja zwróci pierwszy identyfikator posiadający dana wartość.
Użycie:

var
 IniFile: TIniFile;
begin
{...}
 IniFile := TIniFile.Create('sciezka do ini');
 // tu użyć funkcji... ReadIdent('wartosc', 'sekcja', IniFile);
 IniFile.Free;
{...}
end;

Chyba jakoś tak. Oczywiście wedle uznania można wewnątrz funkcji tworzyc plik Ini...