Delphi var变量声明演示

procedure TForm1.Button1Click(Sender: TObject);
var x,h,r:string;   //声明一个变量 x和h
begin
 x:=inttostr(6);   //给 x和h赋值 , 并吧int转换为str
 h:=inttostr(7);
 r:='x大于h';    //声明一个字符串
 if x > h then      //判断 x h 大小并执行成立代码
 showmessage('x大于h');
 edit1.Text:=r;      //吧结果赋给编辑框edit1
  if x < h then
  showmessage('x小于h,程序退出');
  close;
end;

end.