Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Memo->Listbox [D7, XP]


Bluedragon ©   (2008-03-24 19:01:00) 

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


grisme   (2008-03-24 22:00:00) [1]

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

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


Reindeer Moss Eater   (2008-03-24 21:22:00) [2]

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


Bluedragon   (2008-03-24 21:19:00) [3]

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


Семеныч   (2008-03-24 19:41:00) [4]

> Bluedragon   (24.03.08 19:38) [6]

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


Bluedragon   (2008-03-24 19:38:00) [5]

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


Kolan   (2008-03-24 19:34:00) [6]

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

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


Bluedragon   (2008-03-24 19:33:00) [7]

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


Kolan   (2008-03-24 19:26:00) [8]

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

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


Bluedragon   (2008-03-24 19:21:00) [9]

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


Семеныч   (2008-03-24 19:15:00) [10]

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

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

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо