Hi,

meine Fragen:

Wie ermittle ich die Anzahl der Ordner bzw. Dateien in einem Ordner?
Wie lese ich dann die einzelnen Datei- bzw. Ordnernamen (ohne Pfad) in Strings ein?
Wie ändere ich die Anzahl der Felder in TComboBox?
Wie ändere ich einen Feld in TComboBox?

zusammenfalten · markieren

Delphi-Quellcode:

// Globale Variablen (public)

  var AnzahlDateien, AnzahlOrdner : Integer;


// prozedur 1

begin
  AnzahlOrdner := // Befehl die Ordner in einem Ordner zu zählen
  AndzahlDateien := // Befehl die Dateien in einem Ordner zu zählen
end;


// prozedur 2

var OrdnerNamen : Array[1..AnzahlOrdner] von String; // sind diese Deklarationen richtig?
    DateiName : Array[1..AnzahlDateien] von String;
    x : Integer;
begin
  {Eigenschaft, der die Länge des ComboBox1 ändert} := AnzahlOrdner;
  {Eigenschaft, der die Länge des ComboBox2 ändert} := AnzahlDateien;
  for x := 1 to AnzahlOrdner do
    {Eigenschaft, der den Feld[x] des ComboBox1 ändert} := {Befehl den Namen Ordner[x] zu ermitteln}
  for x := 1 to AnzahlDateien do
    {Eigenschaft, der den Feld[x] des ComboBox2 ändert} := {Befehl den Namen Datei[x] zu ermitteln}
end;

Ein Codeschnipsel aus einem mp3 Projekt.
Kannst es Dir ja anpassen.

Grüße
Klaus

zusammenfalten · markieren

Delphi-Quellcode:

procedure FillMP3FileList(Folder: string; sl: TStrings);
var Rec : TSearchRec;
begin
 sl.Clear;
 if SysUtils.FindFirst(Folder + '*.mp3', faAnyFile, Rec) = 0 then
  try
    repeat
      sl.Add(Rec.Name);
    until SysUtils.FindNext(Rec) <> 0;
  finally
    SysUtils.FindClose(Rec);
  end;
end;

wobei SL eine StringList ist.

Geht es auch ohne Stringlist?

na klar, wenn Du den Code entsprechend anpasst.
Aber ist der Inhalt einer ComboBox nicht auch eine Stringlist?

Grüße
Klaus

Zitat von qb-tim:

Geht es auch ohne Stringlist?

Wozu so ist es am leichtesten...
Edit A war einer Schneller

1. nur eine Frage pro Thread (siehe DP-Verhaltenskodex)
2. zu allen deinen Fragen findest du genug in der OH ind die DP-Suche liefert auch unmassen an Beispielen.

Zitat:

Wie ermittle ich die Anzahl der Ordner bzw. Dateien in einem Ordner?
Wie lese ich dann die einzelnen Datei- bzw. Ordnernamen (ohne Pfad) in Strings ein?

OH > FindFirst/FindNext + TStringList

Zitat:

Wie ändere ich die Anzahl der Felder in TComboBox?
Wie ändere ich einen Feld in TComboBox?

OH > TComboBox

Ich arbeite aber trotzdem lieber mit Arrays...

Zitat von qb-tim:

Ich arbeite aber trotzdem lieber mit Arrays...

Na dann nimm es doch. (ich nehm die auh recht oft)