bagatelles

Project -> Project Option -> Compiler Options -> Paths，或是按Shift-Ctrl-F11
在Other unit files(-Fu)中將以下路徑補上
C:\codetyphon\typhon\components\BaseUtils\
這樣就可以use FileUtil。

CodeTyphon 5.3使用了FPC 3.1.1，RTL終於用了UTF-8，但有些電腦一直無法編譯出Win32/Win64 IDE，研究發現應該是PATH的問題，修改以下部分
 
系統內容->進階->環境變數->系統變數->Path
將原本的路徑存下來，換成以下這行:

procedure BenchmarkFileStream(AFile: string);
var
I, Position, PackageCount: cardinal;
FS: TFileStream;
Buffer: byte;
T0: double;
begin
T0 := Now;
Buffer := 0;
try
FS := TFileStream.Create(AFile, fmOpenRead);
PackageCount := FS.Size div 188;

if PackageCount > 0 then
for I := 0 to PackageCount - 1 do
begin
try
FS.Position := I * 188;
FS.ReadBuffer(Buffer, 1);
except
on E: Exception do
WriteLn('Exception: ' + E.Message);
end;
end
finally
FS.Free;
end;
WriteLn('FileStream Time: ' + IntToStr(MilliSecondsBetween(T0, Now)));
end;

procedure BenchmarkBufferIO(AFile: string);
var
I, Position, PackageCount: cardinal;
Buffer: byte;
T0: double;
MyFile: file;
NumberRead: word;
begin
T0 := Now;
Buffer := 0;
try
AssignFile(MyFile, AFile);
Reset(MyFile, 1);
PackageCount := FileSize(MyFile) div 188;

if PackageCount > 0 then
for I := 0 to PackageCount - 1 do
begin
try
Seek(MyFile, I * 188);
BlockRead(MyFile, Buffer, SizeOf(Buffer), NumberRead);
except
on E: Exception do
WriteLn('Exception: ' + E.Message);
end;
end
finally
Close(MyFile);
end;
WriteLn('BufferIO Time: ' + IntToStr(MilliSecondsBetween(T0, Now)));
end;

procedure BenchmarkFileHandle(AFile: string);
var
FileHandle: integer;
I, PackageCount: cardinal;
Buffer: byte;
T0: double;
MyFile: file;
begin
T0 := Now;
Buffer := 0;
try
AssignFile(MyFile, AFile);
Reset(MyFile, 1);
PackageCount := FileSize(MyFile) div 188;
Close(MyFile);

FileHandle := FileOpen(AFile, fmOpenRead);
Filemode := fmOpenRead;

if PackAgeCount > 0 then
for I := 0 to PackageCount - 1 do
begin
try
FileSeek(FileHandle, I * 188, 0);
FileRead(FileHandle, Buffer, SizeOf(Buffer));
except
on E: Exception do
WriteLn('Exception: ' + E.Message);
end;
end
finally
FileClose(FileHandle);
end;
WriteLn('FileHandle Time: ' + IntToStr(MilliSecondsBetween(T0, Now)));
end;

Markup Online syntax highlighter:支援Delphi, Pascal與大多數語言，可以輸出HTML，但少了行號。可以使用許多style。
Online syntax highlighting:支援Delphi, Pascal與大多數語言，可以輸出HTML，但少了行號。可以使用一些style。
CodeColorizer：支援Delphi，可輸出HTML與行號，但麻煩一點。

2013/06/17更新
新版的Code Typhon 4.3是可以在Windows XP SP3上執行，也不用將cygwin之類的目錄改名就可以build small/big IDE。開發applicaton似乎比4.2正常一點，4.2運作時會出現很多奇怪的錯誤，就連點button都會，看到有問題就懶得用，新版再看看。
 
不知道什麼原因，Windows XP 32bit在Code Typhon build code時，總是會失敗，換成Windows 7 64bit就沒什麼問題。看起來不支援Windows XP了。

將Indy 10.5.8安裝到Lazarus 1.0.8，或之前的版本常會出現錯誤，按以下步驟來應該都可以成功。
1.  將Indy 10.5.8的原始程式複製到Lazarus的安裝目錄下，目錄任意名稱。
2. 執行indylaz.lpk後，選擇Option，換到Compiler Options，確認Paths，預設應該就可以了。其他的設定可以改一下，像是Linking的最佳化設定。

mklink是Vista後來的Windows有提供的指令，在Windows 7上面的說明是這樣：
建立符號連結。
MKLINK [[/D] | [/H] | [/J]] Link Target
/D 建立目錄符號連結。預設是檔案符號連結。
/H 建立永久連結而不是符號連結。
/J 建立目錄連接。
Link 指定新符號連結名稱。
Target 指定新連結參照的路徑 (相對或絕對)。

2013/04/20測試：
 
 
FPC 2.7.1 win32: 2,065ms
FPC 2.7.1 win64: 1,657ms
Lazarus_1.0.0 win64: 1,623ms
Lazarus_1.0.4 win64: 1,608ms
Delphi 7: 3,096ms
Delphi XE2 win32: 1,456ms
Delphi XE2 win64: 1,327ms

Lazarus 1.0 64bit 在Windows 7 64bit上會跟avast antivirus防毒打架，以前的版本是沒這個問題，九月升級以後就跑出來了，會出現一對的存取錯誤，只要一執行或關閉程式都會這樣。在Windows XP 32bit上安裝Lazarus 32bit跟防毒沒出現問題，目前還不知道怎樣解決？
這個是用Lazarus 1.0 64bit, Lazarus 1.1 32/64bit BigIDE edition for CodeTyphon.
後來又裝一些，會衝的防毒如下：
1. avast free antivirus 7
2. Microsoft Security Essentials