pascal class类示例代码-pascal代码-BFW代码库

搜索

pascal class类示例代码

下载在webide运行代码

代码语言：pascal

所属分类：其他

代码描述：pascal class类示例代码

代码标签：示例

下面为部分代码预览，完整代码请点击下载或在bfwstudio webide中打开

{$mode objfpc} // directive to be used for defining classes
{$m+}		   // directive to be used for using constructor

program exClass;
type
   Rectangle = class
   private
      length, width: integer;
   
   public
      constructor create(l, w: integer);
      procedure setlength(l: integer);
      
      function getlength(): integer;
      procedure setwidth(w: integer);
      
      function getwidth(): integer;
      procedure draw;
end;
var
   r1: Rectangle;

constructor Rectangle.create(l, w: integer);
begin
   length := l;
   width := w;
end;

procedure Rectangle.setlength(l: integer);
begin
   length := l;
end;

procedure Rectangle.setwidth(w: inte.........完整代码请登录后点击上方下载按钮下载查看

网友评论0

相似代码

pascal loop循环示例代码

pascal Variants示例代码

pascal 作用域示例代码

pascal文件读取与写入示例代码

pascal函数调用示例代码

pascal指针操作示例代码

pascal数组操作示例代码

pascal过程操作示例代码

pascal record记录示例代码

pascal时间日期格式化示例代码

其他语言代码库

Html代码库 Python代码库 Java代码库 Php代码库 Phpcli代码库 Golang代码库 C#代码库 Nodejs代码库 C代码库 C++代码库 Sql代码库 R代码库 Rust代码库 Ruby代码库 Dart代码库 Vb代码库 D代码库 F#代码库 Typescript代码库 Coffeescript代码库 Julia代码库 Kotlin代码库 Perl代码库 Groovy代码库 Lua代码库 Vala代码库 Ocaml代码库 Assembly代码库 Objectc代码库 Scala代码库 Erlang代码库 Pascal代码库 Swift代码库 Fortran代码库 Bash代码库 Clojure代码库 Ada代码库 Elixir代码库 Cobol代码库 Haskell代码库 Nim代码库 Racket代码库 Lisp代码库