Unicode
Как-бы мне преобразовать вводимый в Edit текст в unicode кодировку?
Цитата:
Originally posted by Cker
Как-бы мне преобразовать вводимый в Edit текст в unicode кодировку?
Как-бы мне преобразовать вводимый в Edit текст в unicode кодировку?
Ты смотрел на ф-ю MultiByteToWideChar или она не подходит? В чем вообще смысл задачи?
В том и смысл: Человек вводит текст в поле Edit.
Потом нужно этот текст преобразовать в unicode и отправить на другой комп. Unicode для того, мало-ли, может на том компе неподдерживается кодировка. А с использованием unicode все будет Ок.
Потом нужно этот текст преобразовать в unicode и отправить на другой комп. Unicode для того, мало-ли, может на том компе неподдерживается кодировка. А с использованием unicode все будет Ок.
Цитата:
Originally posted by Cker
В том и смысл: Человек вводит текст в поле Edit.
Потом нужно этот текст преобразовать в unicode и отправить на другой комп. Unicode для того, мало-ли, может на том компе неподдерживается кодировка. А с использованием unicode все будет Ок.
В том и смысл: Человек вводит текст в поле Edit.
Потом нужно этот текст преобразовать в unicode и отправить на другой комп. Unicode для того, мало-ли, может на том компе неподдерживается кодировка. А с использованием unicode все будет Ок.
Тогда так
procedure TForm1.Button1Click(Sender: TObject);
var s : array[1..100] of byte;
begin
MultiByteToWideChar(CP_ACP, 0, PChar(edit1.text),length(edit1.text),
@s[1],100);
// в массиве s1 - уникод, в принципе желательно заменить array of byte, но это сам
end;