Dateinamen aus ComboBox.Items erstellen

**moperswings**

Hallo,

ich habe für mein Problem eine Lösung, jedoch glaube ich, dass es eine bessere gibt und Ihr mir praktikablere Vorschläge liefern könnt. Ich habe 2 ComboBox, aus deren Items ich einen Dateinamen erstellen möchte. Mein Code:

zusammenfalten · markieren

Delphi-Quellcode:

			var 

     a,b,c,d,: string;

     fs: textfile;

     name1, name2, name3, dateiname: string;

begin

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

     ...

Bei ganz vielen ComboBoxen und Items wird diese Lösung unpraktisch!
Hoffe, Ihr könnt mir helfen und habt einen besseren Vorschlag!

Viele Grüsse, moperswings

Dateinamen aus ComboBox.Items erstellen

Dateinamen aus ComboBox.Items erstellen

Forumregeln