廣告

2010 年 6 月
 123456
78910111213
14151617181920
21222324252627
282930  

彙整

DELPHI 7 下將文字存成UTF8格式

上網找到下面的程式碼,修了一下測試,真的可以耶!!!!最近的程式剛好有UTF8編碼的困擾,使用這方式轉是方便多了,不過還要測試會不會有問題。

討論區:http://delphi.ktop.com.tw/board.php?cid=30&fid=76&tid=89562

procedure TForm1.Button1Click(Sender: TObject); var   S:UTF8String;   F:TextFile;   TntEdit1: TStringList; begin   TntEdit1 := TStringList.Create;   TntEdit1.Add(‘我是天才我是天才我是天才’);   S:=UTF8Encode(TntEdit1.Text); […]