Lazarus中，多行文本保存为utf8文件格式

第一种情况，在memo控件中直接输入多行文本，用一行代码直接保存为utf8格式。

Memo1.Lines.SaveToFile('aa.csv');

打开aa.csv文件，另存，可以看到文件格式是utf8格式。

 第二种情况，memo控件加载外部文件后如果是乱码，需要处理后再保存。

外部文件为utf8格式，汉字显示正常。加载到memo后，汉字为乱码。如果不进行处理，直接保存，则格式为ansi。

// 文件先加载到memo再另存为
procedure TForm1.Button3Click(Sender: TObject);
var
  fn_in, fn_out: string;
begin
  fn_in :=  ExtractFilePath(ParamStr(0)) + 'fn_in.csv';
  if fileExists(fn_in) then
    memo1.Lines.LoadFromFile(fn_in)
  else
  begin
    showmessage('源文件不存在：' + fn_in);
    exit;
  end;


  fn_out := ExtractFilePath(ParamStr(0)) + 'fn_out.csv';
  DeleteFile(fn_out);
  memo1.Lines.SaveToFile(fn_out);

end;    

 需要提前处理一下再保存。

// 文件加载到 TStringList 后，转换后保存
procedure TForm1.Button2Click(Sender: TObject);
var
  sListMap: TStringList;
  fn_in, fn_out_memo, fn_out_list: string;
begin
  sListMap := TStringList.Create;

  fn_in :=  ExtractFilePath(ParamStr(0)) + 'fn_in.csv';
  if fileExists(fn_in) then
  begin
    sListMap.LoadFromFile(fn_in);
    sListMap.Text := UTF8ToWinCP(sListMap.Text);
    memo1.Text := sListMap.Text;
  end
  else
  begin
    showmessage('源文件不存在：' + fn_in);
    exit;
  end;

  fn_out_list := ExtractFilePath(ParamStr(0)) + 'fn_out_list.csv';
  DeleteFile(fn_out_list);
  sListMap.SaveToFile(fn_out_list);
  sListMap.Free;

  fn_out_memo := ExtractFilePath(ParamStr(0)) + 'fn_out_memo.csv';
  DeleteFile(fn_out_memo);
  memo1.Lines.SaveToFile(fn_out_memo);

end;  

 生成文件并检查格式，fn_out_list.csv为 ansi 格式，fn_out_memo.csv为 utf8 格式。