网格的某些单元格上的百分比掩码

Question

我有一个 TStringGrid，我将在其中键入一个值，我需要掩码以使值显示为百分比，我是 Delphi 的初学者，但我看到有一个 OnGetEditMask 方法，但我不知道如何为百分比创建掩码......然后我把这个值操作成一个 Double 类型的变量。例我输入 5,4 并带有掩码得到 5,4%

那么如何将列表数据放入 Double？

Answer 1

您在

OnGetEditMask事件中正确分配了Value参数（假设您的区域设置使用十进制逗号而不是小数点），为了完整起见，在此处重复：

procedure TForm1.StringGrid1GetEditMask(Sender: TObject; ACol, ARow: Integer;
  var Value: string);
begin
  if (ACol = 0) or (ACol = 1) then
    Value := '99,9%';
end;

然后，要将单元格的字符串内容转换为double，您需要在将其传递给字符串之前从字符串中删除百分号，例如 StrToFloatDef() ：

例如：

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
  d: double;
  b: boolean;
begin
  b := False;
  s := StringGrid1.Cells[1, 1];
  if s <> '' then
  begin
    if s[Length(s)] = '%' then
    begin
      s := copy(s, 1, Length(s)-1);
      b := true;
    end;
    d := StrToFloatDef(s, 0.0);
    if b then d := d / 100;
  end;
  ShowMessage(FloatToStr(d));
end;