delphi 局部变量赋值 问题 急 在线
for i:= 0 to SelectedList.Count-1 do
begin
GotoBookmark(SelectedList.items[i]);
strOldReg_ID:='';
//OldAcc_date :=StrToDate(trim(FieldByName('acc_date').AsString));
strOldReg_ID :=trim(FieldByName('register_id').AsString);
if (strOldReg_ID <> '') then
begin
strNewReg_ID :=CreateRegisterID;
OldAcc_date :=FormatDateTime('yyyy-mm-dd',StrToDate(trim(FieldByName('acc_date').AsString)));
NewAcc_date :=FormatDateTime('yyyy-mm-dd',dbNewDate.Date);
date_bt :=Trunc(StrToDate(NewAcc_date)-StrToDate(OldAcc_date));
strUpdate := Format(strUpdate,[strNewReg_ID,StrToInt(strOldReg_ID),NewAcc_date,strOldReg_ID)]); strLogUpdate :='update flo_actlog f set f.signdate=signdate+%d,f.completedate=completedate+%d,f.bpactid=''%s'' where BPACTID=''%s''';
strLogUpdate := Format(strLogUpdate,[date_bt,date_bt,strNewReg_ID,copy(strOldReg_ID,2,7)]);
相关问答：
由于客戶端有的文件經常更新（遠程的，不是局域網），
所以想寫個自動更新的 程序。
看網上的 方法資料，知道些方法，但不知道具體怎么寫。
......
VC++ 中， &变量名。 是什么意思。 Delphi中 和他一样的符号 是哪个、？
大家都认为，C语言之所以强大，以及其自由性，很大部分体现在其灵活的指针运用上。因此，说指针是C语言的灵魂，一点都不为过。同时， ......
返回的内容是如下代码,怎么能渠道2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
VC 控制台程序:
#include <iostream>
using namespace std;
int main()
{
const int def_buffer = 1024 * 4;
DWORD t;
BYTE b[def_buffer];
memset(b, 0, sizeof(b));
PBYTE p;
t = GetTickC ......
最近换了家公司，郁闷的是关于Delphi的问题，公司之前用的也是D版Delphi7企业版的。后来被送了律事函以后，就强制改用Delphi7个人版，剧说这个版本是免费版，或者说很便宜，如果查出来，就买个好了。这下可好。苦了� ......
