Delphi控制语句.docVIP

Pascal中的一些基本常识 一、基本字符 赋值运算符： := 二、变量 使用变量前一定要先定义它。 常量： const 例如：const a=10.5; b= -a; c=student; 变量： var 例如： s,t:string; m:real; d:integer; 三、赋值语句 变量标识符:=表达式 比如： a:=b; c:=a1+3-25 Delphi控制语句 1、顺序语句 顺序结构是一种线性结构，这种结构是按从上到下的顺序依次执行各语句。 （1）赋值语句 赋值语句是Delph7中最基本的一种语句，用于对变量赋值或设置组件的属性值。 语法： 变量名:=表达式; 对象.属性:=表达式; （2）输入语句 InputBox函数和InputQuery函数用于显示一个带有编辑组件的消息对话框，该提示框中有一个文本输入框和两个命令按钮，为用户提供输入文本的功能。 a) InputBox函数 ( InputBox返回值是字符串,也就是输入的字符串 ) 语法：function InputBox(const ACaption,APrompt,ADefault:String):String; ACaption，消息对话框的标题。 APrompt，消息对话框的提示信息。 ADefault，消息对话框首次出现时编辑框中显示的信息。 例： Procedure TForm1,ButtonClick(Sender:TObject); var S:String; begin S:=inputbox(查询,请输入查询内容：,); if S=Edit1.Text then begin ShowMessage(查询内容为:+Edit1.Text); end//此处不能多加分号 Else ShowMessage(没有查询到此消息); end; b) InputQuery函数 显示一个带有编辑组件的对话框，为用户提供输入文本的功能，并判断用户是否按下了Ok按钮。 ( InputQuery返回值为是否点了OK 输入的字符串放在了变量Value中 ) 语法：function InputQuery(const ACaption,APrompt:string;var Value:string):Boolean; ACaption，消息对话框的标题。 APrompt，消息对话框的提示信息。 Value，对话框首次出现在编辑框中显示的字符串，并得到用户在消息对话框中输入的字符串。 例: procedure TForm1.Button1Click(Sender: TObject); var s:string; begin //点击了OK按钮后，则 if InputQuery(标题,提示字符,s) then begin if s then //如果输入不为空则 showmessage(s); end; end; （3）输出语句 MessageDlg函数可以将信息以对话框的形式输出并显示。 语法：function MessageDlg(const Msg:string;DlgType:TMsgDlgType; Buttons:TMesgDlgButtons;HelpCtx:Longint):Integer; Msg，显示消息的内容。 Dlgtype,指定消息对话框的类型。 Buttons，指定消息对话框显示的按钮 HelpCtx，指定应显示帮助标题的正文ID DlgType参数的取值： mtInfromation，显示带感叹号图标的信息框。 mtWarnging，显示一个带有提醒符号图标的信息框。 mtCustom，无显示图标。 mtError，显示一个带有停止符号图标的信息框。 mtConfirmation，显示一个带有问好图标的信息框。 例： MessageDlg(MessageDlg输出信息提示框,mtinformation,[mbok,mbyes],0); 2、条件判断语句 （1）使用if...then语句 语法： if 条件 then begin 语句 end; if...then...else语句 语法： if 条件 then 语句1 else 语句2 注意在使用if...then...else语句时，else前面的一条语句后面不能加分号;,否则将出现语法错误。例： Procedure TForm1.Button1Click(Sender:TObject); begin if Edit1.Text= then begin ShowMessage(输入不能为空); end//此处不能多加分号。 else ShowMessage(您输入的内容为：+Edit1.Text); end; if...then..