컴포넌트 기본사용법 - 1강

17.3.28 컴포넌트1

교재 1~50페이지 내용

□ 컴포넌트 사용법

1. Label

Label.Caption := '변경할 글자';

2. Button

Button.Enable := False; // 버튼 사용, 미사용

3. Edit

Edit.Text := '변경할 글자';

Edit.Clear; // 글자 모두 삭제

4. 변수 a,b,c 만들기

 - integer, real, string

5. 사칙연산

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Edit1: TEdit;

    Edit2: TEdit;

    Button1: TButton;

    Edit3: TEdit;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

  a : real;

  b : real;

  c : real;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

  // 입력 받은 값을 변수에 넣음

  a := StrToFloat(Edit1.Text);

  b := StrToFloat(Edit2.Text);

  // 계산

  c := a + b;

  // 계산한 값을 Edit3에 출력

  Edit3.Text := FloatToStr(c);

end;

end.