csv in combobox ausgeben

[SnGtKs]

ich habe nach dem ich mal ein bissel im netzt gesucht habe das problem nun folgendermassen gelöst

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  ini: TIniFile;
begin
  ComboBox1.Clear;
  ComboBox2.Clear;
  Edit1.Clear;
  Label1.Caption := ('');
  ini := TIniFile.Create('C:\test.ini');
  ini.ReadSections(ComboBox1.Items);
  ini.free;
  end;


procedure TForm1.ComboBox1Change(Sender: TObject);
var
ini1: TIniFile;
test: string;
begin
  ComboBox2.Clear;
  ini1:= TIniFile.Create('C:\test.ini');
  test:= ComboBox1.Text;
  ini1.ReadSection(test, ComboBox2.Items);
  ini1.Free;
  end;

procedure TForm1.ComboBox2Change(Sender: TObject);
var
  ini2: TIniFile;
  res, test1, test2: string;
begin
  ini2:= TIniFile.Create('C:\test.ini');
  test1:= ComboBox1.Text;
  test2:= ComboBox2.Text;
  res := ini2.ReadString(test1, test2, '');
  Edit1.Text := res + (' €');
  ini2.Free;
  end;

procedure TForm1.Button1Click(Sender: TObject);
var
Gesamttext: string;
begin
Gesamttext := ComboBox1.Text + ( ' ') + ComboBox2.Text +  (' ') + Edit1.Text;
Label1.Caption := Gesamttext;
end;