PASCAL知识
2024-08-29 11:47:11
API Index
专业术语
Delphi - Delphi 百科
PASCAL - PASCAL 百科
Object PASCAL - Object PASCAL 百科
系统PASCAL方法WIKI参考
FileCopy
//- This function will copy files.
DeleteFile
//- This function will delete files.
ListFilesInDirectory
//- This function return a list (TStringList) of files in specified folder.
删除文件夹下所有文件,清空文件夹
var
FileList : TStringList;
filesfrom, filepath : string;
ISEMPTY, i : integer;
begin
filesfrom:= ReqList.Values['DocPath'];
FileList:= TStringList.Create;
try
ListFilesInDirectory(filesfrom, '*.*', false, FileList);
ISEMPTY:= FileList.Count;
if ISEMPTY > 0 then
for i:= 0 to FileList.Count - 1 do begin
filepath:= FileList.Strings[i];
DeleteFile(filepath);
end;
finally
FileList.free;
end;
Object Pascal语言参考
//包含字符, indexOf
//Pos 函数 在字符串中搜索子串
if POS('软','软件工具')>0 then 1
// ExecuteCompiledScript( Reqlist.values['Stingray_Phys_Path'] + 'StingrayRules\0\Post\QR_Entry', FSQLConnection, ReqList, FTrnMan )
// ExecuteCompiledScript( ReqList.Values['prefile'], FSQLConnection, ReqList, FTrnMan );
if ReqList.Values['NBRESULT']='1' THEN ReqList.Values['__NBRESULT']:='1';
// Upload_FilePath:= ReqList.Values['Upload_FilePath'];
Srv_Img_Path:= ReqList.Values['Srv_Img_Path'] + ExtractFileName(Upload_FilePath);
FileCopy( Upload_FilePath, Srv_Img_Path, True );
// ExecuteCompiledScript( Reqlist.values['Stingray_Phys_Path'] + 'StingrayRules\0\Post\QR_Entry', FSQLConnection, ReqList, FTrnMan )
//GetConstant
ReqList.Values['Not_Sufficient_Right '] := GetConstant('Global ', 'Not_Sufficient_Right ');
ReqList.Values['OldtoNewACrID_ '+ReqList.Values['ACraftID ']] := ReqList.Values['NEWACRID '];
ReqList.Values['NEWAirCraftID '] := ReqList.Values['OldtoNewACrID_ '+ReqList.Values['aPQA_ID ']];
Reqlist.values['TheSaveString '] := ReplaceString(Reqlist.values['TheSaveString '],' * * ','''', false);
UpdateWrittenPremium( StrToIntDef(ReqList.Values['sLOB_ID '], 1), ReqList.Values['PolicyCode '], FSQLConnection );
UpdateWrittenPremiumLevel( StrToIntDef(ReqList.Values['sFRM_D '],1) , ReqList.Values['PolicyCode '], FSQLConnection );
// EdtResult.Text := Copy(EdtResult.Text, 1, Length(EdtResult.Text)-1);
ReqList.Values['sqlarrstr '] :=Copy(ReqList.Values['sqlarrstr '],1,Length(ReqList.Values['sqlarrstr '])-1);
// if trim(uppercase(Reqlist.values['sSSR_CompareType '])) = 'INTEGER ' then
begin if ProcessExpression(Reqlist.values[Reqlist.values['sSSR_FieldName ']] + Reqlist.values['sSSR_Operator '] + Reqlist.values['sSSR_StopValue ']) then
Reqlist.values['AddSeRR ']:= '1 ' else Reqlist.values['AddSeRR ']:= '0 ';
// var NewFile, NewFileName: String;
begin NewFile:= CreateReport(Reqlist.values['sREP_ID'], 'PDF', ReqList, FSqlConnection);
Reqlist.values['Response_Content']:= NewFile;
//
----------------------------------------------------=----------------------- PASCAL
类型转换函数
DateTimeToFileDate
DateTimeToStr
DateTimeToString
DateToStr
FileDateToDateTime
FloatToDecimal
FloatToStrF
FloatToStr
FloatToText
FloatToTextFmt
IntToHex
IntToStr
StringToWideChar
StrToDate
StrToDateTime
StrToFloat
StrToInt
StrToIntDef
StrToFloatDef
StrToTime
TextToFloat
TimeToStr
VarToDateTime
WideCharLenToString
WideCharToString
WideCharToStrVar
最新文章
- 2016 CCPC长春重现赛
- Hook机制里登场的角色
- 3D touch在Unity3D中的使用
- 修改wamp默认网站目录
- 鼠标滚动事件兼容性 wheel、onwheel
- 深度剖析:CDN内容分发网络技术原理--转载
- MemSQL 取代 HDFS 与 Spark 结合,性能大幅提升
- Spring ——简介及环境搭建跑通Hello
- gevent的同步与异步
- c语言第三次作业。
- android studio比较长用的几款插件
- hammer.js初探
- 关于cc.easesinexxx 与 cc.easeexponentiallxxx 的几种效果简单描述
- 5.21http网页基础
- 【Python爬虫】selenium基础用法
- JIT和AOT编译详解
- Problem A: 道路建设 解题报告
- bzoj 4036 集合幂级数
- Discuz的sc 和tc版本有什么区别
- 20145120 《Java程序设计》实验五实验报告