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;