Скачать: CL | DM;

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

← →
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 типа: Привет всем

---

← →
Anatoly Podgoretsky ©   (2002-07-01 16:54) [11]

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

---

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

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

---

← →
vedmed ©   (2002-07-02 14:30) [13]

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

---

← →
Alx2 ©   (2002-07-02 14:51) [14]

Типа этого?

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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.009 c