Delphiの基本構文～Delphiソースコード集

Delphiの基本構文

変数の宣言(var)

//string型変数stの宣言（VBのDimです）
  var st:string;

変数の基本型

var
    st:string;  //文字列型

    c:char;  //文字型

    i:inreger;  //整数型(VBではLong)
    s:single;  //小数型
    d:double;  //倍精度小数型整数型

上記以外にも沢山の型がある。上記等は基本型なのでクラスではない為、使用しなくなってもメモリ破棄など不要。

変数への値の代入

Delphiでは変数への代入に := を使う。

//以下は変数iに0を代入している
i := 0;

//以下は変数stに文字列「ほげほげ」を代入している
st := 'ほげほげ';

//以下は変数dに1.25を代入している
d := 1.25;

条件文

if a=b then
begin
  //a=bの時の処理;
end;

if a=b then
begin
  //a=bの時の処理;
end
else
begin
  //a=bでは無い時の処理
end;

if a=b then
begin
  //a=bの時の処理;
end
else if b=c then
begin
  //b=cの時の処理;
end
else
begin
  //a=bでも無くb=cでも無い時の処理;
end;

if (a=b) and (b=c) then
begin
  //a=bかつb=cの時の処理;
end;

if (a=b) or (b=c) then
begin
  //a=b又はb=cの時の処理;
end;

//begin～endを省略した使い方
if a=b then a=20;
if a=b then a=20 else b=20;

ループ（for）

以下は変数iに1～10の値を代入してc:=c+iを10回ループしている

for i=1 to 10 do
begin
  c:=c+i;
end;

以下は変数iに10～1の値を代入してc:=c+iを10回ループしている

for i=10 downto 1 do
begin
  c:=c+i;
end;

ループ（while）

条件が真（以下ではiが10未満）の間ループする。が、iが8になったら抜ける

i := 0;
while i<10 do
begin
  i := i + 1;
  if i = 8 then break;
end;

構造体(record)

Delphiは暗黙の了解で構造体やクラス型の名前の先頭は大文字Tから始まる

type
  TMyRecord = record
    name:string;
    age:integer;
  end;

procedure TForm1.Button1Click(Sender: TObject);
var mr:TMyRecord;
begin
  mr.name:='ほげ';
  mr.age:=24;
end;

クラス(class)

いきなりですが、それなりのサンプルを提示

unit Unit2;

interface
type
  TMyClass=class(TObject)
    private
      fname:string;  //private等のフィールド変数にはfを付ける暗黙の了解がある
      fage:integer;
      function getage():integer;
      procedure setage(value:integer);
    public
      Constructor Create();
      property name:string read fname write fname;  //fnameをプロパティnameで公開する。
      property age:integer read getage write setage;  //fageをageプロパティとして関数getageとsetageを介して公開する。
  end;

implementation
constructor TMyClass.Create;
begin
  //コンストラクター。このクラスが作成されるときに実行される
  fname:='';
  fage:=0;
end;
function TMyClass.getage: integer;
begin
  result:=fage;
end;

procedure TMyClass.setage(value: integer);
begin
  if value>=0 then fage:=value;
end;

end.

上記クラスを使うサンプル

procedure TForm1.Button1Click(Sender: TObject);
var mc:TMyClass;
begin
  mc:=TMyClass.Create;  //インスタンスの作成
  mc.name := 'ほげ';
  mc.age  := 24;
  mc.Free;              //破棄する(メモリ解放される)
end;

クラス２(class)

コンストラクターとデストラクター

unit Unit3;

interface
uses System.Classes;

type
  TMyClass2=class(TObject)
    private
      fstl:TStringList;
    public
      procedure addList(value:string);
      function getValue(index:integer):string;
      Constructor Create();
      Destructor Destroy;
  end;

implementation

{ TMyClass2 }

procedure TMyClass2.addList(value: string);
begin
  fstl.Add(value);
end;

constructor TMyClass2.Create;
begin
  fstl:=TStringList.Create;
end;

destructor TMyClass2.Destroy;
begin
  fstl.Free;
end;

function TMyClass2.getValue(index: integer): string;
begin
  result:='';
  if index<fstl.Count then
  begin
    result:=fstl[index];
  end;
end;

end.

上記クラスを使うサンプル

procedure TForm1.Button1Click(Sender: TObject);
var mc2:TMyClass2;
begin
  mc2:=TMyClass2.Create;
  mc2.addList('ほげ');
  mc2.addList('ほげほげ');
  showmessage(mc2.getValue(0));
  mc2.Free;
end;