主页 / 问题 / 1230402
Accepted
Татьяна
Asked:2022-01-12 22:58:38 +0000 UTC2022-01-12 22:58:38 +0000 UTC

将数字 0 添加到每个数字

  • 772

Edit1 有数字：

12345

如何为每个数字添加一个零。也就是说，输出应该是：

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]);
delphi

2 个回答

  1. Best Answer

    让我们读一下标题，并从字面上写下每一个动作，借用约翰福音：

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

    s := '';

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

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

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

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

    最后，让我们把这个Word还给原源

     Edit1.Text := s;
    • 2

  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.
    • 0

相关问题