Dateinamen speichern

[Smaraner]

Hallo,

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

[Bummi]

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

[Smaraner]

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

[DeddyH]

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

[Nersgatt]

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

[Popov]

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;

[DeddyH]

Zitat:

Zitat von Popov (Beitrag 1190322)

Delphi-Quellcode:

IncludeTrailingBackslash(Path);

Sehr sinnig :mrgreen:

[Nersgatt]

Zitat:

Zitat von DeddyH (Beitrag 1190323)

Zitat:

Zitat von Popov (Beitrag 1190322)

Delphi-Quellcode:

IncludeTrailingBackslash(Path);

Sehr sinnig :mrgreen:

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

[DeddyH]

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.

[Popov]

Haben wir ein Termin?