Hey,
Ich habe ein Problem.
Mein Konverter ist immer noch nicht fertig.
Mein Problem ist ganz einfach eigentlich aber ich komme dennoch nicht weiter.
Delphi-Quellcode:
var f : integer;
eingabe, Parameter : string;
X : TSearchRec;
begin
writeln('FRP to PDF');
Writeln('');
Writeln('Verzeichnis eingeben:');
readln(eingabe);
Parameter := 'PFAD';
if eingabe = Parameter +'/dir' then
begin
Writeln(Parameter);
if FindFirst(Parameter, faAnyFile, X) = 0 then try
repeat
FRPzuPDF(Parameter,ChangeFileExt(Parameter,'.pdf'));
until FindNext(X) = 1; //Hier kommt immer ne' Endlosschleife
finally
FindClose(X);
Writeln('Konvertierung erfolgreich');
end;
end;
Das ist die Prozedur.
Mein Problem ist das er in dem Ordner die Dateien nicht konvertiert. Sprich er öffnet nur den Ordner und probiert dann "nix" zu konvertieren. Könnt ihr mir helfen?
Danke im Vorraus