调用IsStringUTF8来判断string是否包含UTF8（中文）；procedureTForm1.Button1Click(Sender:TObject);beginifIsStringUTF8(edit1.Text)thenmemo1.Lines.Add(s+'--包含中文')elsememo1.Lines.Add(s+'--包含不中文');end; functionIsStringUTF8(s