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

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

zusammenfalten · markieren

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

zusammenfalten · markieren

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

markieren

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?

Ich möchte aus den Items von 3 ComboBoxen eine Datei erstellen!
z.B.
Combobox1: Kulturpflanze
Items: Gemüse, Getreide, Obst,...

ComboBox2: Getreide
Items: Weizen, Gerste, Hafer,...

comBoxBox3: Thema
Items: Einleitung, Sorten,...

Der Dateiname soll sich dann so zusammensetzen:
Kultur -> gtr +
Getreide: Hafer -> ha +
Thema: Einleitung -> ei =
Dateiname: gtrhaei.txt

Dann wird sich das immer so abspielen:
dateiname := combobox1.Text + combobox2.Text + combobox2.Text + '.txt'; Warum also so kompliziert ?

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.

markieren

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'

zusammenfalten · markieren

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'

markieren

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

".Text" funktioniert wenn ich mich recht entsinne nicht wenn der Style auf "csDropDownList" steht

Vielen Dank,

die letzte Lösung sieht SUPER aus!
Ich werde das mal probieren. Das wird mir bestimmt die Arbeit erleichtern und mich inhaltlich weiter bringen.

Danke und viele Grüsse, moperswings

Zitat von SirThornberry:

".Text" funktioniert wenn ich mich recht entsinne nicht wenn der Style auf "csDropDownList" steht

Wieso nicht?

.Text liefert immer den String, welcher grad in der Box angezeigt wird.

bei Delphi6 oder Delphi7 mein ich mich zu erinnern das es nicht der Fall war.

Also in D4 und D7 geht es
(mit D7 grad nochma getestet hab)