dephi中常用变量类型与语法

常用变量类型
string/integer/Boolean/TDatetime/Ttime/TDate

循环
for i:= 1 to 7 do //由低到高循环，
for i:= 6 downto 1 do //由高到低循环
begin
end;

if ... then
...
else if ... then //可以有多个else if
...
else
...;

 
定义全局常量
uses .......;
const
  softname='集团数据看板 V';
  softver='2.1';
 
定义函数与过程
  function DownLoadFile(Source, Dest: string): Boolean; 有参数
  function GetDesktopPath():string;  无参数  
  procedure GetDesktopPath():string;  无参数  

定义全局变量 
var
  sortsql,sqlflag,SLineFlag,SRateFlag,SQoqFlag:string;
implementation 
uses dateU; //这里也可以引用单元

SQL赋值
  sql:='insert into cjsdata (cjsname,cjsday,cjsmoney,updatetime) ';
  sql:=sql+'values ('''+cbb1.Text+''','''+edt1.Text+''','+edt2.text+',getdate())';
 
q1.SQL.Add('select cjsid, cjsname from cjsdata where cjsname=:cjsname and cjsday=:cjsday');
q1.Parameters.ParamByName('cjsname').Value := cbb1.text;
q1.Parameters.ParamByName('cjsday').Value := edt1.text;

对话框
ShowMessage('数据备份操作已经成功完成!');
if messagedlg('您确认要删除这条记录吗?', mtinformation, [mbYes, mbNo], 0) = mrYes then
    datafrm.tds2.DataSet.Delete;
 
MessageBox(self.Handle, '信息修改成功!', '提示', mb_IconInformation + mb_Ok);