摘要:
static client void ShowProgressBar() { #avifiles SysOperationProgress simpleProgress; int i; ; simpleProgress = SysOperationProgress::newGeneral(#aviUpdate, 'Updating...', 100); for(i=1;i<=100;i... 阅读全文
摘要:
lines = UploadText.text(); line = strLine(lines, 0); while (strlen(line) > 0) { cnt++; sStrings += (line+","); if((cnt mod 20) ==0) { qbsProdTable.addRange(fieldnum(ProdTable,ProdId)).value(sS... 阅读全文
摘要:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) btn1: TButton; btn2: TButton; btn3: TButton... 阅读全文