Delphi入门语法1

注释：

代码  //注释
代码  {   注释   }
代码  *   注释   *

变量声明：

var i:integer;
var X,Y:Real;

符号常量声明

const 
   PI=1000;
   HH: integer=100;

声明文件和数组

F:File of TCurveData;
Data:array of TCurveData;

运算符

算术运算符：

+，-，*，/，div,mod    
 //其中，/是浮点除，结果为实数。div是整除，只能是整数。mod取模，只能是整数。

逻辑运算符

not,and,or,xor         
//其中，and逻辑与，or逻辑或，xor逻辑异或，not逻辑取反。返回值为true或false。

关系运算符

=,<>,<,>,<=,>=         
//判断不等使用<>,C语言中使用!=.

赋值运算符

i := i+1;  
Edit1.Text:='Hello';   
//delphi中:=为赋值符号，=为判断是否相等。

条件语句

1:if语句

begin
if (i mod 39)=0 then
memo1.lines.add(inttostr(i));
end.

var x,y:integer;
begin
if x>0 then
   y:=2*x;
   else 
   y:=1-2*x;
   writenln('y=',y);
   end.

2:case语句

  case i of 
     1:writeln('one');
     2:writeln('two');
     3:writeln('three');
    else 
      writeln('other number');
  end;

循环语句

1:for循环

begin
   DT:=0.01;
   for I:=-500To 500 do
   begin
   X:=DT*I;
   Y:=10*cos(4*X);
   Chtcurve.series[0].AddXY(X,Y);
end;

2:repeat和while..do循环

repeat
   循环体;
until(循环条件;)

while (循环条件) do
 begin
   循环体;
 end;

常用语句

1：Memo2.lines.add(floattostr(K));     
//将实型K值转换为字符型，再添加到memo2中。
2：x:=strtoint(edit1.text);     
//将edit1中的字符串转换为整形赋值给变量x。
3：delphi时间提取：label5.Caption:=datetimetostr(now);  
//timer组件
   时间停止：timer1.enabled:=false;
   时间开始：timer1.Enabled :=true;
4：power(x,n)  指x的n次方