控制语句：顺序语句

1、 顺序语句

顺序语句是一种线性结构。

• 1.1 赋值语句

语法：变量名：= 表达式;
对象.属性:= 表达式;

procedure TForm24.edt1Change(Sender: TObject);
Var
Sname :string;
begin
   Sname := 'MI';
   edt1.Text := Sname;
end;

结果：文本框中会输出MI的字符串

说明：

1. 右边的表达式可以是变量，常量，函数。
2. 语句中“:=”为赋值符号，表示将右边的内容赋值给左边的内容。
3. 赋值语句的左边，只能是变量名或对象的属性，不能是常量和表达式。
4. 赋值语句的两边应该保持数据类型一致。

1.2输入语句

InputBox函数：显示一个带有编辑组件的消息对话框，为用户提供输入文本功能
语法：

function InputBox（const ACaption,APrompt,ADefaukt:string）:string

procedure TForm24.btn1Click(Sender: TObject);
var
  S: string;
begin
  S := InputBox('输入窗口标题', '输入提示: ', '');
  ShowMessage(S);
  if S = edt1.Text then
    ShowMessage('查询内容为:' + edt1.Text)
  else
    ShowMessage('没有查到此信息：');
end;

end.

1.3输出语句

经常要输出语句，MessageDlg函数可以将信息以对话框的形式输出并显示。

function messageDlg（const M是个：string，dlgtype：Tmsgdlgtype；buttons：tmsgblgbutton；HhlpCtx:longint):integer;