
recycletech.blogspot.com
Recycle手札關於工作上之心得記錄***關於生活上之心情分享***關於投資理財上之紀錄. Procedure MyClass.ReadAnsiFile;. F : TextFile;. Line : String;. AssignFile(f, 'C: temp myFile.txt');. Line := ' ;. While not Eof(f) do. ReadLn(f, line);. 每行印出來都很正常,但是當我將這個檔案換成UTF-8編碼時(不管有沒有BOM),他只要遇到中文字就變成亂碼了,所以我必須換個寫法. Procedure MyClass.ReadUtf8File;. StrList : TStringList;. I : Integer;. Line := ' ;. StrList := TStringList.Create;. StringList.LoadFromFile('C: temp myFile2.txt', TEncoding.UTF8);. For I := 0 to strList.Count - 1 do. Line := strList[I];. S1, S2: string.
http://recycletech.blogspot.com/