Object Pascal

• 变量
  var a: Integer; //整数
  b: Char ; //单字母
  c: Single;//分数
  d:Double; //双精度
  e:string;//字符串 用+链接 单引号
  arr:array [1..10] of Integer; 数组 arr[1]:=0,也可以从0开始

type //记录类型,必须T开头
Tcar=record
a:integer;
b:String;
c:single;
end;

var cc:Tcar; //cc.a:=12使用

注释 {注释内容}

• 语句

if a>1 then
   Write('大于1')
  else
  write('小于1');

  if (a>1) and (a<5) then //另外还支持 or
  else
  if (a>2) and (a<7) then
  else
  ;
 case a of //类似switch
   1:Write('a1'); //0..1表示0到1,只支持integer char两种
   2:Write('b2');// 'a','b'
   else
     Write('no');
   end;

     for a:=1 to 100 do //循环
   begin
   s:=s+a;
   end;
   Write(s) ; 

• 字符串
  Length(str) 计算长度
  Copy(d,0,2) 截取字符串,从0开始截取2个
  Insert(‘123’,d,5); 插入123到d,位置是5
  Delete(d,1,2); 从第一个,开始就是1,删除2个
  Trim TrimLeft trimright 去除空格