delphi
shockhack
太懒,什么也不想写
展开
-
数字和字母组合的字符串数字部分自增
function IncNum(const NumberStr: string): string;vari, num: Integer;numstr: string;IsIn: Boolean;beginIsIn := True;;numstr := NumberStr;for i := Length(numstr) downto 1 dobeginif numstr[i] in ['0'..'9'] thenbeginif not isin then Continue;isin.转载 2020-09-01 21:23:46 · 558 阅读 · 0 评论 -
delphi AddObject 用法
//添加数据和对象到下拉框procedure TForm1.Button1Click(Sender: TObject);var s:string;begin ComboBox1.Items.Clear; s:= '1001'; //ComboBox1.Items.Add('1'); ComboBox1.Items.AddObject('1',TObject(s) ); s:='2001'; //ComboBox1.Items.Add('2'); ComboBox1....转载 2020-08-16 11:18:03 · 584 阅读 · 0 评论 -
delphi导入导出excel|oracle
1.导出用DBGrid直接到剪切板,然后粘贴到excle就ok了,有什么Excle的格式之类的可能要设置一下:{ 1. StrTableName要查询的表名 2。StrFieldsName查询表的字段名 3。StrWhere查询条件 4。StrOrder 查询排序次序 }procedure TFrmexportData.转载 2016-07-16 14:55:11 · 538 阅读 · 0 评论 -
动态将ADOQuery数据移植到ClientDataSet通用函数
//******************************************************************************// 函数功能: 执行SQL查询语句,影响ClientDataSet控件// 函数名称: cf_dbSelectSQL// 函数参数: var oClientDataSet:TClientDataSet; 对象(C...转载 2019-09-24 17:46:58 · 738 阅读 · 0 评论