Hallo,

wie kann ich Dateinamen aus einem Ordner als String in eine Listbox speichern? (Das speichern in eine Listbox bekomme ich hin.

Ich weiß nicht ob jemand die Frage verstanden hat ... ich habe es leider nicht.

Ich habe einen Ordner mit verschiedenen Textdateien. Wie kann ich jetzt die Dateinamen in eine Listbox speichern?

Entweder konventionell über FindFirst/FindNext/FindClose (dazu gibt es hier reichlich Beispiele), oder da es sich um eine Listbox handelt, mittels LB_DIR.

Hier hast Du ein Beispiel, wie Du an die Dateinamen drankommst:
http://www.delphibasics.co.uk/RTL.asp?Name=FindFirst

zusammenfalten · markieren

Delphi-Quellcode:

//Liefert Datei-Liste ohne Unterordner
procedure GetFiles(Path, ExtMask: String; List: TStrings);
const
  Attrib = faArchive or faReadOnly or faHidden;
var
  SR: TSearchRec;
begin
  Path := IncludeTrailingBackslash(Path);

  if FindFirst(Path + '*.' + ExtMask, Attrib, SR) = 0 then
  repeat
    List.Add(Path + SR.Name);
  until FindNext(SR) <> 0;

  SysUtils.FindClose(SR);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  GetFiles('c:\', 'txt', ListBox1.Items);
end;

Zitat von Popov:

IncludeTrailingBackslash(Path);

Sehr sinnig

Zitat von DeddyH:

Zitat von Popov:

IncludeTrailingBackslash(Path);

Sehr sinnig

Optimiert der Compiler sowas eigentlich weg? Dann müsste er ja prüfen, ob die Function Nebeneffekte hat.

Keine Ahnung, ehrlich gesagt. Aber AFAIK gab es irgendwo eine Einstellung, dass Funktionsrückgaben generell ausgewertet/zugewiesen werden müssen, damit fiele das zumindest auf.

Haben wir ein Termin?