Ups: Nachtrag... Shmia war so nett, mich über einen kleinen Fehler zu inromieren, den ich auch hier bekannt geb... Die Prozedure
Delphi-Quellcode:
procedure TLogFile.AddChars(ch: char);
var
x : string ;
begin
fillchar (x,80,ord(ch)) ;
Add (x) ;
end;
muss durch folgende ersetzt werden:
Delphi-Quellcode:
procedure TLogFile.AddChars(ch: char);
begin
Add(StringofChar(ch, 80)) ;
end;
da es sonst zu einem Fehler kommt.
Danke Shmia,
Gruß