delphi程序怎么样在linux下运行?

发布于2022-01-13 01:52:26
8个回答
admin
网友回答2022-01-13
使用clx库进行编程的就可以,把vcl换成clx,编译后即可在Linux下使用 另外推荐使用Lazarus编程,跨平台,使用Free Pascal语言,和Delphi很相似,语法相同
请参考
admin
网友回答2022-01-13
timer1.Enabled:=true; 的时候开始执行
admin
网友回答2022-01-13
装模拟器,或者用更简单的办法,找个安卓手机
admin
网友回答2022-01-13
ShellExecute不能接受字符型的参数,应该是
ShellExecute(Handle,'open','Explorer.exe',pchar(edt6.Text+'直连数据库'),nil,1);
admin
网友回答2022-01-13
Timer定时运行

-
定时运行这个问题其实老早就接触到了,不过在上次的程序中似乎没有很好的解决这个问题,并且没有深入下去。这次再次碰到同样的问题,在查找了网上的资料以后,对这一问题有了比较深的理解。在程序中实现定时运行的思路:
由timer控件实现
两个timer控件,其中timer1负责每一分钟检查一次系统时间和设定时间的差值,如果两者相差5分钟,则继续检查,直到当相差时间小于5分钟,触发timer2,timer2的定时器时间就是这个时间间隔。当timer2到时以后,就触发主程序。具体代码

procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Interval:=60*1000; //启动监控,每1分钟检查一次设定时间和当前时间
timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
l_time: TDateTime;
h_time: TDateTime;
ss:Int64;
begin
timer1.enabled:=false;
h_time:= strtotime('10:30:00');
l_Time := time; //now是取当前的日期加时间,time只取当前时间
if (h_timel_time) then begin
ss:=SecondsBetween(h_time,l_time); //求两个时间相差多少秒
if ss5*60 then begin //如果时间间隔小于5分钟定时启动timer2
timer1.Enabled:=false;
showmessage('Inteval seconds:'+inttostr(ss));
timer2.Interval:=ss*1000;
timer2.Enabled:=true;
end;
end
else
timer1.enabled:=true;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
timer2.enable:=false;
showmessage('ok on time run the program');
// start...
timer1.Enabled:=true; //再次开始监控
end;
admin
网友回答2022-01-13
Enabled=true 时才会执行;
admin
网友回答2022-01-13
看你怎么设置了,timer事件应该是一个触发事件。
admin
网友回答2022-01-13
你用的什么数据库啊。。。access数据库的话比较麻烦,access最好注册odbc数据源

回到
顶部