procedure TForm1.Button1Click(Sender: TObject);
var
sl:TStringList;
begin
sl:=TStringList.Create;
sl.Text:='伟';
sl.SaveToFile('d:\1.txt');
end;打开1.txt结果为乱码
var
sl:TStringList;
begin
sl:=TStringList.Create;
sl.Text:='伟';
sl.SaveToFile('d:\1.txt');
end;打开1.txt结果为乱码
保存起来,再打开看一下。
记事本的BUG很多