Работа со строками

← →
vvv2002 (2003-12-03 15:27) [0]

Люди добрые помогите! зарюхался совсем!
В базе данных в поле мемо есть кусок текста. Там он лежит отформатированный правильно. Теперь я хочу его переложить в НТМЛ файл ( то есть поставить в конце каждого абзаца тег <бр>). Переношу его в МЕМО1 там отображается нормально. Однако все мои попытки поставить тег <бр> именно туда где заканчивается строка пока гиблые. МЕМО1 режет строку автоматически где у него самого длина кончается и автоматически выставляется - #0. Пробовал даже вычислить реальный конец строки (абзаца) так
str:=memo1.lines.Strings[i];
str:=str[x+1]; - всегда #0
Остальные попытки описывать не буду - стыдно :)) Помогите дело то плевое уверен! Заранее благодарен.

← →
Anatoly Podgoretsky (2003-12-03 15:29) [1]

Строки объеденяются или оператором + или функцией concatenate

← →
vvv2002 (2003-12-03 15:32) [2]

>> Anatoly Podgoretsky
Дело в том что тупо объединять мне их не нужно! Мне необходимо сохранить формат текста.

← →
Darrin (2003-12-03 15:35) [3]

так загружай не в Memo a а TstringList

← →
vvv2002 (2003-12-03 15:39) [4]

>>Darrin
Я в Tlist Пытался вот так :
list:=TStringlist.create;
list.add(table1.fieldbyname("text");
list.count=1 ( он одну строку из всего текста делает ((

← →
Darrin (2003-12-03 15:44) [5]

значит сначало загрузи в мемо (раз оно правильно отображается снача), а потом из мемо в СтрингЛист

← →
Anatoly Podgoretsky (2003-12-03 15:45) [6]

Прикажешь это иначе понимать ( то есть поставить в конце каждого абзаца тег <бр>).

← →
vvv2002 (2003-12-03 15:47) [7]

>> Anatoly Podgoretsky
<бр> ето <br> русыфицированное )

← →
vvv2002 (2003-12-03 15:49) [8]

>> Darrin
Вряд ли получится ведь с list"om не получилось а они вроди родственики

← →
Anatoly Podgoretsky (2003-12-03 15:56) [9]

Ты думаешь что я не догадался, но в принципе это совсем не важно можно и такое вставить, главное в этом предложение, что говодит об объединение, это "поставить в конце каждого абзаца"

← →
Darrin (2003-12-03 15:58) [10]

получится, просто когда ты делаешь list.add(table1.fieldbyname("text"); то естественно добавляется одна строка со всем содержимым поля в базе

← →
Darrin (2003-12-03 16:00) [11]

а тебе надо построчно забить твой стрингЛист, из Мемки

← →
vvv2002 (2003-12-03 16:01) [12]

>>Anatoly Podgoretsky
Не уловил я чтото..
У меня счас ситуация такая что если я из стихов роман в НТМЛ получаю... Мне их разъединить бы. но не просто где мемо кончится а по какимто другим, загодочным пока признакам )).

← →
vvv2002 (2003-12-03 16:06) [13]

Darrin
Когда я обращаюсь к мемо1.lines.string[i] то я уже получаю строку которая зависит от размера мемо1. таким образом я всегда получаю одно и тоже ((

← →
Darrin (2003-12-03 16:13) [14]

значит беги по строке и ищи символ перевода каретки

← →
vvv2002 (2003-12-03 16:27) [15]

>> Darrin
Вот я тоже так подумал и решил искать в конце каждой строки #$13, $#C, и прочее но ничево кроме #0 в позиции str:=str[lenth+1] не нахожу(( обидно до слез

← →
Darrin (2003-12-03 16:44) [16]

если длина строки Lenght то как ты зыбираешь Lenght+1.
и почему именно в конце строки?
символ 13 может быть и в середине строки

← →
Darrin (2003-12-03 16:44) [17]

var str:string;
i:integer;
begin
str:=memo1.Text;
i:=pos(chr(13),str);
end;

← →
vvv2002 (2003-12-03 16:58) [18]

>>Darrin
Великое спасибо сча буду пробовать!

Работа со строками Найти похожие ветки