Memo->Listbox

← →
Bluedragon (2008-03-24 19:01) [0]

Подскажите пожалуйста как мне решить эту задачу.
Есть текст в memo, нужно что бы каждый символ превратился в число(А=1 Б=2 В=3 ... Пробел=0) и добавился в listbox.

← →
Семеныч (2008-03-24 19:15) [1]

Превращение символа в число: Ord(символ).

Например: число := Ord(символ) - Ord("А") + 1;

Получим преобразование заглавных русских букв (А=1 Б=2 В=3...) в числа.
Преобразования строчных букв и прочих символов можно делать по тому же принципу - загляните в таблицу ASCII.

← →
Bluedragon (2008-03-24 19:21) [2]

А как сделать так что бы каждый символ записался в отдельную строчку в listbox?

← →
Kolan © (2008-03-24 19:26) [3]

> А как сделать так что бы каждый символ записался в отдельную
> строчку в listbox?

Надо использовать метод Add, который есть у Items.

← →
Bluedragon (2008-03-24 19:33) [4]

Как добавлять в листбокс я знаю, но проблема в том что в мемо записан цельный текст, а мне нужно что бы каждый символ этого текста записался в листбокс

← →
Kolan © (2008-03-24 19:34) [5]

> Как добавлять в листбокс я знаю, но проблема в том что в
> мемо записан цельный текст, а мне нужно что бы каждый символ
> этого текста записался в листбокс

Покаи как ты делаешь. Ответ содержится в [1] и [2]. Что не получается непонятно&#133

← →
Bluedragon (2008-03-24 19:38) [6]

Мне не понятно как из цельного текста работать с каждым символам отдельно?

← →
Семеныч (2008-03-24 19:41) [7]

> Bluedragon (24.03.08 19:38) [6]

Если S - строка (текст), то S[i] будет i-м символом этой строки.

← →
Bluedragon (2008-03-24 21:19) [8]

Для тех кто в танке, можно пример пожалуйста.

ShowMessage("танк"[1]);

← →
grisme (2008-03-24 22:00) [10]

вроде, анимешник, ан грубишь %)

for i:=1 to Length(Memo1.Text)
и
Семеныч (24.03.08 19:41) [7], и
Reindeer Moss Eater © (24.03.08 21:22) [9]

Memo->Listbox Найти похожие ветки