Delphi-PRAXiS
Seite 1 von 3  1 23   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Dateinamen speichern (https://www.delphipraxis.net/171483-dateinamen-speichern.html)

Smaraner 8. Nov 2012 14:13

Delphi-Version: 7

Dateinamen speichern
 
Hallo,

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

Bummi 8. Nov 2012 14:20

AW: Dateinamen speichern
 
Ich weiß nicht ob jemand die Frage verstanden hat ... ich habe es leider nicht.

Smaraner 8. Nov 2012 14:22

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

DeddyH 8. Nov 2012 14:24

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

Nersgatt 8. Nov 2012 14:25

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

Popov 8. Nov 2012 14:25

AW: Dateinamen speichern
 
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 8. Nov 2012 14:28

AW: Dateinamen speichern
 
Zitat:

Zitat von Popov (Beitrag 1190322)
Delphi-Quellcode:
IncludeTrailingBackslash(Path);

Sehr sinnig :mrgreen:

Nersgatt 8. Nov 2012 14:30

AW: Dateinamen speichern
 
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 8. Nov 2012 14:32

AW: Dateinamen speichern
 
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 8. Nov 2012 14:32

AW: Dateinamen speichern
 
Haben wir ein Termin?


Alle Zeitangaben in WEZ +1. Es ist jetzt 22:14 Uhr.
Seite 1 von 3  1 23   

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz