델파이 기본함수

델파이 기본함수

 

procedure read(v1,v2,v3....);

procedure readln(v1,v2,v3...);

값을 입력받은 후 다음 행으로 이동

 

procedure write(v1,v2,....);

procedure writeln(v1,v2...);

값을 출력한 후 다음 행으로 이동

 

function chr(x):char;

x(아스키 코드값)에 해당하는 문자로 변환

 

function ord(x):integer;

x(문자)에 해당하는 순서. 즉 아스키코드값 리턴

 

function int(X: Extended): Extended;

실수값의 소숫점이하를 버리고 정수부분만 취한다.

Int(32.45)  ← 32.0

 

function trunc(X: Extended): Int64;

실수값의 소숫점이하를 버리고 정수부분만 취한다.

trunc(32.45) ← 32

 

function odd(x:integer):boolean;

x가 홀수면 true, 짝수면 false를 되돌린다.

 

function random(x:integer):integer;

0~x-1사이의 정수 난수 발생

 

function random:real;

0~1사이의 실수 난수 발생

 

procedure randomize;

function upcase(ch:char):char;

소문자를 대문자로 변환

 

procedure inc(var x[;n:integer]);

x의 값을 일정하게 증가

inc(x);   ← x:=x+1

inc(x,2);   ← x:=x+2

 

procedure dec(var x[;n:integer]);

x의 값을 일정하게 감소

dec(x);   ← x:=x-1

dec(x,2);   ← x:=x-2

 

function abs(x:integer):integer;

절대값(정수)

 

function abs(x:real):real;

절대값(실수)

 

function sqr(x):x와 동일 type

x의 제곱값을 리턴

 

function sqrt(x:real):real;

x의 제곱근값을 계산하여 리턴 (x>0)

 

function length(s:string):integer;

문자열의 길이

 

function copy(s:string;x:integer;cnt:integer):string;

문자열 s를 x로 부터 cnt만큼 자른다

 

procedure delete(var s:string;x:integer;cnt:integer);

문자열 s를 x부터 cnt만큼 오려낸다

 

procedure insert(so:string;var s:string;idx:integer);

s문자열의 idx위치에서 so문자열을 삽입하며, s문자열의

나머지 문자들은 우측으로 이동한다.

 

function pos(substr,s:string):byte;

문자열 s를 처음부터 검색하여 substr문자열이

있는지를 확인하여 위치를 되돌린다.

 

procedure str(s[:width[:decimal]];var s);

수치형 데이터를 문자열 변환후 s에 기억

 

procedure val(s:string;var v:integer;var code:integer);

수치형 문자를 숫자로 변환후 v에 기억

변환과정에서의 error는 code에 기억

 

function eof(var f:text):boolean;

파일의 끝에 도달했는지를 확인