델파이(delphy) system unit - C함수

델파이(delphy) system unit - C함수 

------------------------------------------------

ChangeFileExt system Unit

문법 : function ChangeFileExt(const FileName, Extension:

string):string;

첫 번째 인수 FileName으로 주어진 파일의 이름 중 파일의 확

장자만 두 번째 인수 Extension으로 변경한다. 다음 예는 인수

로 주어진 파일의 확장자를 무조건 INI로 변경한다.

ChangeFileExt(ParamStr(0), '.INI');

------------------------------------------------

Chdir system Unit

문법 : procedure ChDir(S: String);

인수 S가 지정하는 경로로 현재 디렉토리를 변경한다. 만약 S

가 드라이브 문자를 포함하고 있을 경우 현재 드라이브도 변

경된다.

------------------------------------------------

Chr system Unit

문법 : function Chr(X:Byte):Char;

서수값 X가 지정하는 문자를 구한다. 아스키 코드값을 X로

전달하면 해당하는 문자를 얻을 수 있다. Chr(65)는 알파벳 문

자 A이다. 이 함수를 사용하면 키보드로 직접 입력할 수 없는

문자를 입력할 수 있다.

------------------------------------------------

Close system Unit

문법 : procedure Close(var F);

파일 핸들과 외부 파일과의 연결을 끊고 파일 핸들을 닫는다.

이 함수는 구 버전의 볼랜드 파스칼 컴파일러와의 호환성을

위해 제공되며 델파이에서는 사용되지 않는다. 델파이에서

는 핸들을 닫는 CloseFile이라는 별도의 함수를 제공하므로

이 함수를 사용하도록 한다.

------------------------------------------------

CloseFile system Unit

문법 : procedure CloseFile(var F);

파일 핸들과 외부 파일과의 연결을 끊고 파일 핸들을 닫는다.

파일 변수 F는 Reset, Rewrite, Append 등에 의하여 오픈된 파

일 핸들이며 파일 핸들은 사용 후에 반드시 닫아주어야 한다

------------------------------------------------

ClrEol WinCrt Unit

문법 : procedure ClrEol;

현재 커서가 있는 위치에서 행의 끝부분까지의 모든 문자를

삭제한다. 커서는 움직이지 않으며 지워진 문자는 현재 정의

된 문자 속성으로 빈칸이 된다.

------------------------------------------------

Clrscr WinCrt Unit

문법 : procedure Clrscr;

활동중인 윈도우의 모든 문자들을 지우고 커서를 윈도우의

좌상단 위치로 이동시킨다. 모든 문자가 현재 정의된 문자 속

성으로 빈칸이 된다.

------------------------------------------------

ColorToIdent Graphics Unit

문법 : function ColorToIdent(Color: Longint; var Ident: string):

Boolean;

32비트로 표현된 Color 색상값을 파스칼이 사용하는 컬러 명

칭 문자열로 변경한다. Color에 대응되는 명칭이 있으면 Ident

문자열에 색상의 명칭을 대입하고 True를 리턴하지만 대응

하는 명칭이 없을 경우 Ident는 변경되지 않으며 False를 리턴

한다.

다음 예는 $ffffff라는 색상값에 대응하는 색상 명칭을 찾는

다. 색상값이 흰색이므로 레이블로 출력되는 문자열은

clWhite가 된다.

예제)

var

 ID: string;

 ans:Boolean;

begin

ans:=ColorToIdent($ffffff,ID);

label1.caption:=ID;

end;

------------------------------------------------

ColorToRGB Graphics Unit

문법 : function (Color: TColor): Longint;

델파이가 사용하는 TColor형의 색상값을 32비트의 RGB형태

로 변경한다. 색상값이 시스템에 정의된 색상일 경우 어떤 색

상으로 정의되어 있는지 RGB값을 조사할 수 있다. 다음 예는

폼의 색상을 RGB로 조사한다.

var

 L : Longint;

begin

 L := ColorToRGB(Form1.Color);

end;

------------------------------------------------

ColorToString Graphics Unit

문법 : function (Color: TColor): string;

TColor형의 값을 문자열로 변경한다. 다음 예는 폼의 색상을

문자열로 변경한 후 레이블로 출력한다. 디폴트 색상을 사용

하고 있다면 레이블로 출력되는 값은 clBtnFace일 것이다.

예제)

var

 ID: string;

begin

ID:=ColorToString(Form1.Color);

label1.caption:=ID;

end;

------------------------------------------------

CompareStr system Unit

문법 : function CompareStr(const S1, S2: string): Integer;

두 개의 문자열 S1과 S2를 비교하되 대소문자를 구분하여 비

교한다. S1과 S2 문자열이 같으면 0을 리턴하며 S1<S2이면

음수의 값을 리턴하며 S1>S2이면 양수를 리턴한다. 문자열

끼리의 비교는 문자열을 이루는 각 문자의 문자 코드를 비교

하여 수행되며 현재 설치된 언어 드라이버에는 영향을 받지

않는다.

------------------------------------------------

CompareText system Unit

문법 : function CompareText(const S1, S2: string): Integer;

두 개의 문자열 S1과 S2를 비교하되 대소문자를 구분하지 않

고 비교한다. S1과 S2 문자열이 같으면 0을 리턴하며 S1<S2

이면 음수의 값을 리턴하며 S1>S2이면 양수를 리턴한다. 문

자열끼리의 비교는 문자열을 이루는 각 문자의 문자 코드를

비교하여 수행된다. "Apple"와 "APPLE"를 CompareText 함수

로 비교하면 결과는 0이며 두 문자열이 같은 것으로 비교되

지만 CompareStr 함수로 비교하면 결과는 두 문자열이 서로

다른 것으로 비교된다.

------------------------------------------------

Concat system Unit

문법 : function Concat(s1 [, s2,..., sn]: String): String;

두 개 이상의 문자열들을 결합하여 새로운 긴 문자열을 만든

다. 만약 문자열을 연결한 결과가 255문자 이상일 경우 255번

째 이후의 문자는 잘려 나간다. 이 함수 대신 +연산자를 사용

하여 문자열을 결합해도 결과는 동일하다.

Concat('Korea','China')와 'Korea'+'China'는 같은 결과를 만들어

낸다. 다음 예는 Edit1에 입력된 문자열과 Edit2에 입력된 문

자열을 합해 Edit3에 대입한다.

Edit3.Text:=ConCat(Edit1.Text,Edit2.Text);

------------------------------------------------

Continue system Unit

문법 : procedure Continue;

for, while, repeat 등의 반복문에서 사용되며 다음 반복 부분으

로 흐름을 옮기도록 한다. 루프의 남은 뒷부분은 무시되며 루

프의 조건 점검부로 점프한다. 만약 반복 루프 외부에서 이

프로시저가 사용되면 에러이다. 다음 예는 i가 1~100까지 증

가하며 모종의 처리를 하되 i가 10인 경우만 특별히 처리를

생략한다.

예제)

for i:=1 to 100 do

begin

 if i=10 then continue;

 ....

end;

------------------------------------------------

Copy system Unit

문법 : procedure Copy(S:String; Index, Count:Integer):String;

한 문자열의 부분 문자열을 추출해 낸다. S 문자열의 Index 위

치에서부터 Count 문자분의 부분 문자열이 추출된다. Index가

문자열의 전체 길이보다 길 경우 빈 문자열을 리턴하며 Count가

 문자열의 남은 부분보다 클 경우 문자열의 끝까지

추출해 낸다. Dest 문자열이 'Orange'일 경우 Copy(Dest,2,3)은

Dest 문자열의 두 번째 문자에서부터 3문자분의 부분 문자열인 

'ran'을 추출해낸다.

------------------------------------------------

Cos system Unit

문법 : function Cos(X;Real):Real;

코사인 삼각함수 값을 구한다. 여기서 사용되는 인수 X는

360분법의 각도가 아닌 호도값이다.

------------------------------------------------

CSeg system Unit

문법 : function CSeg:Word

CS 레지스터의 현재값을 구한다. CS 레지스터는 실행 코드

의 세그먼트 값을 담는 레지스터이다.

------------------------------------------------

CursorTo system Unit

문법 : procedure CursorTo(X,Y:Integer);

커서의 위치를 인수로 주어진 (X,Y) 좌표로 옮긴다. CRT 윈

도우의 좌상단 좌표는 (0,0)이다. CursorTo 프로시저는 Cursor

변수값을 (X,Y)로 변경한다.