Portierung von Units aus anderen Pascal Dialekten + WDOSX

[marabu]

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