[Delphi]関係演算子


※全てのDelphiで動作する保証はありません。また、内容に関し管理人は全ての責任を負いかねます

サンプル ※説明に必要な部分しか記述していません

下記を実行すると

procedure TForm1.Button1Click(Sender: TObject);

//フォーム上にTMemoを配置します

var
    i: Integer;

begin


    Memo1.Clear;


    //with文により Memo1. を省略しています
    with Memo1 do begin

        for i := 1 to 10 do begin

            //4以下
            if i <= 4 then begin
                Lines.Add(IntToStr(i) +'a');
            end;

            //3より小さい
            if i < 3 then begin
                Lines.Add(IntToStr(i));
            end;

            //4より大きい
            if i > 4 then begin
                Lines.Add(IntToStr(i) +'b');
            end;

            //7以上
            if i >= 7 then begin
                Lines.Add(IntToStr(i) +'c');
            end;

            //9と等しい
            if i = 9 then begin
                Lines.Add(IntToStr(i) +'d');
            end;

        end;

        //10と等しくない
        if i <> 10 then begin
            Lines.Add(IntToStr(i) +'e');
        end;

    end;


end;

このようになります。

delphi-kankei-enzanshi