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:
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