當要讀取 txt 檔時 總要判斷編碼 是 ansi 或是 utf-8 ,不然中文就會亂碼.

要是遇到沒有bom頭的TXT檔, 就更麻煩.

後來想到可以用一些小方法...使用 memo 元件

當 mmo2.Lines.LoadFromStream(sr,TEncoding.UTF8);

若該檔案編碼是ANSI 則 memo的line會是一片空白, 也就沒有行數.

所以就可以藉由判斷memo.lines.count 來決定要用哪種編碼來讀取了!


[code delphi]
sr:=TFileStream.Create('c:\test.txt',fmShareDenyWrite);

mmo2.Lines.LoadFromStream(sr,TEncoding.UTF8); //預設都utf8
if mmo2.Lines.Count=0 then begin
sr.Free;
sr:=TFileStream.Create('c:\test.txt',fmShareDenyWrite);
mmo2.Clear;
mmo2.Lines.LoadFromStream(sr,TEncoding.ANSI);
end;
[/code]

編輯記錄