Forum: Object-Pascal / Delphi-Language
by LuCSteR,
3. Aug 2009
Okay hab was. sDir ist wie folgt belegt:
sDir = 0x140a50 'W:\07_Integration\72_Werkzeuge-Methoden\723_Testdaten\Ablagevertr'#195#164'ge\'
Folgende Abfrage wird mit false beantwortet, wodurch eine leere Liste zurückkommt.
if FindFirst(IncludeTrailingPathDelimiter(sDir) + '*.*', faAnyFile or faReadOnly or faHidden or faArchive, Rec) = 0 then
Forum: Object-Pascal / Delphi-Language
by LuCSteR,
3. Aug 2009
@Bernhard: Nein, Lazrus stand von Anfang an drin. Hatte nur die Anmerkung mit "ß" ergänzt.
@Luckie: Dateinamen, die Umlaute enthalten, stellen nicht das Problem dar, sondern nur Pfadangaben. Die Dtainamen werden ja nur gelesen, quasie nicht verarbeitet. (außerdem habe ich keine Dateinamen, die aus Umlauten bestehen, kann also auch nicht sagen, ob die Funktion dahingehend versagt)
Mit sDir...
Forum: Object-Pascal / Delphi-Language
by LuCSteR,
3. Aug 2009
Hi,
ich nutze diese Funktion:
procedure ListDirFiles(sDir: string; const sList: TStrings);
var Rec: TSearchRec;
begin
sList.BeginUpdate;
try