其实,定一个类,就可以了。
- type
- TDEMO = record
- ISOK : boolean;
- Comment : string;
- end;
- function abc : TDEMO;
- begin
- Result.ISOK := True;
- Result.Comment := 'Hello';
- end;
- procedure test;
- var
- AAA:TDEMO ;
- begin
- AAA = abc;
- if AAA.ISOK then showmessage(AAA.Comment); { hello }
- end;