[Lord_Vlad]

Доброго времени суток, коллеги по цеху!

Встала задача, о которую я себе уже несколько часов разбиваю голову, а именно - надо найти спецсимволы в строке, точнее - символы переноса.

Как ни странно, но стандартные методы не помогают.

Пробовал такие вариации:

Код:

pos(#13#10, temp)

AnsiPos(#13#10, temp)

Попробовал даже так:

Код:

if StringReplace(temp, #13#10, #13#10, [rfReplaceAll, rfIgnoreCase]) <> temp then

И все возвращает нули... А перенос в этой строке точно есть, и точно #13#10, проверял.
Да что там, пробовал искать и #13 и #10 отдельно... Толку - ноль!

Может подскажете что пользительное?

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

[poli-smen]

Сообщение от Lord_Vlad

Встала задача, о которую я себе уже несколько часов разбиваю голову, а именно - надо найти спецсимволы в строке, точнее - символы переноса.

Как ни странно, но стандартные методы не помогают.

Пробовал такие вариации:

Код:

pos(#13#10, temp)

AnsiPos(#13#10, temp)

Наверное проблема связана с тем, что "Delphi XE4". Переменная temp как объявлена?

В Delphi 7 такой код:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  temp: String;
  p: Integer;
begin
  temp := 'Проверка'#13#10'переноса';
  p := Pos(#13#10, temp);
  ShowMessageFmt('Перенос найден в позиции %d', [p]);
end;

выдаёт: "Перенос найден в позиции 9"

[Lord_Vlad]

poli-smen, привет

temp, конечно же, string.

Однако, Ваш пример заработал у меня на XE4. Сейчас до работы доберусь, буду разбираться, что к чему и почему

Как чего разгребу - отпишусь

Спасибо

[Lord_Vlad]

Мне удалось найти источник моей проблемы.
Я тащу данные из TRichEdit построчно и ищу в них символы переноса строки. Однако, в TRichEdit они не проставляются.

Суть моей задачи простая, мне надо найти начало и конец абзаца TRichEdit. Этот метод не подошел

Не подскажете что-нибудь более-менее действенное?

[poli-smen]

Сообщение от Lord_Vlad

Мне удалось найти источник моей проблемы.
Я тащу данные из TRichEdit построчно и ищу в них символы переноса строки. Однако, в TRichEdit они не проставляются.

Суть моей задачи простая, мне надо найти начало и конец абзаца TRichEdit. Этот метод не подошел

Не подскажете что-нибудь более-менее действенное?

Построчно это как? Каждая строка это же и есть новый абзац - посреди строки (т.е. абзаца) не может быть переноса строки, так как это будет новый абзац и соответственно новая строка.

Т.е. здесь не найдёт переноса строки:

Код:

p := Pos(#13#10, RichEdit1.Lines[0]);

А вот здесь найдёт (если текст многострочный):

Код:

p := Pos(#13#10, RichEdit1.Lines.Text);

(только какой смысл?)

[Lord_Vlad]

Да, я опять недосказал историю
В TRichEdit включен WordWrap А вот текст надо вытаскивать поабзацно