home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 February / Chip_2000-02_cd.bin / zkuste / Delphi / navody / tt / objvm.exe / SAMPLE / ShowProc.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-03-12  |  768 b   |  31 lines
  1. unit ShowProc;
  2.  
  3. interface
  4. uses LangValue,
  5.      VarLangValue,Dialogs;
  6. type TShowProc=class(ILangValue)
  7.         procedure Exec(S:IValStack;MustReturn:boolean);override;
  8.      end;
  9. implementation
  10. procedure TShowProc.Exec;
  11.           Var I:Integer;
  12.               str:string;
  13.               Res:TVarLangValue;
  14.           begin
  15.             str:='';
  16.             for i:=0 to S.FrameCount-1 do
  17.             begin
  18.               str:=str+s.FrameValues[i].AsString;
  19.             end;
  20.             S.DropFrame;
  21.             if MustReturn then
  22.             begin
  23.               Res:=TVarLangValue.Create(nil);
  24.               Res.AsBoolean:=true;
  25.               S.Push(Res);
  26.             end;
  27.             MessageDlg(str,mtInformation,[mbOk],0);
  28.           end;
  29.  
  30. end.
  31.