Forum: Programmieren allgemein
Delphi
by KodeZwerg,
18. Aug 2020
Ja ne, iss klar. Wir reden aneinander vorbei, ich wollte Dich lediglich auf das offensichtliche Aufmerksam machen aber bin gescheitert und belasse es dabei.
Du redest von function Load_TRACEDLL(const dllfilename: string): BOOL; und ich von Trace_Loaded.
Wenn diese Methode das Trace_Loaded setzen würde wäre es nie zu dieser Diskussion gekommen.
Verzeihung und Danke für alles.
Forum: Programmieren allgemein
Delphi
by KodeZwerg,
18. Aug 2020
if Trace_Loaded then wird immer scheitern da Trace_Loaded immer False ist.
Das meinte ich damit und ich glaube Dir das es das macht was Du möchtest ohne es selbst auszuprobieren.
Forum: Programmieren allgemein
Delphi
by KodeZwerg,
18. Aug 2020
Beim anschauen Deines Quelltext ist mir aufgefallen das Trace_Loaded nirgends auf True gesetzt wird, somit ist Dein Beispiel Code nicht ausführbar.
Forum: Programmieren allgemein
Delphi
by KodeZwerg,
30. Jul 2020
Wie wäre es total oldschool, so in etwa:
procedure LogResult(const Text: string; const LogFile: string);
var
myFile : TextFile;
begin
AssignFile(myFile, FileName);
if not FileExists(FileName) then
ReWrite(myFile);
Append(myFile);
WriteLn(myFile, Text);