小编M.G*_*mez的帖子

只有TEdit,Delphi中的数字

如何添加TEdit仅接受数字?我搜索信息,但没有任何帮助我.

我需要一个TEdit不接受任何字母或字符串的东西.

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); 
begin 
  if not (Key in [#8, '0'..'9', DecimalSeparator]) then 
  begin
     ShowMessage('Invalid key: ' + Key); 
     Key := #0; 
  end 
  else 
  if (Key = DecimalSeparator) and (Pos(Key, Edit1.Text) > 0) then 
  begin 
    ShowMessage('Invalid Key: twice ' + Key); 
    Key := #0; 
  end; 
end;
Run Code Online (Sandbox Code Playgroud)

delphi

3
推荐指数
1
解决办法
1万
查看次数

如何使用迭代器?

如何使用USING命令在c ++中声明迭代器?

using myVectorIterator = std::vector<int>::iterator;
Run Code Online (Sandbox Code Playgroud)

这是我的意思

for (myVectorIterator = vector.begin(); myVectorIterator != vector.end(); myVectorIterator++)
Run Code Online (Sandbox Code Playgroud)

我在'='和'!='中有错误.

c++ visual-studio

2
推荐指数
1
解决办法
51
查看次数

如何在Delphi中选择文件

我需要制作'图形用户界面',我需要一些VCL组件来选择一些文件.

此组件必须选择文件,但用户不必放置文件的名称.

我正在搜索信息,但没有任何帮助我.

delphi vcl

1
推荐指数
1
解决办法
9052
查看次数

标签 统计

delphi ×2

c++ ×1

vcl ×1

visual-studio ×1