Forum: Object-Pascal / Delphi-Language
Delphi
by HolgerX,
9. Nov 2015
Da Du anscheinend mein Post (#5) nicht willst...
.. zerlege ich deinen Code von Post #1
var f : integer;
eingabe, Parameter : string;
X : TSearchRec;
begin
writeln('FRP to PDF');
Writeln('');
Forum: Object-Pascal / Delphi-Language
Delphi
by HolgerX,
9. Nov 2015
Hmm..
Da sind mehrere Fehler drinnen..
Und da ich nicht jeden einzelnd erklären will, hier mal eine Funktion, welche Dir alle Dateien eines Verzeichnisses auflistet:
procedure GetFileList(APath : string;AList : TStrings;WithSubPath : boolean);
var
sr: TSearchRec;
tmpPath : string;