代码搜索：Pascal
找到约 9,253 项符合「Pascal」的源代码
代码结果 9,253
www.eeworm.com/read/306033/13754640
pp pascal_records.pp
type
TRandomPoint = record
X: Integer = Random(100);
Y: Integer = Random(100);
procedure Initialize;
begin
writeln('new point');
end;
end;
TRandomCircl
www.eeworm.com/read/306033/13754645
pp pascal_shapes.pp
namespace Shapes
type
TPoint = class(TObject)
X, Y: Integer;
constructor Create(X, Y: Integer);
begin
inherited Create;
Self.X := X;
Self.
www.eeworm.com/read/306033/13754652
pp pascal_arrays.pp
program Demo;
type
TMyClass = class(TObject)
fZ = [10, 20, 30, 40, 50];
function GetZ(I: Integer): Integer;
begin
result := fZ[I];
end;
procedure SetZ(I, Valu
www.eeworm.com/read/306033/13754670
pp pascal_units.pp
uses a in '\Units\a.pp';
println x;
z.Proc(50);
P(400, 500);
www.eeworm.com/read/306033/13754676
pp pascal_nestedclasses.pp
program Demo;
type
TOuter = class(TObject)
x: Integer = 10;
class var y: String = 'abc';
public
class TInner(TObject)
x: Integer = 20;
procedure PrintData;
b