No Money No Honey

上網找到下面的程式碼，修了一下測試，真的可以耶!!!!最近的程式剛好有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); […]