Скачать: 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 вся ветка

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



Память: 0.47 MB
Время: 0.043 c