EMBARCADERO TECHNOLOGIES (Humphery Kim) RAD Studio : h=p://tech.devgear.co.kr/ : h=p://blog.hjf.pe.kr/ Facebook : h=p://d.com/hjfactory :

#1 RAD (RAD STUDIO) In www.devgear.co.kr 2016.05.16

EMBARCADERO TECHNOLOGIES (Humphery Kim) RAD Studio : h=p://tech.devgear.co.kr/ : h=p://blog.hjf.pe.kr/ Facebook : h=p://d.com/hjfactory : hskim@embarcadero.kr

Embarcadero Technologies 1993 320 2000 97% 35 29 500

3 EMBARCADERO TECHNOLOGIES! 1 - RAD, 2-3 - 4 -

3 EMBARCADERO TECHNOLOGIES RAD RAD Studio IDE ( )

RAD EMBARCADERO TECHNOLOGIES

6 EMBARCADERO TECHNOLOGIES ( ) - h=ps://ko.wikipedia.org/wiki/ _ S/W

6 RAD? IDE:, RAD RAD (, C++ ) (Xcode)

RAD Studio IDE (1) ( ) ( )

RAD Studio IDE (2) / : Run > Run : Run > Program Reset : File > Save / Save all *.dproj / *.dpr : *.pas : ( ) *.dfm / *.fmx : F9 : Ctrl + S : Shi_ + Ctrl + S : F12 :,

EMBARCADERO TECHNOLOGIES & TEdit ( ) Text : TBuDon ( ) TLabel ( ) Capaon TMemo ( ) Lines 0, 1. : Lines.Add(< >);

: >, var < >: < >; ( ) string: Integer: Double: + - * / div mod

EMBARCADERO TECHNOLOGIES (= ) (FuncNon) funcaon :, procedure : (procedure) procedure < >(< : >);, (;) (funcnon) funcaon < >(< : >): < >; > funcaon Sum(A: Integer; B: Integer): Integer; private( ), public( )

(1) StrToInt(X) X - string Integer IntToStr(X) X - Integer string StrToFloat(X) X - string Extended Abs(X) X - Real Integer Sqr(X) X - Real Integer Sqrt(X) X - Real Integer Real Exp(X) X - Real Integer Real Ln(X) X - Real Integer Real Round(X) X - Real Integer Trunc(X) X - Real Integer

(2) Sin(X) X - Real Integer( ) Real Cos(X) X - Real Integer( ) Real Tan(X) X - Real Integer( ) Real Int(X) X - Real Real DegToRad (Radian) X - Single Single uses System.Math Tan, DegToRad

#1 procedure TForm1.Bu=on1Click(Sender: TObject); var Num1, Num2, Num3, Sum, Mul: Integer; begin Num1 := StrToInt(Edit1.Text); Num2 := StrToInt(Edit2.Text); Num3 := StrToInt(Edit3.Text); Sum := Num1 + Num2 + Num3; Mul := Num1 * Num2 * Num3; Memo1.Lines.Add(' : ' + IntToStr(Sum)); Memo1.Lines.Add(' : ' + IntToStr(Mul)); end;

#2 uses System.Math; procedure TForm2.Bu=on1Click(Sender: TObject); var Distance, Degree, Height: Integer; Radian: Single; begin Distance := StrToInt(Edit1.Text); Degree := StrToInt(Edit2.Text); Radian := DegToRad(Degree); Height := Trunc(Tan(Radian) * Distance); Memo1.Lines.Add(' ' + IntToStr(Height) + ' m '); end;

Canvas : TPaintBox.Canvas, TForm.Canvas Canvas.Pen : Canvas.Pen.Width := 3; // Canvas.Pen.Color := clblack; // Canvas.Brush : Canvas.Brush.Color := clblue; // Canvas.Font : Canvas.Font.Size := 10; // Canvas.Font.Color := clred; // Canvas.MoveTo(X, Y); // Canvas.LineTo(X, Y); // Canvas.Rectangle(X1, Y1, X2, Y2); // Canvas.Eclipse(X1, Y1, X2, Y2); // Canvas.TextOut(X, Y, Text);

#3 2. var Rate: Single; Rate := 100 / Distance; PaintBox1.Canvas.FillRect(PaintBox1.ClientRect); PaintBox1.Canvas.Pen.Color := clred; PaintBox1.Canvas.MoveTo(0, 0); PaintBox1.Canvas.LineTo(100, 0); PaintBox1.Canvas.Pen.Color := clblue; PaintBox1.Canvas.LineTo(100, Trunc(Height * Rate)); PaintBox1.Canvas.Pen.Color := clblack; PaintBox1.Canvas.LineTo(0, 0);

EMBARCADERO TECHNOLOGIES #1 60cm, (Single) StrToFloat. #2,, Sin, Cos. Canvas.

- 2 - / / [ ] SQLite Browser & h=p://sqlitebrowser.org 21

EMBARCADERO TECHNOLOGIES

h=p://devgear.co.kr/edu, 9 ( 5, ) (2 ) (4 ) (2 ) & ios DB : 2 (2 ), (3 ) ( 1 )! UI/UX, Push (2 ) 23 (1 )

(1), h=p://tech.devgear.co.kr/421276,.,., 24.

(2) /ios with 1, 2,, h=p://tech.devgear.co.kr/406570 25

: h=p://devgear.co.kr/ : h=p://tech.devgear.co.kr/ : h=p://docwiki.embarcadero.com ( ) : h=p://www.delmadang.com/ ( ) : h=p://borlandforum.com : h=p://cafa.naver.com/delphifmx : h=p://blog.hjf.pe.kr/ 26

QuesNons? EMBARCADERO TECHNOLOGIES

. h=p://tech.devgear.co.kr h=p://www.devgear.co.kr h=p://www.facebook.com/devgear