Кодировка Текста

[designer999]

Сообщение от ZuBy

Попробуй

uses 
  .., WideStrUtils;

function AnsiToUtf8Ex(const S: AnsiString; const cp : integer): UTF8String;

если сделать memo1.Lines.Text:=AnsiToUtf8Ex(memo 1.Lines.Text,CP_UTF8);, то текст так и остаётся русским(

[ZuBy]

Text - UnicodeString, нужна Ansi Строка

[designer999]

Сообщение от ZuBy

Text - UnicodeString, нужна Ansi Строка

а можно подробнее? а то не понял

[ZuBy]

memo1.Lines.Text, тут Text: UnicodeString, а нужно AnsiString

var
  us: UTF8String;
  str: AnsiString;
  pas: PAnsiChar;
begin
  str := 'ля-ля-ля';
  us := AnsiToUtf8Ex(str, CP_UTF8);
  pas := PAnsiChar(us);
  ShowMessage(pas);
  Form1.Caption := UTF8String(pas); // порверяем данные, вдруг изменились
end;

[designer999]

ZuBy большое спасибо!!!!!!!!!!!!!