procedure TForm1.Button1Click(Sender: TObject);
var
  sl:TStringList;
begin
  sl:=TStringList.Create;
  sl.Text:='伟';
  sl.SaveToFile('d:\1.txt');
end;打开1.txt结果为乱码