fork download
copy 
  1. program ideone;
  2.  
  3. type
  4.   TFoo = object
  5.   private
  6.     FData: Integer;
  7.   public
  8.     procedure Update(AData: Integer);
  9.     procedure Show();
  10.   end;
  11.  
  12.   procedure TFoo.Update(AData: Integer);
  13.   begin
  14.     FData := AData;
  15.   end;
  16.  
  17.   procedure TFoo.Show();
  18.   begin
  19.     Write('Data: ', FData);
  20.   end;
  21.  
  22. var
  23.   fooTest: TFoo;
  24. begin
  25.   fooTest.Update(255);
  26.   fooTest.Show();
  27.   ReadLn;
  28. end.
Success #stdin #stdout 0s 232KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Data: 255
https://ideone.com/uW73cy
language:
Pascal (fpc 3.0.4)
created:
9 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!