Строковые переменные: удваивающую каждую букву "б" в заданном тексте (Delphi)

[Юля_7182]

Составить программу удваивающую каждую букву "б" в заданном тексте (например из слова "баобаб" должно получиться слово "ббаоббабб").

СОСТАВИТЬ ЗАДАЧУ ПРОГРАММОЙ Delphi.

Забиндить на кнопку нужно.или как я точно не знаю.

[ZX Spectrum-128]

http://www.programmersforum.ru/showthread.php?t=223654
http://touch.otvet.mail.ru/question/40197495

[Mad_Cat]

Забиндить на кнопку нужно

В кс переиграли???

buf:='';
for i:=1 to length(s) do
if (str[i]<>'Б') and (str[i]<>'б') then buf:=buf+str[i]
else buf:=buf+str[i]+str[i];
btn.caption:=buf;

[Poma][a]

StringReplace

[Юля_7182]

не выходит. ошибку выдает на buf.

[Serge_Bliznykov]

Сообщение от Юля_7182

не выходит. ошибку выдает на buf.

скорее всего, Вы забыли описать эту переменную.
надо так:

var 
  s, buf : string;
  i : integer;
begin
   s := тут напишите присвоение;
              гдеу Вас хранится текст! например, s:= Edit1.Text;

   buf := '';
   for i:=1 to length(s) do begin
     buf := buf+s[i];
     if (s[i]='Б') or (s[i]='б') then buf:=buf+s[i];
   end;
  
  Куда вывести полученную строку  :=buf; 
  например, 
  Edit2.Text := buf;
end;

вот это код (с нужными изменениями( и назначайте на вашу кнопку..

[Юля_7182]

большое спс.