Salvar em UTF-8 em versões antigas do Delphi

Salvar em UTF-8 em versões antigas do Delphi

  março 31, 2017    Ana Paula Novello

---

Procedure para gravar em UTF-8 num arquivo .TXT, para identificação.
Obervar que é necessário utilizar a função UTF8Encode para garantir

Então vamos começar?

Vamos utilizar para nosso teste:

• TMemo - Nome: mmUTF8
• TPanel - Nome: pnlUTF8
• TBitBtn - Nome: BtnUTF8

Com isso vamos criar a procedure 

procedure TFSistema.SalvaUTF8(wCaminho: String; wConteudo: TStrings);
const
  cUTF8 = $BFBBEF;
var
  wUTF8: Integer;
  wTXT: UTF8String;
  wFS: TFileStream;
begin
  if Trim(wConteudo.Text) <> EmptyWideStr then begin
    wTXT := wConteudo.Text;
    wFS := TFileStream.Create(wCaminho, fmCreate);
    try
      wUTF8 := cUTF8;
      wFS.WriteBuffer(wUTF8, sizeof(wUTF8) - 1);
      wFS.WriteBuffer(wTXT[1], Length(wTXT) * sizeof(wTXT[1]));
    finally
      wFS.free
    end;
  end;
end;

Coloque o mmUTF8 (Tmemo) com o alinhamento em "alClient";

O pnlUTF8 (TPanel) com o alinhamento em "alTop";
O BtnUTF8 (TBitBtn) dentro do pnlUTF8

E por fim de um duplo clique no BtnUTF8 e coloque o código a seguir para poder salvar o contudo digitado no mmUTF8 ;

procedure TFSistema.BtnUTF8Click(Sender: TObject);
begin
     SalvaUTF8('C:\UTF8.txt', mmUTF8.Lines);
end;

Exemplo: Download do exemplo