В слове Х перед каждой буквой "к", которой предшествует буква "с", вставить букву "н"

@RomeoSFS · Регистрация: 23.09.2012

Привет всем) вот условие задачи:В слове Х перед каждой буквой "к", которой предшествует буква "с", вставить букву "н" У меня был код на паскале я его переделал под delphi но он мне в memo выводит какие то цифры, не подскажите в чём проблема?

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var s : string;
    i : integer;
begin
  s := Edit1.Text;
   i := 1;
  while i < Length(s) do
    if (s[i] = 'с') and (s[i+1] = 'к') then
    begin
      Insert('н',s, i+1);
      Inc(i, 3);
       Memo1.Text := IntToStr(i)
    end
    else
      Inc(i);
end;
end.

@FIL · 18.09.2013, 19:22

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Text := StringReplace(Edit1.Text, 'ñê', 'ñíê', [rfReplaceAll])
end;

@RomeoSFS · 18.09.2013, 19:24 **[ТС]**

Спасибо выручили))

@RomeoSFS 0 / 0 / 2 Регистрация: 23.09.2012 Сообщений: 130
	18.09.2013, 19:24 [ТС]	3
	Спасибо выручили)) 0

Опции темы