Dateinamen aus ComboBox.Items erstellen

[himitsu]

Also, wenn ich jetzt davon ausgeh, das die ComboBoxen nur 2, oder mehr Einträge haben, dann komm ich auf dieses:

Strings werden ja mit '' initialisiert

Delphi-Quellcode:

var 
  a,b,c,d,: string; 
  fs: textfile; 
  name1, name2, name3, dateiname: string; 
begin 
  a := '';
  b := '';
  c := '';
  d := '';

  case ComboBox1.ItemIndex of 
    0: begin a := Combobox1.Text; end; 
    1: begin b := ComboBox1.Text; end; 
  end; 

  case ComboBox2.ItemIndex of 
    0: begin c := combobox2.Text; end; 
    1: begin d := combobox2.Text; end; 
  end; 
    
  name1 := a + b; 
  name2 := c + d; 
  name3 := '.txt'; 
  dateiname  := name1 + name2 + name3; 
  Assignfile(fs, dateiname);

gekürzt komm ich auf dieses

Delphi-Quellcode:

var 
  a,b,c,d,: string; 
  fs: textfile; 
  name1, name2, name3, dateiname: string; 
begin 
  if ComboBox1.ItemIndex in [0..1] then
    a := Combobox1.Text;

  if ComboBox2.ItemIndex in [0..1} then
    c := combobox2.Text;
    
  //name1 := a; 
  //name2 := c; 
  //name3 := '.txt'; 
  //dateiname  := name1 + name2 + name3; 
  dateiname  := a + c + '.txt'; 
  Assignfile(fs, dateiname);

und bei 2 Einträgen bleibt nur noch dieses übrig

Delphi-Quellcode:

var 
  fs: textfile; 
  dateiname: string; 
begin 
  dateiname  := Combobox1.Text + combobox2.Text + '.txt'; 
  Assignfile(fs, dateiname);

Also mal ganz einfach:
Was genau möchtest du denn erreichen?