-
from kol 2.0.9 only one change is necessary to kol.pas to compile with FPC 2.0.0:
procedure LogFileOutput( const filepath, str: String ); var F: HFile; T:string;
begin F := FileCreate( filepath, ofOpenWrite or ofOpenAlways ); if F = INVALID_HANDLE_VALUE then Exit; FileSeek( F, 0, spEnd ); T:=str+#13#10;// intermediate to solve cast problem with FPC FileWrite( F, Pchar(T)^ , Length(T)); FileClose( F ); end;
You still need to choose PAS_VERSION in delphidef.inc. I have updated the documentation and the package on my website.
|