Архив форумов ЦИТФорума

[Anatoliy]

По подробней ПОЖАЛУЙСТА.(новичок)

[BONHOMME]

Помотри в свойствах. Там где то должно быть Multiline. Если нет значит никак.
Можешь вырезать их предварительно или заменить на пробелы.

[Anatoliy]

А как их заменить на пробелы?

Написать цикл, поиска определенного символа и если нашел то удалить и вставить символ пробела.
Я не знаю как эт реализовать,помогите примерчиком.

[Qube]

В Delphi имеется функция StringReplace.
Заменяем переводы строки на пробелы:

s := StringReplace(s,#13,' ',[rfReplaceAll]);

[BONNHOMME]

Только перевод строки это 10 а возврат каретки это 13.
Поэтому используй так:

s := StringReplace(s,#13,' ',[rfReplaceAll]);
s := StringReplace(s,#10,' ',[rfReplaceAll]);

Я никогда не пользовался этой фунцией.
Можешь сделать всё тоже в цикле.
for i:= 1 to s[0] do
if((s[i]=#10) or (s[i]=#13)) then s[i]:=#32;

[Anatoliy]

Ни ошибок ни чего.
Нашел пример в книге.
Помещаю в событие(выполнить при двойном нажатии в мемо) компонента мемо.
Думаю чтот не так указал с переменными.
(тут хотел пока попробовать заменить "а" на "б".
AnsiString S1,S2,S3;

S1 = Mprim->Text;
S2 = "а";
S3 = "б";

int i0 = 0, i = S1.Pos(S2);
while(i)
{
S1 = S1.SubString(1,i + i0 - 1) + S3 +
S1.SubString(i+ i0 +S2.Length(),255);
i0 += i - 1 +S3.Length();
i = S1.SubString(i0 + 1, 255).Pos(S2);
}

[Anatoliy]

Ни ошибок ни чего.
Нашел пример в книге.
Помещаю в событие(выполнить при двойном нажатии в мемо) компонента мемо.
Думаю чтот не так указал с переменными.
(тут хотел пока попробовать заменить "а" на "б".
AnsiString S1,S2,S3;

S1 = Mprim->Text;
S2 = "а";
S3 = "б";

int i0 = 0, i = S1.Pos(S2);
while(i)
{
S1 = S1.SubString(1,i + i0 - 1) + S3 +
S1.SubString(i+ i0 +S2.Length(),255);
i0 += i - 1 +S3.Length();
i = S1.SubString(i0 + 1, 255).Pos(S2);
}