Question

delphi怎么获取edit1里的数值？

比如这个，重置系统时间，新手求看
var
yourtime:Tsystemtime;
a,b,c,d,e,f:integer;
g,h,i,j,k,l:string;
begin
with yourtime do
begin
g:=edit1.text;
a:=strtoint(g);
wyear:=a;

h:=edit2.Text;
b:=strtoint(h);
wmonth:=b;

i:=edit2.Text;
c:=strtoint(i);
wmonth:=c;

j:=edit2.Text;
d:=strtoint(j);
wmonth:=d;

k:=edit2.Text;
e:=strtoint(k);
wmonth:=e;

l:=edit2.Text;
f:=strtoint(l);
wmonth:=f;

end;
setsystemtime(yourtime);
end;
出什么问题了？怎么更改不了？

Answer 1

我不知道你的操作系统是什么.你的程序XP下面应该没问题.在win7以上请以管理员身份运行.不然估计会权限不够无效.

追问

我试了不行，帮帮忙看一下是不是语法问题，新手求教