INI File & ComboBox

[DeddyH]

BTW: Wenn es sich nicht um eine portable Anwendung handelt, gehört sie ins Programme-Verzeichnis. Dort hast Du aber normalerweise als Standard-Benutzer keine Schreibrechte. Ich würde daher die Ini ins AppData-Verzeichnis des Benutzers verschieben, so hat jeder Benutzer seine eigenen Einstellungen.

[Bummi]

gerade im Druck daher kommentarlos ...

Code:

[english]
Button1=Button X
Button2=Button Y
[deutsch]
Button1=Knopf X
Button2=Knopf Y

Delphi-Quellcode:

uses Inifiles;

const
  C_IniFile = 'C:\temp\trans.ini';

procedure TForm1.ComboBox1CloseUp(Sender: TObject);
var
  ini: TInifile;
  sl: TStringList;
  i: Integer;
  c: TComponent;
begin
  sl := TStringList.Create;
  try
    ini := TInifile.Create(C_IniFile);
    try
      ini.ReadSectionValues(ComboBox1.Items[ComboBox1.ItemIndex], sl);
      for i := 0 to sl.Count - 1 do
      begin
        c := TComponent(FindComponent(sl.Names[i]));
        if Assigned(c) then
          (c as TControl).SetTextBuf(Pchar(sl.ValueFromIndex[i]));
      end;
    finally
      ini.Free;
    end;
  finally
    sl.Free;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  ini: TInifile;
begin
  ini := TInifile.Create(C_IniFile);
  try
    ini.ReadSections(ComboBox1.Items);
  finally
    ini.Free;
  end;
end;

[DeddyH]

DRY

Delphi-Quellcode:

const
  ININAME = 'C:\temp\trans.ini';

...
ini:=TInifile.Create(ININAME);

Zum try-finally-Block sag ich jetzt mal nichts.

[p80286]

@DeddyH
[OT] Willst Dich schon jetzt als Papst bewerben
Er hat doch geschrieben, daß das bloß eine Anregung ist.[/OT]

Gruß
K-H