主页 / 问题 / 912663
Accepted
delphi
Asked:2020-11-28 19:04:49 +0000 UTC2020-11-28 19:04:49 +0000 UTC

如何在一个代码中使用 StringReplace、MidStr、Trim

  • 772

我有伊迪丝，我在那里输入号码。我做了一个这样的代码，但是当我输入它时，出现错误，我知道这是由于StringReplache因为我使用了两次，如何在一个代码中完成所有空格并将逗号更改为点

procedure TForm26.btn1Click(Sender: TObject);
var
  t1: string;
begin
  t1 := StringReplace(edt2.Text, ',', '.', [rfReplaceAll]);
  t1 := Trim(edt2.Text);
  t1 := StringReplace(t1, ' ', '', [rfReplaceAll]);

  qry1.SQL.Clear;
  qry1.SQL.Add('INSERT INTO Facial(summa) VALUES('+#39+t1+#39+')');
  qry1.ExecSQL;
end;

当我用逗号输入一个数字时，我得到一个错误

在此处输入图像描述

delphi

1 个回答

  1. Best Answer

    代码需要更正，因为 你正在覆盖第一个的结果，StringReplace最好是这样（编辑，考虑到@Kromster的评论）：

    t1 := Trim(edt2.Text);
t1 := StringReplace(t1, ',', DecimalSeparator, [rfReplaceAll]);
t1 := StringReplace(t1, '.', DecimalSeparator, [rfReplaceAll]);
t1 := StringReplace(t1, ' ', '', [rfReplaceAll]);
    • 2

相关问题