Удваивание букв в Delphi 7

Posted by obzor under Delphi

Как сделать удваивание букв, мне нужно что-бы при вводе буква к удалялась, а все остальные буквы удваивались, код на удаление буквы к у меня есть, только нужно удвоение букв.
Если кто-то знает код на удвоение букв, то подскажите пж.

newerow1989

   s:='asdfghjkl';
   For i:=Length(s) downto 1 do
      Insert(s[ i],s,i);

Lorden

var
str:String;
i:Integer;
begin
str:=Edit1.Text;
For i:=Length(str) downto 1 do
begin
  if str[ i]='к'  then  delete(str,i,1);
  Insert(str[ i],str,i);
end;
Label1.Caption:=str;

Utkin

s:='asdfghjkl';
a:=''
For i:=1 to Length(s) do
begin
    a:=a+s[ i]+s[ i];
end;

тема на форуме

Похожие статьи

• Visual Basic
• Как записать несколько строк по-очереди в переменную string?
• Как быстро перемешать строки?
• Перевести тип String в PAnsiChar