Помогите с задачей на Делфи!

[f1n!Sh]

Задача:
Дана строка S,содержащая менее 150 символов.Преобразовать данную последовательность символов,заменив каждую точку многоточием(т.е тримя точками)Желательно с использованием самых простых процедур и функций...зарание СПАСИБО!!

[Карась]

Вы не поверите, но я это уже комуто решал.....
Память немного подвела... Решалась обратная задача....
Решение этой задачи проще сделать по варианту из 2-ого поста немного изменив код.
http://programmersforum.ru/showthread.php?t=12694

[f1n!Sh]

Сообщение от Карась

Вы не поверите, но я это уже комуто решал.....
Память немного подвела... Решалась обратная задача....
Решение этой задачи проще сделать по варианту из 2-ого поста немного изменив код.
http://programmersforum.ru/showthread.php?t=12694

спасибо большоееее!!!!!!!!!!!!

[Katovski]

Спасибо за труды, она немножко не так ищет, она все заменяет, а нужно чтоб точку на три точки меняла и возвращала опять же все строку , но уже измененную

procedure TForm1.Button1Click(Sender: TObject);
var d:integer;
s:string;
begin
d:=1;
s:='Привет. Гы... Привет';
repeat
if copy(s, d, 1)='.' then begin
insert('..', s, d);
inc(d,2);
end;
inc(d)
until d>length(s);
edit1.Text:=s;
end;

[Карась]

Тоесть если в строке встретится подряд 10 точек то должно получиться 30 точек?

[eoln]

Сообщение от f1n!Sh

Задача:
Дана строка S,содержащая менее 150 символов.Преобразовать данную последовательность символов,заменив каждую точку многоточием(т.е тримя точками)Желательно с использованием самых простых процедур и функций...зарание СПАСИБО!!

Спасибо за труды, она немножко не так ищет, она все заменяет, а нужно чтоб точку на три точки меняла и возвращала опять же все строку , но уже измененную

procedure TForm1.Button1Click(Sender: TObject);
var d:integer;
s:string;
begin
d:=1;
s:='Привет. Гы... Привет';
repeat
if copy(s, d, 1)='.' then begin
insert('..', s, d);
inc(d,2);
end;
inc(d)
until d>length(s);
edit1.Text:=s;
end;

Ну это и есть решение. Где была одна точка - стало 3, а где 3 точки - 9 точек (каждая из трёх была заменена 3+3+3)
В чем-то вопрос? Странно конечно, но таково условие

[Katovski]

Сообщение от Карась

Тоесть если в строке встретится подряд 10 точек то должно получиться 30 точек?

Ой, наверное, но мне главное, чтоб он находил, менял и возвращал измененную строку. Надеюсь завтра сдам.

[Katovski]

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

Ну это и есть решение. Где была одна точка - стало 3, а где 3 точки - 9 точек (каждая из трёх была заменена 3+3+3)
В чем-то вопрос? Странно конечно, но таково условие

ну, он у меня почему то после нажатия на кнопочку выдал вашу строку s. А в условии то другое было. Но вроде бы у получается как Карась написал. Спасибо вам за помощь

[Katovski]

это читать не надо