INI File & ComboBox

[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;