StringListe

[Delphi-Phil]

Ich habe folgende Funktion:
function CheckFileExists(Directory, FileType: String; Files: TStrings): Boolean; Der Aufruf erfolgt so:
CheckFileExists('C:\Daten\', '*.csv', Form1.ListBox1.Items); Diese Funktion liefert mir alle CSV Dateien aus dem angegebenen Verzeichnis zurück in einer TStringList und dann werden die Einträge zum Testen einfach mal in eine ListBox geschrieben. Eigentlich möchte ich aber die einzelnen Dateien Stück für Stück in einer Schleife "abarbeiten".

Wie kann ich das realisieren??

[mkinzler]

Ein tringList ist indiziert ( Index von 0 bis Count -1 )

[Teekeks]

Na ungefähr so:

Delphi-Quellcode:

var sl:TStrings;
    i:integer;
begin
  sl:=TStrings.create;
  CheckFileExists('C:\Daten\', '*.csv', sl);
  for i:=0 to sl.count-1 do
  begin
    //mache was...
    writeln(sl[i]);
  end;
//zum schluss noch wieder freigeben:
  sl.free;
end;

Edit: heute das erste mal die Redbox gesehen, ich poste trotzdem einfach mal...
btw: 555 Beiträge *hicks*

[himitsu]

erstmal ist der Name CheckFileExists verwirrend.
Vom Namen her würde diese Funktion doch prüfen ob eine Datei existiert,
wärend hier aber eine Dateilist zurückgeliefert wird.

Namen wie ListFiles, FindFiles usw. wären da schon passender.

PS: Dazu findet man auch schon vieles in der DP.
FindFiles FindFiles
FindAllFiles FindAllFiles


http://www.delphipraxis.net/150887-k...dnextfile.html
http://www.delphipraxis.net/142669-f...iterative.html
http://www.delphipraxis.net/150887-k...ml#post1018007


Also entweder du nimmt eine Klasse/Komponente, welche die Dateien wirklich einzeln liefert
oder du mußt die Ergebnisliste einfach Zeile/Datei für Zeile/Datei abarbeiten.

[Delphi-Phil]

Beim Aufruf der Funktion wird ein "Abstrakter Fehler" gemeldet.

Der Fehler tritt in dieser Code Zeile auf:
for i := 0 to sl.count - 1 do]

[SirThornberry]

Kannst du dem Beitrag bitte einen aussagekräftigen Titel geben? Danke

[himitsu]

Ist auch richtig so.

TStrings ist ein abstrakter Vorfahre, ohne eigene Speicherverwaltung/Funktion.

sl:=TStringList.create;

[Delphi-Phil]

Zitat von himitsu:

Ist auch richtig so.

TStrings ist ein abstrakter Vorfahre, ohne eigene Speicherverwaltung/Funktion.

sl:=TStringList.create;

Das wusste ich nicht, vielen Dank für die Info!

Ich würde gerne einen anderen Titel verwenden, gibts ein Vorschlag?
Mir fällt gerade nichts ein...

[xZise]

Moin,

Zitat von himitsu:

Ist auch richtig so.[…]

Naja ich fürchte wenn man neu ist Besonders weil Teekeks ein Objekt davon erstellt hat

MfG
Fabian

[Teekeks]

Naja, Ich hatte im Hinterkopf das TStrings und TStrngList die selben Funktionen haben und hatte wegen der geringeren Tipparbeit einfach TStrings genommen Man kann ja nicht alles wissen...