求几个函数和过程的写法,最好是简单和复杂参半 希望有注释谢谢

worddelphi 2010-04-26 01:54:14
求几个函数和过程的写法,最好是简单和复杂参半 希望有注释谢谢
...全文
194 20 打赏 收藏 转发到动态 举报
写回复
用AI写文章
20 条回复
切换为时间正序
请发表友善的回复…
发表回复
kye_jufei 2010-07-09
  • 打赏
  • 举报
回复
生成BOM TREE過程:

procedure TRES_BOM_VIEW_F.CREATETREEVIEWMODEL;
var
iLoop:Integer;
Master,MasterNode:TTreeNode;
begin
adoq_getop.Close;
//SELECT distinct PARN_TYP FROM WWW where parn_typ<>'.' and parn_typ is not null order by PARN_TYP desc
adoq_getop.SQL.Text:='SELECT distinct PARN_TYP FROM WWW where parn_typ<>''.'' and parn_typ is not null order by PARN_TYP desc';
adoq_getop.Open;
adoq_getop.First;
cx_TV.Items.BeginUpdate;
cx_TV.Items.Clear;
Master:=cx_TV.Items.Add(nil,'昆盈BOM表檢視');
while not adoq_getop.Eof do
begin
if adoq_getop.FieldByName('PARN_TYP').AsString<>'' then
begin
Screen.Cursor:=crSQLWait;
MasterNode:=cx_TV.Items.AddChild(Master,VarToStr(adoq_getop.FieldValues['PARN_TYP']));
Application.ProcessMessages;
qry_op.Close;
qry_op.SQL.Text:='SELECT DISTINCT PARN_LITM FROM WWW WHERE PARN_TYP='''+ VarToStr(adoq_getop.FieldValues['PARN_TYP'])+''' GROUP BY PARN_LITM';
qry_op.Open;
for iLoop:=0 to qry_op.RecordCount -1 do
begin
cx_TV.Items.AddChild(MasterNode,VarToStr(qry_op.FieldValues['PARN_LITM']));
qry_op.Next;
end;
Application.ProcessMessages;
cx_TV.Items.EndUpdate;
Screen.Cursor:=crDefault;
end;
adoq_getop.Next;
Application.ProcessMessages;
end;
{
ThreadTView:=cx_TV;
ViewThread:=TExpandLH.Create;
ViewThread.Resume;
}
end;


調用:

procedure TRES_BOM_VIEW_F.btnSB_SearchClick(Sender: TObject);
begin
inherited;
try
RES_LOADING_F:=TRES_LOADING_F.Create(Self);
RES_LOADING_F.Label1.Caption:='正在檢索相關數據......';
RES_LOADING_F.Show;
RES_LOADING_F.Update;
CREATETREEVIEWMODEL;
finally
RES_LOADING_F.Close;
end;
end;
kye_jufei 2010-07-09
  • 打赏
  • 举报
回复
access數據庫插入記錄函數:

function Insdata(con:TADOConnection;StrWoSN,StrLotSN,StrNumberSN:string;ChBox:TCheckBox):Boolean;
begin
if not ChBox.Checked then
begin
try
con.BeginTrans;
con.Execute('insert into ServerData(NumberSN,WoSN,LotSN)values('+''''+StrNumberSN+''''+','+''''+StrWoSN+''''+','+''''+StrLotSN+''''+')');
con.CommitTrans;
Result:=True;
except
con.RollbackTrans;
ShowMessage('數據記錄重復!請確認!!!');
Result:=False;
end;
end
else
Result:=True;
end;
kye_jufei 2010-07-09
  • 打赏
  • 举报
回复
按逗號分隔取值:

function TRes_HrCq_HBD_F.ReturnBM(bm:string):string;
var
Temp:TStrings;
i:Integer;
begin
Temp:=TStringList.Create;
Result:='';
try
Temp.DelimitedText:=bm;
Temp.Delimiter:=',';
for i:=0 to Temp.Count -1 do
Result:=Result+QuotedStr(Temp[i])+',';
Result:=Copy(Result,1,Length(Result)-1);
finally
Temp.Free;
end;
end;
静远 2010-04-28
  • 打赏
  • 举报
回复
[Quote=引用 15 楼 zhzhrony 的回复:]
引用 12 楼 ljluck7687 的回复:
楼主不是求助而是阅兵

!
[/Quote]
  • 打赏
  • 举报
回复
[Quote=引用 12 楼 ljluck7687 的回复:]
楼主不是求助而是阅兵
[/Quote]
!
Frank.WU 2010-04-28
  • 打赏
  • 举报
回复
function IntToStr(Value: Integer): string;
// FmtStr(Result, '%d', [Value]);
asm
PUSH ESI
MOV ESI, ESP
SUB ESP, 16
XOR ECX, ECX // base: 0 for signed decimal
PUSH EDX // result ptr
XOR EDX, EDX // zero filled field width: 0 for no leading zeros
CALL CvtInt
MOV EDX, ESI
POP EAX // result ptr
{$IF DEFINED(Unicode)}
CALL System.@UStrFromPCharLen
{$ELSE}
PUSH DefaultSystemCodePage
CALL System.@LStrFromPCharLen
{$IFEND}
ADD ESP, 16
POP ESI
end;
kill222 2010-04-27
  • 打赏
  • 举报
回复
截取字符串中间字符串函数:
function zj(str,start,stop:WideString):string;
begin
Result:=Copy(Copy(Copy(str,pos(start,str)+length(start),length(str)),0,Length(str)),0,Pos(stop,Copy(Copy(str,pos(start,str)+length(start),length(str)),0,Length(str)))-1);
end;
IDWB 2010-04-27
  • 打赏
  • 举报
回复
定义函数 funtion 函数名({参数}):返回值类型;
function FUNC():string;//无参数函数
begin
end;

function FUNC(const A:integer):string;//常数参数函数
begin
end;

function FUNC(A:integer):string;//传值参数函数
begin
end;

function FUNC(var A:integer):string;//传址参数函数
begin
end;


调用 Edit1.Text:=FUNC();//无参数函数返回值

Edit1.Text:=FUNC(1);//带参数函数返回值

还有
function Func(out A:string):boolean;
begin
end;
调用
var
str:string;
if Func(str) then
begin
Edit1.Text:=str;
end;

Harryfin 2010-04-27
  • 打赏
  • 举报
回复
好吧,再来个更复杂一点的

SendMessage(Edit1.Handle, WM_SETTEXT, 0, Integer(PChar('12345')));
ljluck7687 2010-04-27
  • 打赏
  • 举报
回复
楼主不是求助而是阅兵
Mit1208 2010-04-27
  • 打赏
  • 举报
回复
Delphi 自带了好多函数的写法呢.自己看就行啊
SS_LO 2010-04-27
  • 打赏
  • 举报
回复

procedure swap(x, y: integer);
begin
x := x xor y;
y := y xor x;
x := x xor y;
end;
  • 打赏
  • 举报
回复
定义函数 funtion 函数名({参数}):返回值类型;
function FUNC():string;//无参数函数
begin
end;

function FUNC(const A:integer):string;//常数参数函数
begin
end;

function FUNC(A:integer):string;//传值参数函数
begin
end;

function FUNC(var A:integer):string;//传址参数函数
begin
end;


调用 Edit1.Text:=FUNC();//无参数函数返回值

Edit1.Text:=FUNC(1);//带参数函数返回值

柯本 2010-04-26
  • 打赏
  • 举报
回复
稍复杂一点的
Edit1.Text:=IntToStr(12345);
SQLDebug_Fan 2010-04-26
  • 打赏
  • 举报
回复
Edit1.Text := 'AAAA';
这个算不算
hongss 2010-04-26
  • 打赏
  • 举报
回复
什么要求都没有。。。。
hongqi162 2010-04-26
  • 打赏
  • 举报
回复
看看书吧,比如delphi5 开发人员指南
bdmh 2010-04-26
  • 打赏
  • 举报
回复
function GetStr:String;
begin
Result := 'abc';
end;

Edit1.Text := GetStr;
worddelphi 2010-04-26
  • 打赏
  • 举报
回复
要将函数的输出到EDit里就可以了
随便写
bdmh 2010-04-26
  • 打赏
  • 举报
回复
写什么呀
本课程是PowerBI系列课程之DAX函数专题讲解,包含以下内容 1.  DAX函数基础知识什么是DAX函数数学函数:ABS、DIVIDE、MOD、RAND、ROUND、FIXED等日期和时间函数: CALENDAR、CALENDARAUTO、MONTH、YEAR、DATE、DT等信息函数:USERNAME、USERPRINCIPALNAME、HASONEFILTER、HASONEVALUE、ISFILTERED、ISCROSSFILTERED、ISINSCOPE、ISBLANK、SELECTEDMEASURE、SELECTEDMEASURENAME等逻辑函数:AND、OR、IF、IFERROR、SWITCH、TRUE、FALSE、COALESCE(官方文档含糊不清-结合实例)等关系函数:CROSSFILTER、RELATED、RELATEDTABLE等筛选器函数:FILTER、CALCULATE、ALL、ALLEXCEPT、ALLSELECTED、EARLIER、KEEPFILTERS、REMOVEFILTERS、SELECTEDVALUE、LOOKUPVALUE等父子函数:PATH、PATHCONTAINS、PATHITEM、PATHLENGTH等统计函数:AVERAGE、COUNT、MAX、MIN、SUM等迭代统计函数:AVERAGEX、COUNTX、MAXX、MINX、SUMX、RANKX等表函数: FILTERS 、ADDCOLUMNS、 SELECTCOLUMNS、 CROSSJOIN、 EXCEPT、 GENERATE、 GROUPBY、 SUMMARIZE、 SUMMARIZECOLUMNS、 TOPN、 TREATAS、 UNION、 VALUES、DISTINCT、DATATABLE、NATUALINNERJOIN、NATRUALLEFTOUTERJOIN等文本函数: EXACT、MID、 FIND、 LEN、 REPT、 LOWER、 UPPER、 UNICHAR等时间智能函数:DATEADD、DATESMTD、FIRSTDATE、LASTDATE、SAMEPERIODLASTYEAR等财务函数:2020.7之后发布的,和Excel中财务函数相似,网页和demo pbix简单介绍其他函数:BLANK、ERROR、IFERROR等 DAX函数初体验:Max、Sum、Divide、if、Values等值函数函数以及表和列的概念DAX函数术语、语法、运算符DAX运算符和引擎中字母大小写问题DAX编程注释和快捷键DAX与Excel函数的共同点和区别(PPT)DAX、xmSQL与SQL表达式的区别(PPT)DAX函数的自学途径 2.  PowerBI中数据建模知识维度建模关系传递和交叉筛选器方向-理解表关系(1v1, 1vM, Mv1,MvM)两个方向上应用安全筛选器关闭关系自动检测新建计算列新建度量值新建计算表:辅助表(五种方式)、日历表数据类型讲解数据格式控制:%、$、千位分隔符、小数位、日期格式Format函数自定义数据格式Convert函数做数据类型转换解决中文数字单位 万 的显示问题Date和DT函数定义固定日期值显示和隐藏列DAX代码分析器阅读DAX表达式方法:从上至下、由内到外(注意Calculate的计算顺序)调试DAX表达式方法:分布输出或VAR输出3.  DAX函数原理 Vertipaq列式数据库原理理解度量值和计算列理解行上下文和筛选上下文:Calculate示意图行上下文中使用VAR替代EARLIERVAR变量在定义时的上下文中计算VAR变量是采用惰性计算(使用时计算)理解扩展表和RELATED函数理解数据沿袭Lineage 4.  开始感知DAX函数的强大DAX函数实现特殊符号的使用DAX函数实现切片器默认当前月或天DAX函数使切片器默认代表无任何选择DAX函数使切片器仅显示有数据的选项DAX函数使切片器反向筛选和计算DAX函数使切片器之间取并集DAX函数使关系中多端的切片器筛选一端的切片器 DAX函数实现年月共同决定数据排序DAX函数实现动态图表标题DAX函数实现动态图表配色和图标DAX函数实现动态纵坐标DAX函数实现动态横坐标5.  理解重点DAX函数重中之重FILTER 和 CALCULATE和CALCULATETABLE详解调节器REMOVEFILTERS和ALL、ALLEXCEPT函数调节器ALL、ALLSELECTED和ISINSCOPE占比分析调节器AllSELECTED和KEEPFILTERS的比较调节器USERELATIONSHIP激活关系调节器TREATAS动态建立关系调节器CROSSFILTER改变筛选器方向重点之ISFILTERED和ISCROSSFILTERED重点之HASONEVALUE和ISINSCOPE的区别重点之表函数SELECTEDCOLUMNS和ADDCOLUMNS重点之表函数NATUALINNERJOIN和NATRUALLEFTOUTERJOIN重点之表函数FILTERS和VALUES比较重点之VALUES和DISTINCT的区别重点之分组函数SUMMARIZECOLUMNS详解重点之函数LOOKUPVALUE vs RELATED vs VLOOKUP 重点之集合函数UNION、INTERSECT、EXCEPT重点之集合函数CROSSJOIN和GENERATE 笛卡尔积重点之值合并、列合并、表合并CONCATENATEX重点之BLANK行产生的原因和BLANK相关函数重点之COALESCE函数处理空重点之FIRSTNOBLANK和FIRSTNOBLANKVALUE函数重点之使用VAR变量表中的列重点之Error和IfError函数6.  实际案例-日期时间和时间智能相关关键点-日期表和事实表关联问题时间智能-同比环比分析时间智能-累计聚合、滚动聚合、移动平均时间智能-期初期末库存分析日期分析-计算任意所选月份的环比日期分析-周的同比环比和周聚合日期分析-指定月份的同比环比和季度环比日期分析-计算季末或季末月份的数据日期分析-趋势图中根据最近月份取TopN日期分析-动态指定某个日期区间分析日期分析-动态任意区间段做数据对比日期分析-实现两个日期列的范围筛选日期分析-按工作日计算日期差日期分析-计算最近两次购买日期差日期分析-根据历史数据做销售预测日期时间函数和时间智能函数使用总结7.  实际案例-DAX函数进阶进阶-解决列排序对计算的影响进阶-实现切片器筛选之间的OR逻辑进阶-矩阵Matrix中高亮显示最大值最小值进阶-DAX列转行 vs 矩阵列转行和逆透视进阶-非日期类型的累计聚合进阶-排名逻辑的4种实现-RANKX详解进阶-分组内排名的实现和理解迭代函数进阶-TopN/BottomN和Others的实现进阶-TopN中实现动态指标进阶-TopN中实现N的动态进阶-分组内动态TopN和Others 进阶-商品折上折-迭代函数SUMX详解 进阶-分析客户购买行为进阶-找出无购买行为的客户进阶-客户购买商品关联度分析 进阶-新客户分析进阶-流失客户分析进阶-回流客户分析进阶-客户购买频次和区间分析进阶-RFM客户价值分析进阶-帕累托分析进阶-盈亏平衡分析报表性能优化思路(PPT)  

2,495

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧