Простенькая задача Делфи

[eoln]

Положи на форму TEdit и TButton и вот код для кнопки

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;

[eoln]

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;
Извиняюсь за повтор - браузер тупит

[Katovski]

Сообщение от ACE Valery

ну, наверное, его сначала нужно объявить (после слова var).
Если переменная эта у вас объявлена, то напишате поточнее, как конкретно ругается.

Ну, объявила, а ответ то не появляется

[Katovski]

Спасибо, молодые люди. Посижу порпробую все варианты. Но, вот не получается, чтоб он искал в строке символов точечку, а потом только бы точечку на 3 штуки заменял и строчечку возвращал. Или я задание не понимаю. Я честно говоря чистый гуманитарий, а тут вот делфи заставляют изучать...
А у Карася хорошо получилось в коде!!!!

[Карась]

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

Спасибо, Карась. Только я не пойму куда он ответ показывает. А что такое Temp?

Это временная переменная где формируется итоговоя строка.
Выводится в тотже Едит.

Edit1.Text := Temp;

Можно вывести в другой какойнибудь Едит: Edit2.Text := Temp;

[Katovski]

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

Это временная переменная где формируется итоговоя строка.
Выводится в тотже Едит.

Edit1.Text := Temp;

Можно вывести в другой какойнибудь Едит: Edit2.Text := Temp;

Спасибо! ну, нстоящий друг!

[Alter]

Странно, а ведь я кому-то решал подобную задачу на форуме.
Поиск помог бы вам .

[Katovski]

Поиск! это интересно. И если найду - значит вот оно - мое счастье!

[Katovski]

Всем спасибо