一、请教DELPHI中有关DWORD数据类型的相关问题
例子程序:
program ygb;
{$apptype console} //设置程序为非图形界面
uses windows;
var x,y:dword;
begin
x:=$009FBF6E;
write('请输入一个DWORD数:');
readln(y);
if x=y then writeln('输入正确') else writeln('输入错误');
end.
关健一点,如果不uses windows,系统不认识DWORD类型。另外16进制数要用一个$开头。
二、我用DELPHI改一个DWORD键值
procedure TForm1.Button1Click(Sender: TObject);
begin
Regkey := TRegistry.Create;
Regkey.RootKey := HKEY_LOCAL_MACHINE; //错在这里reg改为regkey就行了
if RegKey.OpenKey('SYSTEM\CurrentControlSet\Services\USBSTOR,true) then
RegKey.WriteInteger('start',3);
RegKey.CloseKey;
end;
三、怎么样才可以在delphi修改dbgrid里面某值不能为负数
Table右键 Fields,找到SL字段 双击 OnSetText写代码
procedure TForm.SLSetText(Sender: TField;
const Text: String);
var value :double;
begin
if Trim(Text)='' then Exit;
try
Value := StrToFloat(text);
if Value < 0 then
begin
Application.MessageBox('输入数据不能小于零,请重新输入!','润嘉软件',48);
Exit;
end;
Sender.AsString := Text;
except
Application.MessageBox('输入数据不能为负值,请重新输入!','润嘉软件',48);
Sender.AsString := '';
Abort;
end;
end;
转载请注明出处51数据库 » delphidword负数