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

Вниз

Наложение в Memo   Найти похожие ветки 

 
paule   (2004-12-17 03:23) [0]

Мастера, подскажите пожалуйста.

Имеется объект Memo. На нем текст в несколько строк.

Андрей     петрович
                   ,\ -------/
                                   Петров    
      ---
                              1922  

Так вот можно из этого получить одну строку както:

Андрей ---петрович ,\ -------/ 1922 Петров

Заранее спасибо


 
KilkennyCat ©   (2004-12-17 03:28) [1]

если не ошибаюсь, у мемо есть lines...


 
Palladin ©   (2004-12-17 03:30) [2]

Это вопрос или утвеждение, как тема для статьи? :)


 
aus   (2004-12-17 03:34) [3]

>если не ошибаюсь, у мемо есть lines...

а у lines есть св-во text типа string, уже готовая строка.


 
paule   (2004-12-17 03:42) [4]

ну и как это поможет?
Они же не наложатся строки. а просто друг к другу приплюсуются


 
Palladin ©   (2004-12-17 04:11) [5]

В общем случае твоя задача не имеет решения.


 
paule   (2004-12-17 04:13) [6]

а в частном случае?


 
KilkennyCat ©   (2004-12-17 04:48) [7]

А в частном так: result := replace(memo.lines[0], "   ", memo.lines[3]) + memo.lines[1]//c убраными с переди пробелами по любому алгоритму, на вкус,\\ + memo.lines[2] + memo.lines[4]


 
paule   (2004-12-20 04:25) [8]

такой алгоритм не покатит. не известно скока строк и в какой они последовательности :))


 
KilkennyCat ©   (2004-12-20 04:35) [9]

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


 
paule   (2004-12-20 05:43) [10]

а если брать, строку и переносить её на канву компонента Image к примеру, потом брать другую строку и с тойже позиции TextOut делать.
Ониже наложатся? или одна строка дргую затрет?


 
KilkennyCat ©   (2004-12-20 08:24) [11]

если не известно скока строк и в какой они последовательности , то задача неразрешима. Если наоборот, то можно и через рисунок, и через лабел...


 
ocean   (2004-12-20 10:25) [12]

ну а просто как идею:
S := Memo1.Text;
for I := 1 to length (S) do
 if Ord(s[I]) > Ord(" ") then result[I] := S[I]; //убрать пробелы и переносы строк



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

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

Наверх




Память: 0.46 MB
Время: 0.025 c
1-1103190060
Garry_c
2004-12-16 12:41
2005.01.02
Пропало верхнее меню в окне. Как восстановить?


14-1102870382
alex145
2004-12-12 19:53
2005.01.02
Предыдущая страница


3-1101370985
zom
2004-11-25 11:23
2005.01.02
SHRINKDATABASE - плюсы и минусы сего действия?


3-1102142124
lexales
2004-12-04 09:35
2005.01.02
Проблемы с базой данных


1-1103192216
Progh
2004-12-16 13:16
2005.01.02
Определить директория ли по заданному пути или файл





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский