Как преобразовать текстовую строку в строку типа Пр.

← →
plash07 (2002-07-01 11:30) [0]

Как преобразовать текстовую строку в строку типа Пр...

← →
MBo © (2002-07-01 11:32) [1]

разъясни принцип преобразования

← →
plash07 (2002-07-01 11:58) [2]

Sorry, совсем забыл закомментировать. Так вот.
Как преобразовать текстовую строку в строку типа Пр

← →
plash07 (2002-07-01 12:00) [3]

И еще раз. Так вот.
Как преобразовать текстовую строку в строку типа &am#1055;&am#1088;

← →
plash07 (2002-07-01 12:02) [4]

И еще раз. Совсем старый стал. Так вот.
Как преобразовать текстовую строку в строку типа Пр

← →
MBo © (2002-07-01 12:18) [5]

что-то до меня не доходит :(

← →
Skier © (2002-07-01 12:20) [6]

>plash07
Не могу понять что требуется.
Наверное это преобразование 22 века :)

← →
MBo © (2002-07-01 12:27) [7]

Может, UniCode/WideString имеется в виду?

← →
plash07 (2002-07-01 16:18) [8]

>MBo
Именно,UniCode/WideString.
Прошу прощения за некорректно сформулированный вопрос.
Так как это сделать?

← →
MBo © (2002-07-01 16:23) [9]

var w:widestring;
s:string;

w:=s;

← →
plash07 (2002-07-01 16:40) [10]

>MBo
Не то.
Попробую еще раз!
Нужно сделать преобразование текстовой строки "Привет всем"
в строку UniCode типа: Привет всем

Вообще то это не юникод, а UTF-8

← →
plash07 (2002-07-02 11:42) [12]

>Anatoly Podgoretsky
Если чесно, то я не знаю, что это за кодировка.
MS Word говорит, при сохранении, что это UniCode. В других программах-конверторах эта кодировка называется семибитная.
Но, в итоге, мне нужно сделать преобразование, а как это сделать я не знаю.

Используй функцию StringToWideChar

Типа этого?
procedure TForm1.Edit1Change(Sender: TObject); Var S : WideString; Result : String; k : integer; begin S := Edit1.Text; Result := ""; for k := 1 to length(S) do Result := Result + "_"+IntToStr(Word(WideChar(S[k])))+";"; Edit2.Text := Result; end;

← →
plash07 (2002-07-03 10:46) [15]

спасибо!
Понял!

Как преобразовать текстовую строку в строку типа Пр. Найти похожие ветки