Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Преобразовать мемо поле в строку. [D7, XP]

vajo © (2008-10-14 10:11:00)
Есть в таблице поле с типом мемо. В нем находится текстовая информация в нескольких строках. Надо из нескольких строк сделать одну.
Например:
"строка1
строка2"
в
"строка1 строка2"

Ищу символ ентера в конце строки
StrPos:=Pos(tbDOCNARADHEAD.FieldByName('Notes').AsString, Chr(13));
но почему-то он нигде не находится.
Может надо какой-то др. символ искать?

vajo (2008-10-14 13:13:00) [1]
>Anatoly Podgoretsky © (14.10.08 11:52) [10]
Книга полезная.

Игорь Шевченко (2008-10-14 12:19:00) [2]

> В справочнике Свистунова "Станд функц и проц Д4, Д5" её
> нет.

на то и Свистунов

Anatoly Podgoretsky (2008-10-14 11:52:00) [3]
> vajo (14.10.2008 10:39:07) [7]

А ты зачем интересуешься?

Ega23 (2008-10-14 11:12:00) [4]

> Всем спасибо!
> Помогло AnsiReplaceText(S,#13#10,' ');

учти, что разделитель строки может быть и #13 и #10.

набери ShowMessage('11111'+#13+'2222');

brother (2008-10-14 10:41:00) [5]
> Станд функц и проц Д4, Д5

ну дык у тебя Д7, добавили)

vajo (2008-10-14 10:39:00) [6]
Всем спасибо!
Помогло AnsiReplaceText(S,#13#10,' ');

В справочнике Свистунова "Станд функц и проц Д4, Д5" её нет.
Этот справочник не переиздавался?

Ega23 (2008-10-14 10:29:00) [7]
Заменить все комбинации #13#10 на, например, #8
Заменить все значения #13 на #8
Заменить все значения #10 на #8
Заменить все значения #8 на ' '.

Наиль (2008-10-14 10:26:00) [8]
AnsiReplaceText(S,#13#10,' ');

brother (2008-10-14 10:23:00) [9]
> 'Notes' - поле мемо.

ну посмотри в отладчике, какими символами эти строки переносятся, подозреваю, что #13#10

Наиль (2008-10-14 10:23:00) [10]
Ты ищешь строку в подстроке, вот и не находит.

vajo (2008-10-14 10:19:00) [11]
> [1]
'Notes' - поле мемо.

mLog.Lines.Add('Notes: '+tbDOCNARADHEAD.FieldByName('Notes').AsString);

В итоге можно увидеть результат
строка1
строка2"

Который и надо сделать в одну строку.

brother (2008-10-14 10:14:00) [12]
> StrPos:=Pos(tbDOCNARADHEAD.FieldByName('Notes').AsString,
> Chr(13));

где здесь мемо?

Наверх

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