Ich bin ein grausamer Delphi Anfänger, also bitte nicht gleich aufregen wenn ich doofe Fragen stelle!!!
Ich bin an einem Projekt welches ich am liebsten morgen beenden möchte. Also mein Problem: ich habe 2 Comboboxen und mehrere listen in einem Ordner als .txt gespeichert in der 1. Combobox steht jeder 2te eintrag aus der z.B. Kategorie.txt liste mit dem Code:
Delphi-Quellcode:
procedure TForm2.ComboBox1Change(Sender: TObject);
var
i: integer;
picFile: string;
begin
i := (((ComboBox1.ItemIndex + 1) * 2) - 1);
picFile := MyList.Strings[i];
if FileExists(picFile) then begin
end;
end;
Die Liste wurde vorher mit diesem Code ins Programm geladen:
Delphi-Quellcode:
const
MyTextFile = 'Kategorie.txt';
procedure TForm2.FormCreate(Sender: TObject);
var
i: integer;
begin
MyList := TStringList.Create;
if FileExists(MyTextFile) then begin
MyList.LoadFromFile(MyTextFile);
for i := 0 to (MyList.Count - 1) do begin
if (i mod 2 = 0) then ComboBox1.Items.Add(MyList.Strings[i]);
end;
end;
Nun habe ich in der Liste Kategorie.txt z.B.
Vorspeise warm
warm.txt
Vorspeise kalt
kalt.txt
Später wird die liste um z.B.:
Dessert
dessert.txt
erweitert.
Nun soll er die angegegebenen Listen z.B. warm.txt in die 2te Combobox laden und vorher natürlich createn.
Kann mir jemand verraten wie das gehr?