Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.04.20;
Скачать: CL | DM;

Вниз

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]

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


 
Reindeer Moss Eater ©   (2008-03-24 21:22) [9]

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]



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

Текущий архив: 2008.04.20;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.017 c
2-1206546070
kernel
2008-03-26 18:41
2008.04.20
WM_PAINT чужого приложения


2-1206706569
oleg_teacher
2008-03-28 15:16
2008.04.20
помогите с кодировкой


2-1206701658
Ramzes001
2008-03-28 13:54
2008.04.20
Ошибка


2-1206519877
Andrewtitoff
2008-03-26 11:24
2008.04.20
Как удалить файл из проекта Delphi 2007


4-1187433709
Inject
2007-08-18 14:41
2008.04.20
Инжект DLL в чужой процесс