Forum: Object-Pascal / Delphi-Language
by Neutral General,
2. Aug 2016
Argh..... der komplette Code:
procedure TVersionNumberViewer.GetFilesInDirectory(Directory: string; const Mask: string;List: TStrings;WithSubDirs, ClearList: Boolean);
procedure ScanDir(const Directory: string);
var
SR: TSearchRec;
begin
if FindFirst(Directory + Mask, faAnyFile and not faDirectory, SR) = 0 then try
repeat
List.Add(Directory + SR.Name)
until FindNext(SR)...
Forum: Object-Pascal / Delphi-Language
by Neutral General,
2. Aug 2016
In der inneren Prozedur muss der Klassenname aus dem Namen:
procedure TVersionNumberViewer.GetFilesInDirectory(Directory: string; const Mask: string;List: TStrings;WithSubDirs, ClearList: Boolean);
procedure ScanDir(const Directory: string);
...
Forum: Object-Pascal / Delphi-Language
by Neutral General,
2. Aug 2016
Was sagt dein Delphi denn?
Der Quelltext von der Seite lässt sich so nicht kompilieren. Da fehlen z.T. Operatoren die noch ergänzt werden müssen.
Danach läuft es bei mir (Delphi 7)