StringGrid 功能实现：StringGrid 中编辑完A列回车就显示B列的值（B列的值由公式：B=1/A得出）这个怎么实现呢？

2015-04-13 09:29:21 253 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Xilinx SDK工程编译、链接、调试注意事项 1、添加工程启动SDK时选取workspace，如下图所示：对应的workpace文件夹中会生成如下几个文件：如果当前workspace是首次加载工程，SDK会进入启动界面点击Import Project，导入已有工程点击Browse，添加工程路径，一个完整的工程包含一个bsp文件夹，一个HW文件夹，和一个src文件夹（添加C功能函数）点击Fini... 阅读详情

StringGrid 中编辑完A列回车就显示B列的值（B列的值由公式：B=1/A得出）这个怎么实现呢？求大家帮忙，谢谢

...全文

保姆级教程：用Docker快速部署mpromonet/webrtc-streamer实现WebRTC直播（附常见问题解决）本文提供了一份详细的Docker部署mpromonet/webrtc-streamer的实战指南，帮助用户快速搭建WebRTC直播服务。内容涵盖从环境准备、基础部署到进阶配置与性能调优的全过程，并针对容器网络、视频流配置、跨网访问等常见问题提供了解决方案，旨在实现低延迟的流媒体传输。阅读详情

hedy_lu

语言基础/算法/系统设计 16,741 成员 33,233 内容

+ 关注 + 加入社区

切换为时间正序

yct0605 2015-04-29

打赏
举报



procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

var

  i:byte;

begin

  for i:=1 to 4 do  //假设有四行

  begin

    if (C=0) then  //默认第一列

    begin

      if Key=13 then 

      begin

        if Trim(StringGrid1.Cells[0,i])='0' then

        begin

          ShowMessage('Error');

          StringGrid1.Cells[1,i]:='';

        end

        else

          if Trim(StringGrid1.Cells[0,i])<>'' then

            StringGrid1.Cells[1,i]:=FloatToStr(1/StrToInt(StringGrid1.Cells[0,i]))

          else

            ShowMessage('Null');

      end;

    end;

  end;

end;

在第一列的任意单元格内点击回车实现自动计算。

hedy_lu 2015-04-29

打赏
举报

引用 1 楼 yct0605 的回复:


var
  Form1: TForm1;
  C,R:Longint;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.Cells[0,0]:='A';
  StringGrid1.Cells[1,0]:='B';
  StringGrid1.Cells[2,0]:='C'; 
end;

procedure TForm1.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  StringGrid1.MouseToCell(X,Y,C,R);
end;

procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (C=0) and (R=1) then
  begin
    if Key=13 then
    begin
      if Trim(StringGrid1.Cells[0,1])='0' then
      begin
        ShowMessage('Error');
        StringGrid1.Cells[1,1]:='';
      end
      else
        if Trim(StringGrid1.Cells[0,1])<>'' then
          StringGrid1.Cells[1,1]:=FloatToStr(1/StrToInt(StringGrid1.Cells[0,1]))
        else
          ShowMessage('Null');
    end;
  end;
end;

怎么样设置成整列都可以，这个只是第一行第一列

lyhoo163 2015-04-14

打赏
举报

楼上方向对，要设置成整个列都可以。

doloopcn 2015-04-14

打赏
举报

StringGrid中有一个事件 OnSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: String); 在这个事件中，有足够的参数让你设置公式

yct0605 2015-04-13

打赏
举报



var

  Form1: TForm1;

  C,R:Longint;



implementation



{$R *.dfm}



procedure TForm1.FormCreate(Sender: TObject);

begin

  StringGrid1.Cells[0,0]:='A';

  StringGrid1.Cells[1,0]:='B';

  StringGrid1.Cells[2,0]:='C'; 

end;



procedure TForm1.StringGrid1MouseDown(Sender: TObject;

  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

  StringGrid1.MouseToCell(X,Y,C,R);

end;



procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

begin

  if (C=0) and (R=1) then

  begin

    if Key=13 then

    begin

      if Trim(StringGrid1.Cells[0,1])='0' then

      begin

        ShowMessage('Error');

        StringGrid1.Cells[1,1]:='';

      end

      else

        if Trim(StringGrid1.Cells[0,1])<>'' then

          StringGrid1.Cells[1,1]:=FloatToStr(1/StrToInt(StringGrid1.Cells[0,1]))

        else

          ShowMessage('Null');

    end;

  end;

end;

StringGrid 功能实现：StringGrid 中编辑完A列 回车就显示B列的值 （B列的值由公式：B=1/A得出） 这个怎么实现呢？

相关推荐

StringGrid 功能实现：StringGrid 中编辑完A列回车就显示B列的值（B列的值由公式：B=1/A得出）这个怎么实现呢？