函数返回多个值的方法；

 其实，定一个类，就可以了。

1. type
2.   TDEMO  = record
3.      ISOK     : boolean;
4.      Comment  : string;
5.   end;

1. 
   
2. 
   
3. 
   
4. function  abc : TDEMO;
5. begin
6.   Result.ISOK    := True;
7.   Result.Comment := 'Hello';
8. end;

1. procedure test;
2. var
3.    AAA:TDEMO ;
4. begin
5.   AAA = abc;
6.   if AAA.ISOK then showmessage(AAA.Comment);  { hello }
7. 
   
8. end;