Добавить цифру 0 к каждой цифре

Question

В Edit1 есть цифры:

Как добавить к каждой цифре число ноль. То есть результат на выходе должен быть:

1020304050

Ну вот пример мой, но мне кажется что это не совсем правильно:

Edit1.Text:=StringReplace(Edit1.Text,'0','00',[rfReplaceAll]);
Edit1.Text:=StringReplace(Edit1.Text,'1','10',[rfReplaceAll]);
Edit1.Text:=StringReplace(Edit1.Text,'2','20',[rfReplaceAll]);
Edit1.Text:=StringReplace(Edit1.Text,'3','30',[rfReplaceAll]);
Edit1.Text:=StringReplace(Edit1.Text,'4','40',[rfReplaceAll]);
Edit1.Text:=StringReplace(Edit1.Text,'5','50',[rfReplaceAll]);
Edit1.Text:=StringReplace(Edit1.Text,'6','60',[rfReplaceAll]);
Edit1.Text:=StringReplace(Edit1.Text,'7','70',[rfReplaceAll]);
Edit1.Text:=StringReplace(Edit1.Text,'8','80',[rfReplaceAll]);
Edit1.Text:=StringReplace(Edit1.Text,'9','90',[rfReplaceAll]);

Answer 1

Давайте прочитаем заголовок и буквально запишем каждое действие из него с заимствованием из Евангелия от Иоанна:

Вначале было Слово:

s := '';

к каждой цифре (из Edit1):

for i := 1 to Length(Edit1.Text) do

Добавить цифру 0:

   s := s + Edit1.Text[i] + '0';

Наконец вернём это Слово первоисточнику

 Edit1.Text := s;

Answer 2

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

procedure TForm1.Button1Click(Sender: TObject);
Var
S:String;
i: Integer;
begin
 s := '';
 for i := 1 to Length(Edit1.Text) do
  s := s + Edit1.Text[i] + '0';
   Edit1.Text := s;
end;
end.

БЛОГ НА HUSL

Добавить цифру 0 к каждой цифре

Ответы (2 шт):