procedure TForm1.Button1Click(Sender: TObject); var FileN:string; begin if self.OpenDialog1.Execute then begin filen:=UTF8ToAnsi(self.OpenDialog1.FileName); self.Memo1.Lines.SaveToFile(FileN); end; end;
在配置的INI中加上这些 [mysql]default-character-set=utf8no-auto-rehash# Remove the next comment character if you are not familiar with SQL#safe-updates[mysqld]collation-server = utf8_unicode_ciinit-connect='SET NAMES utf8'character-set-server = utf8