delphi 日常语法总结_日常交际英语语法总结
delphi 日常语法总结由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“日常交际英语语法总结”。
Delphi总结
目录
Delphi总结.......................................................................................................................................1
1:控件只能输入数字................................................................................................................1 2:下拉框赋值............................................................................................................................1 3:初始化Cell.............................................................................................................................2 4:注册Cell.................................................................................................................................2 5:华表居中 华表增加，删除某一行......................................................................................2 6:设置增删改查按钮状态........................................................................................................2 7:主键获取方法........................................................................................................................3 8:获取多条，返回容器............................................................................................................3 9:保存
修改
删除
方法....................................................................................................4 10:遍历下拉框的值..................................................................................................................5 11: TDBGridEh增加，修改后定位到某个..............................................................................5 12::json封装，解析.................................................................................................................5 12:导出Excel文件(TsaveDialog控件).....................................................................................7 13:判断奇偶数分别插入不同位置..........................................................................................7
14:从一个目录复制文件到另一个目录，删除文件......................................................8
15:从下拉框多个值获取ID.....................................................................................................8
16:Delphi 格式化日期.....................................................................................................8 17:华表某一列求和..........................................................................................................8
1:控件只能输入数字
if not(key in ['0'..'9', #8])then key := #0;2:下拉框赋值
procedure TSickDistrtionsFrm.SetDoct();var
obj: TDoctInfoCla;
DoctInfo: THis_DoctInfo;
idx: Integer;begin
inherited;
obj := TDoctInfoCla.Create;
obj.GetAllDoctDB();
for idx := 0 to obj.iteminfo.Count1, cl1.Rows1, cl1.Rows1 do
begin
DoctInfo := THis_DoctInfo(cbbzgys.Items.Objects[idx]);
if DoctInfo.sDoct_ID + '.' + DoctInfo.sDoct_Name = BedDistrtion.sDirectorDoct then
begin
cbbzgys.ItemIndex := idx;
end;
end;11: TDBGridEh增加，修改后定位到某个
adors.Locate('sMlbm', CatalogueInfo.sMlbm, [loCaseInsensitive]);
12::json封装，解析
Var
jo, jo1, jt, jfields: ISuperObject;//封装明细
jo := SO();jt := SA([]);for idw := 0 to TJXMBInfo.iteminfo.Count1 do
begin
TJXMBInfo := TB_TJXMBInfo.Create;
TJXMBInfo.sbz := tt.O[i].s['sbz'];
TJXMBInfo.sxmmc := tt.O[i].S['mc'];
TJXMBInfo.sxmbh := tt.O[i].S['bh'];
TJXMBInfo.sKebh := tt.O[i].S['sKebh'];//
TJXMBInfo.sxmmx:= tt.O[i].S['sxmmx'];
TJXMBInfo.nxmjg := tt.O[i].d['XMJG'];
iteminfo.Add(TJXMBInfo);
end;
end
else
begin
TJXMBInfo := TB_TJXMBInfo.Create;
TJXMBInfo.sbz := jo.O['list'].s['sbz'];
TJXMBInfo.sxmmc := jo.O['list'].S['mc'];
TJXMBInfo.sxmbh := jo.O['list'].S['bh'];//
TJXMBInfo.sxmmx := jo.O['list'].S['sxmmx'];
TJXMBInfo.sKebh := jo.O['list'].S['sKebh'];
TJXMBInfo.nxmjg := jo.O['list'].d['XMJG'];
iteminfo.Add(TJXMBInfo);
end;
end;end;12:导出Excel文件(TsaveDialog控件)
{导出Excel }
if SaveDialog1.Execute then
begin
{命令执行}
{获取文件名}
Cell1.DoExportExcelFile(SaveDialog1.FileName);
end;13:判断奇偶数分别插入不同位置
for idx := 0 to PhyData.iteminfo.Count-1 do
begin
TJXMBjson := TB_TJXMBInfo(PhyData.iteminfo.Items[idx]);
if idx mod 2 = 0 then
//偶数
begin
row1 := row1 + 1;
cl1.DoSetCellData(0, row1, '□' + TJXMBjson.sxmmc);
cl1.DoSetCellTextStyle(0, row1, 1);
cl1.DoSetRowHeight(row1, cl1.DoGetRowBestHeight(row1)+ 15);
end
else if idx mod 2 = 1 then
//奇数
判断列增加
begin
cl1.DoSetCellData(2, row1, '□' + TJXMBjson.sxmmc);
cl1.DoSetCellTextStyle(2, row1, 1);
cl1.DoSetRowHeight(row1, cl1.DoGetRowBestHeight(row1)+ 15);
end;
for idxC := 0 to 4 do
begin
cl1.DoSetCellAlignment(idxC, row1, 32);//居中显示
end;
end;，14:从一个目录复制文件到另一个目录，删除文件
CopyFile(PChar('D:A***920001X.xml'), PChar('D:B***920001X.xml'), false);
DeleteFile('D:B***920001X.xml');
15:从下拉框多个值获取ID aInfo.sOpid :=THis_UserInfo(cbbczy.Items.Objects[cbbczy.ItemIndex]).sUser_ID;
16:Delphi 格式化日期
formatdatetime('yyyy-mm-dd',now);17:华表某一列求和
cl1.DoSetFormula(1, fpirow, 'sum(B' + IntToStr(3)+ ':B' + IntToStr(fpirow)+ ')');
