delphidword负数

一、请教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负数