Привет либо отправить текст в UTF8 или в memo выставить шрифт я забыл уже какой в Lazaruse Нет таких проблем!
Utf8ToAnsi(Memo1.Text); или AnsiToUtf8(Memo1.Text); пробуй
Код:
IdUDPClient1.Send(Utf8ToAnsi(Edit1.Text));
var
s:string;
begin
s:='';
s:=BytesToChar(AData);
//вывод...
memo1.Lines.Add(Abinding.PeerIP+' '+Utf8ToAnsi(s));
end;
________________
Группа вк: [Ссылки могут видеть только зарегистрированные пользователи. ]
Последний раз редактировалось RenatPro; 27.09.2015 в 11:26.
Причина: код