Консультация № 169129
08.06.2009, 16:50
0.00 руб.
0 2 1
Здраствуйте!Помогите сделать так,вывожу сплошной текст в memo1,надо сделать так,что бы при нахождение определеного символы,типо "." текст переводился на новую строку и так далее!помогите,очень надо.

Обсуждение

Неизвестный
09.06.2009, 08:35
общий
это ответ
Здравствуйте, Alefa1990.
Предлагаю следующий код, переводящий каретку после символа ch.

Приложение:
const
ch:char='.';
procedure TForm1.Button1Click(Sender: TObject);
var
k:integer;
s:string;
begin
k:=1;
s:=Memo1.Lines.Text;
while k<length(s) do
begin
if s[k]=ch then //если очередной символ равен ch
insert(#13,s,k+1); //то вставляем после него символ переводим строку
inc(k);
end;
Memo1.Lines.Text:=s; //выводим результат обратно в Memo1
end;
Неизвестный
09.06.2009, 18:54
общий
спасибо большое,помогло!
Форма ответа