Дан символ C и строка S. Удвоить каждое вхождение символа C в строку S. (делфи7)

[nadyaH]

не понимаю условие задачи. нужна помощь в написании программы.

[Mad_Cat]

s1:='';
for i:=1 to length(s) do
if s[i]=c then s1:=s1+c+c
else s1:=s1+s[i];
s:=s1;

[Stilet]

s:=StringReplace(s,c,c+c,[rfreplaceall]);

Идея понятна?

[nadyaH]

function Length ( const S : string ) : Integer;
var
I:INTEGER;
C,S1:STRING;
begin
s1:='';
for i:=1 to length(s) do
if s[i]=c then s1:=s1+c+c
else s1:=s1+s[i];
S:=S1;
EDIT3.Text:=STRTOINT(S);
end;

end.

ошибка в чём то.
что означает length(s) ?

[phomm]

Ошибка в том, что Ваша функция тоже имеет имя Length - а это зарезервированное имя, Вам надо будет своё имя, которое там где function Length поменять на что-то , например MyLength
А также внутри Вашей функции нельзя писать EDIT3.Text:=STRTOINT(S); т.к. функция не относится к форме и следовательно внутри неё не видно контрола Edit3 , Вам надо либо указать Form1.Edit3 (ну или какая у Вас там форма), или же данную функцию сделать методом формы. Но наиболее хороший вариант - когда Вы вызываете свою функцию (а скорее всего Вы делаете это в обработчике клика кнопки на форме), полученную в ней изменённую строку запомнить и только потом задействовать код EDIT3.Text:=S; который и покажет этот запомненный результат.

[nadyaH]

procedure TForm1.Button1Click(Sender: TObject);
 function MyLength ( const S : string ) : Integer;
var
I:INTEGER;
C,S1:STRING;
begin
s1:='';
for i:=1 to length(s) do
if s[i]=c then s1:=s1+c+c
else s1:=s1+s[i];
EDIT3.Text:=S1;
end;end.

всеравно программа не работает.

[phomm]

У Вас туговато с основами паскаля. Подучите, пожалуйста, и вопросы сами отпадут.
Учебник
Да, и ещё, не сочтите за труд, прочтите руководство вопрошающего

[Serge_Bliznykov]

всеравно программа не работает.

это уже совсем близко к рабочему варианту.
Вы забыли одну "мелочь"...
вот смотрите, что означает вот эта запись?

if s[i]=c then

читаем - "если очередной(i-й) символ строки равен символу(строке) C, тогда ..."
а где Вы задаетё, чему равна переменная C ?!
нигде!! Вот в этом и состоит ваша ошибка.
попробуйте так:

function CopyStringWithDuplicate ( const S : string; const C : string ) : string;
var
  I:integer;
begin
  result := '';
  for i:=1 to length(s) do
    if s[i]=c then result:=result+c+c
    else result:=result+s[i];
end;

вызывать так:

EDIT3.Text:= CopyStringWithDuplicate( Edit1.Text, Edit2.Text);

[nadyaH]

procedure TForm1.Button1Click(Sender: TObject);
 function CopyStringWithDuplicate ( const S : string; const C : string ) : string;
var
  I:integer;
begin
  result := '';
  for i:=1 to length(s) do
    if s[i]=c then result:=result+c+c
    else result:=result+s[i];
end;
edit3.Text:= CopyStringWithDuplicate( Edit1.Text, Edit2.Text);/// edit 3 (здесь ошибку выдаёт)
end.

[Serge_Bliznykov]

ну что я хочу сказать....
Надя, неужели трудно при вставке кода соблюдать баланс открывающих begin и закрывающих end ???!!!

procedure TForm1.Button1Click(Sender: TObject);
 function CopyStringWithDuplicate ( const S : string; const C : string ) : string;
 var
    I:integer;
  begin
    result := '';
    for i:=1 to length(s) do
      if s[i]=c then result:=result+c+c
      else result:=result+s[i];
  end;
begin
  edit3.Text:= CopyStringWithDuplicate( Edit1.Text, Edit2.Text);
end;