hsr//////////////////////////////////////////////////////////
procedure와 function 둘다 인자중에 var를 사용하는 변수사용 또는 포인터형 변수사용시 여러 다른 결과값을 주고받을수도 있습니다.

function ColornameToRGB(colorname:char var r_val :integer):Boolean;

호출시는 변수로 사용해서 리턴받으면 됩니다

우선 답변 감사드리구요... 이해가 안되네요. 그러니깐 함수 리턴값으로 형이 다른 두 개의 값을 받으려면 또 함수를 이용하라는 건가요?

hsr////////////////////////////////////////////////////////////
아니요 함수내의 인자중에서 그 인자의 형식을 포인트등의 형이나
VAR 형으로 값을 돌려받을수 있습니다.

선언시
function RGB(var aaa:char var bbb :integer):Boolean;
begin
      aaa := '1';
      bbb := 1;
      result := True;
end;

사용시
var
    a :char ;
    b :integer  ;
begin
    RGB(a,b);

그리고 전역변수등을 사용해도 되구요

쩝... 첫번째 방법....
type  
  TmyType = record
      S : char;
      i: integer;
end;

function myfunction():TmyType
begin
  result.s:='A';
  reuslt.i:=1;
end;

procedure myprocedure;
var
myType : TmyType;
begin
   myType:=  myfunction();
end;


위에서 설명하신  var 변수의 이해

function myfunction(s : char; i:itneger):boolean;
begin
   S := 'B';
   i  := 2;
end;

function myfunction2(var s : char; var i:itneger):boolean;
begin
   S := 'C';
   i  := 3;
end;

procedure myproc;
var
  i: integer;
S :Char;
begin
  i:=1;
  S:'A';
  myfunction(s,i);
  showmessage(S);
  myfunction2(s,i);
  showmessage(S);
end;

var 변수는 Call by Reference 라고 해서....
쩝 쉽게 얘기하면 var 없으면
함수내에서 변수의 원본은 나두고 복사해서 쓰신다고 생각하면 되구요.
var  붙은거는  원본자체를 넘겨 주어서 함수내에서 이넘을 고치면...
원본이 바뀌니까 값이 변경 되는거죠...

쩝... 어렵나...^^;;;

개인적으로 레코드형을 리턴값으로 받을 수 있다는 것이 전 편하네요. 제가 구현할려고 하는 게 함수의 인자가 없어가지구서리....

두 분다 답변 감사합니다. (__)