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...순환

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