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 >
Wrap
Pascal/Delphi Source File
|
1998-03-12
|
768b
|
31 lines
unit ShowProc;
interface
uses LangValue,
VarLangValue,Dialogs;
type TShowProc=class(ILangValue)
procedure Exec(S:IValStack;MustReturn:boolean);override;
end;
implementation
procedure TShowProc.Exec;
Var I:Integer;
str:string;
Res:TVarLangValue;
begin
str:='';
for i:=0 to S.FrameCount-1 do
begin
str:=str+s.FrameValues[i].AsString;
end;
S.DropFrame;
if MustReturn then
begin
Res:=TVarLangValue.Create(nil);
Res.AsBoolean:=true;
S.Push(Res);
end;
MessageDlg(str,mtInformation,[mbOk],0);
end;
end.