Alle Dateien in Memo einlesen

[SirThornberry]

ganz wichtig! Du hast FindClose vergessen. Wenn FindFirst erfolgreich war solltest du am Ende auch FindClose aufrufen

Delphi-Quellcode:

if FindFirst(..., ..., SearchRec) = 0 then
begin
  repeat
    //Daten verarbeiten
  until FindNext(SearchRec) <> 0;
  FindClose(SearchRec);
end;

[GuenterS]

Zitat von SirThornberry:

ganz wichtig! Du hast FindClose vergessen. Wenn FindFirst erfolgreich war solltest du am Ende auch FindClose aufrufen

Delphi-Quellcode:

if FindFirst(..., ..., SearchRec) = 0 then
begin
  repeat
    //Daten verarbeiten
  until FindNext(SearchRec) <> 0;
  FindClose(SearchRec);
end;

Um Sicherzustellen, dass das Findclose auch ausgeführt wird bieten sich try ... finally Blöcke an, also so:

Delphi-Quellcode:

if FindFirst(..., ..., SearchRec) = 0 then
try
  repeat
    //Daten verarbeiten
  until FindNext(SearchRec) <> 0;
finally
  FindClose(SearchRec);
end;

[Ricoo]

Zitat von DeddyH:

Wozu die beiden StringListen? Die eine wird erzeugt und nicht wieder freigegeben, die andere überhaupt nicht benutzt

Hups, die sind wohl noch vom Ausprobieren hängen geblieben. Bevor ich hier gepostet hab, hab ich bestimmt schon ne Stunde rumprobiert.
Aktuell werden sie nicht benötigt, das stimmt.

Wenn ich schonmal hier bin. xD
Noch ne kleine Frage und zwar möchte ich das ganze über 'nen OpenDialog machen. Klappt auch, bis auf die Tatsache, dss ich im OpenDialog nur eine Datei, bzw. mehrere Dateien auswählen kann. Weiss Jemand, wie ich ein OpenDialog für Ordner erstelle? Also, dass ich anstatt Dateien ganze Ordner öffnen kann?

[hoika]

Hallo,

neuen Thread aufmachen ...


Heiko