Hallo Neuling,
Zitat von
Traudix:
Delphi-Quellcode:
//Diese Prozedur soll die erhaltene Fehlermeldung in eine Datei schreiben,
//die ich später auswerten will, um Fehlerhinweis zu erhalten
procedure WriteErrorsToFile(Name: String; grMessage:TGraphErrors);
var f: file;
begin
try
try
Assignfile(f,Name);
Rewrite(f);
blockwrite(f,grMessage,sizeof(grMessage));
finally
Closefile(f);
end;
except
writeln('### FEHLER: In die Datei konnte nicht geschrieben werden! ###');
end;
end;
keine Ahnung, was du da so alles treibst, aber besser du machst aus dem logfile ein Textfile und nimmst statt Rewrite an dieser Stelle Append(). Du hast vergessen zu sagen, welche Delphi Version du benutzt, aber wenn du für
WIN32 schreibst, dann solltest du einmal mit SizeOf(TGraphErrors) prüfen, ob du wirklich das wegschreibst, was du willst.
Grüße vom marabu