StringListe

[Delphi-Phil]

Ich habe folgende Funktion:

Delphi-Quellcode:

function CheckFileExists(Directory, FileType: String; Files: TStrings): Boolean;

Der Aufruf erfolgt so:

Delphi-Quellcode:

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:

Delphi-Quellcode:

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.

Delphi-Quellcode:

sl:=TStringList.create;

[Delphi-Phil]

Zitat:

Zitat von himitsu (Beitrag 1030064)

Ist auch richtig so.

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

Delphi-Quellcode:

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:

Zitat von himitsu (Beitrag 1030064)

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...

[DeddyH]

Zitat:

Zitat von Teekeks (Beitrag 1030078)

Man kann ja nicht alles wissen...

Wie jetzt? :angel:

[Teekeks]

Na das war aus dem Kopf getippt und normalerweise nehme ich auch immer TStringList aber das war mir jetzt gerade (wie gesagt) zu viel Arbeit :D und deswegen dacht ich halt das TStrings das selbe sind wie TStringlist... Oder wie meintest du das jetzt?

[DeddyH]

Nee, das war ironisch gemeint (manche glauben ja, alles zu wissen) :zwinker:

[Teekeks]

achso.

Weiß ich denn nicht alles? :stupid:

[haentschman]

[OT]
ähhhmmm... nö. Da kenn ich andere :stupid:
[/OT]