function IfThen(AValue: Boolean; const ATrue: string; AFalse: string = ''): string; overload; $[StrUtils.pas 功能 返回指定的逻辑字符串 说明 IfThen(True, '是', '否') = '是'; IfThen(False, '是', '否') = '否' 例子 Edit3.Text := IfThen(CheckBox1.Checked, Edit1.Text, Edit2.Tex…

if语句------------------------------------------------------------------------------------------------------------------------------------------------- 其实delphi中的IF语句和VB中的语句有点相像,都是IF .... THEN... 不过DELPHI中的不同点就是语句的前后需要加个BEGIN,END.这个就相当于JAVA中的{}吧,呵呵. 下边…

//例1:begin  raise Exception.Create('抛出异常');end;//例2:begin  raise Exception.CreateFmt('%s %d', ['错误代码:', 999]);end; //例3:var  exc: Exception;begin  exc := Exception.Create('发现异常');  raise exc; end; 引发和处理异常 要创建一个异常对象,应在raise语句中调用异常类的构造器,如 raise EMathEr…

1.屏蔽Float浮点数出错: Set8087CW(Longword($133f)); 2.Idhttp参数设置: FIdhttp                  := TIdHTTP.Create(nil);   FSSL := TIdSSLIOHandlerSocket.Create(nil); strlst := TStringList.Create; strlst.Add('a=saveclientlog');    strlst.Add('logmac=' + MacStr);  …

procedure TForm1.FormCreate(Sender: TObject);  begin     ADOQuery1.ExecuteOptions := [eoAsyncFetch];//设为异步读取  end;  //ADOQuery的OnFetchProgress事件  procedure TForm1.ADOQuery1FetchProgress(DataSet: TCustomADODataSet; Progress, MaxProgress: Integer; var…

单引号必须成对出现,最外层的单引号表示其内部符号为字符:除最外层以外的单引号,每两个单引号代表一个'字符.加号:+用于字符串之间的连接.字符串常量用四个单引号,例如 ' select * from TABLE where COLUMN = ''汉字'' ' 字符串变量用六个单引号和两个加号,例如 ' select * from TABLE where COLUMN = '''+variable+''' '--------------------- 作者:小树爸爸 来源:CSDN 原文:https…

…

…

IF语句主要有以下三种基本形式: 一. IF-THEN语句 IF CONDITION THEN           STATEMENT 1;           ...           STATEMENT N;       END IF; 二. IF-THEN-ELSE语句 IF CONDITION THEN           STATEMENT 1;       ELSE            STATEMENT 2;       END IF; 三. ELSLF语句 IF CONDIT…

浏览以下内容前,请点击并阅读 声明 一般情况下,代码的执行按照从上到下的顺序,然而通过加入一些判断,循环和跳转语句,你可以有条件地执行特定的语句. 接下来分三部分介绍Java的控制流语句,他们是判断语句(if-then, if-then-else, switch),循环语句(for, while, do-while)和跳转语句(break, continue, return). 判断语句 if-then语句 if-then语句是控制流语句中最基本的语句,它告诉程序如果制定的条件为true,则执行…