Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
11. Feb 2008
Hallo,
ich habe den Code in Beitrag #3 etwas überarbeitet. Die erste Änderung verschafft uns Klarheit, ob die übergebene StringList instanziert wurde. Die zweite Änderung trägt den fehlenden zweiten Parameter von ChangeFileExt() nach, worauf mich Muetze1 aufmerksam gemacht hat - Mein Dank geht an Thomas.
Freundliche Grüße
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
11. Feb 2008
Herzlich willkommen in der Delphi-PRAXiS, grebaldi.
SR solltest du nur auslesen:
procedure ListDir(const Path: string; FileList: TStrings; ext: Boolean);
var
SR: TSearchRec;
begin
Assert(Assigned(FileList), 'Gotcha!'); // EDIT