Dateien/Ordner in einem Ordner ermitteln + TComboBox

[qb-tim]

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?

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;

[Klaus01]

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

Grüße
Klaus

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.

[qb-tim]

Geht es auch ohne Stringlist?

[Klaus01]

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

Grüße
Klaus

[pacman1986]

Zitat:

Zitat von qb-tim

Geht es auch ohne Stringlist?

Wozu so ist es am leichtesten...
Edit :DA war einer Schneller

[himitsu]

1. nur eine Frage pro Thread :warn: (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

[qb-tim]

Ich arbeite aber trotzdem lieber mit Arrays... :angel2:

[himitsu]

Zitat:

Zitat von qb-tim

Ich arbeite aber trotzdem lieber mit Arrays... :angel2:

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