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

[Katovski]

Люди, помогите пожалуйста. Понимаю, задача элементарная, но я только-только начала изучать Делфи. итак:
Даны натуральное число n, символы s1, s2...sn. Преобразовать последовательность s1, s2...sn, заменив в ней каждую точку многоточием, т.е. тремя точками.
Заранее спасибо

[Карась]

Какие уже есть наработки?
В поиске были?

[Katovski]

Это ваще моя можно сказать первая задача, которую нада на оценку решить. Я плохо соображаю, получилось так
procedure TForm1.FormCreate(Sender: TObject);
var
x:integer;
begin
x := random(11);
Edit1.Text := IntToStr(x);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
s:=Edit2.Text;
if(length(s)=0) and (s[length(s)]='.')
then Label4.Caption:=Edit2.Text;
//or if pos ('.', s)>0 then Label3.Caption:='...';
//Edit1.SetFocus;
end;

Однако, я не могу придумать как сделать так, чтоб он точки менял на три... вот на форуме у вас же было подобное, но там наоборот надо было три точки удалять...
Может, объясните как в таких задачах думать

[Katovski]

типа так было
for i:=length(s) downto 1 do
while pos('...',s)>0 do delete(s,pos('...',s),2);

[eoln]

типа так было
for i:=length(s) downto 1 do
while pos('...',s)>0 do delete(s,pos('...',s),2);

d:=1;
repeat
  if copy(s, d, 1)='.' then begin
    insert('..', s, d);
    inc(d,2);
  end;
  inc(d)
until d>length(s)

[Katovski]

ой, щас попробую! спасибо!

[Карась]

Реагирует только на одиночную точку. Двоеточие, троеточия и т.д. не обрабатывает. Найдя одиночную точку заменяет её на 3.

procedure TForm1.Button1Click(Sender: TObject);
Var S, Temp : String;
    i : Integer;

begin
S := Edit1.Text;
Temp := '';
For i := 1 To Length(S) Do
  Begin
    Temp := Temp + S[i];
    If (S[i-1] <> '.') and (S[i] = '.') and (S[i+1] <> '.') Then
      Temp := Temp + '..';
  End;
Edit1.Text := Temp;
end;

[Katovski]

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

d:=1;
repeat
  if copy(s, d, 1)='.' then begin
    insert('..', s, d);
    inc(d,2);
  end;
  inc(d)
until d>length(s)

______________

А я совсем глупая, он у меня на "d" ругается, может подскажете куда его поточнее вставлять? плз.

[ACE Valery]

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

______________

А я совсем глупая, он у меня на "d" ругается, может подскажете куда его поточнее вставлять? плз.

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

[Katovski]

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