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?

[Union]

Mit IncludeTrailingPathDelimiter wäre es dann auch zukunftssicher ;)

[DeddyH]

Aber auch dann nur, wenn man etwas mit der Rückgabe macht ;)

[Nersgatt]

Zitat:

Zitat von Popov (Beitrag 1190328)

Haben wir ein Termin?

Es geht nicht um die Geschwindigkeit, sondern darum, dass Du das Funktionsergebnis gar nicht zuweist. :stupid:

[Popov]

@DH: Ach her je, es gibt Leute, eigentlich überall auf der Welt, die quatschen dich eher 10 Stunden Tot als mit einem Wort zu sagen was sie meinen. Sorry Mann, bist ein kompetente Bursche, aber wenn du nichts zu sagen hast, dann las das in Zukunft. Diese Art nervt gewaltig.

[Union]

Zitat:

Zitat von DeddyH (Beitrag 1190330)

Aber auch dann nur, wenn man etwas mit der Rückgabe macht ;)

Dass dies bereits klar ist habe ich vorausgesetzt.

[Smaraner]

Hat funktioniert.:) Wie kann ich jetzt die makirte Datei in der Listbox aus dem Verzeichnis löschen?

Delphi-Quellcode:

DeleteFiles...

[Popov]

Zitat:

Zitat von Nersgatt (Beitrag 1190331)

Zitat:

Zitat von Popov (Beitrag 1190328)

Haben wir ein Termin?

Es geht nicht um die Geschwindigkeit, sondern darum, dass Du das Funktionsergebnis gar nicht zuweist. :stupid:

Liegt daran, dass ich früher eine eigene Prozedur hatte die das über den Parameter (var) löste. Die Macht der Gewohnheit

[Nersgatt]

Fast. DeleteFile(Dateiname)

[DeddyH]

@Popov: Wenn ich ungetesteten Code hier poste, dann weise ich auch darauf hin. Außerdem solltest Du als langjähriges Mitglied auch wissen, wo die F1-Taste ist, wenn man schon auf Fehler hinweist. Immer diese halbgaren Codes nerven nämlich auch auf Dauer.

[Smaraner]

@Nersgatt
hat funktioniert:-D

[Popov]

Weist du was wirklich nervt? Einfach ein Hinweis - die Funktion hat kein Rückgabewert - und es wäre innerhalb einer halben Minute erledigt. Stattdessen hat es ein Megaschwanz von Kommentaren ausgelöst. Das Problem ist, dass das nur Profilsucht ist. "ich weiß was was du nicht weißt", "ich bin schlauer als du weil ich etwas weiß", usw. Das ist Selbstbewusstsein aus Fehlern andere zu schöpfen. Ich hab in einer Firma mit 50 Psychologinnen gearbeitet, da lernt man viel. Wenn du willst kann ich ein Profil erstellen.

[DeddyH]

Auf diesem Niveau diskutiere ich mit Dir nicht weiter.

[mkinzler]

Zitat:

Zitat von Popov

@DH: Ach her je, es gibt Leute, eigentlich überall auf der Welt, die quatschen dich eher 10 Stunden Tot als mit einem Wort zu sagen was sie meinen. Sorry Mann, bist ein kompetente Bursche, aber wenn du nichts zu sagen hast, dann las das in Zukunft. Diese Art nervt gewaltig.

Und wenn jemand den falschen Code dann verwendet und sich wundert, dass er nicht richtung funktioniert?

Zitat:

Zitat von DeddyH

@Popov: Wenn ich ungetesteten Code hier poste, dann weise ich auch darauf hin. Außerdem solltest Du als langjähriges Mitglied auch wissen, wo die F1-Taste ist, wenn man schon auf Fehler hinweist. Immer diese halbgaren Codes nerven nämlich auch auf Dauer.

Es kann passieren, dass man nicht ganz korrekten Code postet. (Passt mir haüfig genug)

Zitat:

Zitat von Popov

Weist du was wirklich nervt? Einfach ein Hinweis - die Funktion hat kein Rückgabewert - und es wäre innerhalb einer halben Minute erledigt.

Die Funktion hat aber einen Rückgabewert und den hast du im ursprünglichen Code nicht ausgewertet.

Zitat:

Zitat von Popov

Stattdessen hat es ein Megaschwanz von Kommentaren ausgelöst. Das Problem ist, dass das nur Profilsucht ist. "ich weiß was was du nicht weißt", "ich bin schlauer als du weil ich etwas weiß", usw. Das ist Selbstbewusstsein aus Fehlern andere zu schöpfen. Ich hab in einer Firma mit 50 Psychologinnen gearbeitet, da lernt man viel. Wenn du willst kann ich ein Profil erstellen.

Das ist jetzt aber harter Tobak! Ein klein wenig "Profilierungsucht" spielt immer mit, warum sollte man sonst seine Zeit "vergeuden" anderen zu Helfen? Also Detlef ist der Letzte, dem ich unterstellen würde, hier sich nur zu engagieren um sein Ego auf Kosten anderer zu Polieren.

[borstenei]

Bitte vertragt euch doch wieder! Man kann viel lernen von euren Beiträgen .....

[Sir Rufo]

Theoretisch und praktisch könnte man die Zeile mit dem

Delphi-Quellcode:

IncludeTrailingPathDelimiter

bzw.

Delphi-Quellcode:

IncludeTrailingBackslash

auch ganz rausnehmen, denn der Übergabeparameter heißt

Delphi-Quellcode:

Path

= Pfad.

Und ein Pfad ist ganz eindeutig definiert mit einem Pfadtrennzeichen am Ende, denn ansonsten ist es kein Pfad, sondern ein Verzeichnis oder sogar eine Datei.

Das mit dem

Delphi-Quellcode:

IncludeTrailing...

ist also nur ein Notnagel, falls der Programmierer den Funktionsaufruf nicht durchliest und - im Grunde genommen - einen falschen Wert übergibt.

Wenn ich eine Funktion baue

Delphi-Quellcode:

procedure Foo( const Vorname, Nachname : string ) : string;

dann sollte ich ja auch nicht Vor- und Nachname vertauschen, auch wenn das funktioniert, weil es beides ein String ist ;)

Somit ist der Ursprungscode von Popov weder falsch noch funktioniert er nicht richtig, sondern hat keinen DAU-Filter drinnen :mrgreen:

[Perlsau]

Zitat:

Zitat von Smaraner (Beitrag 1190316)

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

Steht u.a. im Codeorakel.