Dateinamen aus ComboBox.Items erstellen

[himitsu]

Möglichkeiten gäbe es mehrere.

Entweder direkt die Strings zusammensetzen, oder falls andere Werte verwendet werden sollen, wie als Item angebegen, dann halt über den Index die gewünschten Werte wo anders herholen.

Code:

ComboxBox1: Kulturpflanze > Items: Gemüse, Getreide, Obst,...
ComboxBox2: Getreide > Items: Weizen, Gerste, Hafer,...
ComboxBox3: Thema > Items: Einleitung, Sorten,...
ItemIndex jeweils 1

Dateiname := ComboBox1.Text + ComboBox2.Text + ComboBox3.Text + '.txt'; = 'GetreideGersteSorten.txt'

Delphi-Quellcode:

Case ComboBox1.ItemIndex of
  0: Dateiname := 'gem';
  1: Dateiname := 'gtr';
  2: Dateiname := 'obs';
End;
Case ComboBox2.ItemIndex of
  0: Dateiname := Dateiname + 'wi';
  1: Dateiname := Dateiname + 'ge';
  2: Dateiname := Dateiname + 'ha';
End;
Case ComboBox3.ItemIndex of
  0: Dateiname := Dateiname + 'ei';
  1: Dateiname := Dateiname + 'so';
End;
Dateiname := Dateiname + '.txt';

= 'gtrgeso.txt'

Delphi-Quellcode:

Const AKulturpflanze: Array[0..2] of String = ('gem', 'gtr', 'obs');
  AGetreide: Array[0..2] of String = ('wi', 'ge', 'ha');
  AThema: Array[0..1] of String = ('ei', 'so');

Dateiname := AKulturpflanze[ComboBox1.ItemIndex] + AGetreide[ComboBox2.ItemIndex]
  + AThema[ComboBox3.ItemIndex] + '.txt';

= 'gtrgeso.txt'


[edit]
@Jelly: pühhh ... sich einfach einzischleichen ... neeeeee