Ideone.com

download

copy

count = 8
 
def VarList(count, prefix):
  s = ""
  for i in range(count):
    if i<>0:
      s = s + ", "
    s = s + prefix + str(i+1)
  return s
 
def InitialiseNilIntf(count):
  print "procedure InitialiseNil(var " + VarList(count, "Obj") + "); overload;"
 
def FreeAndNilIntf(count):
  print "procedure FreeAndNil(var " + VarList(count, "Obj") + "); overload;"
 
def InitialiseNilImpl(count):
  print "procedure InitialiseNil(var " + VarList(count, "Obj") + ");"
  print "begin"
  for i in range(count):
    print "  Pointer(Obj%s) := nil;" % str(i+1)
  print "end;"
  print
 
def FreeAndNilImpl(count):
  print "procedure FreeAndNil(var " + VarList(count, "Obj") + ");"
  print "var"
  print "  " + VarList(count, "Temp") + ": TObject;"
  print "begin"
  for i in range(count):
    print "  Temp%s := TObject(Obj%s);" % (str(i+1), str(i+1))
  for i in range(count):
    print "  Pointer(Obj%s) := nil;" % str(i+1)
  for i in range(count):
    print "  Temp%s.Free;" % str(i+1)
  print "end;"
  print
 
for i in range(count):
  InitialiseNilIntf(i+1)
print
for i in range(count):
  FreeAndNilIntf(i+1)
print
for i in range(count):
  InitialiseNilImpl(i+1)
print
for i in range(count):
  FreeAndNilImpl(i+1)

Success #stdin #stdout 0.01s 7728KB

stdin

copy

Standard input is empty

stdout

copy

procedure InitialiseNil(var Obj1); overload;
procedure InitialiseNil(var Obj1, Obj2); overload;
procedure InitialiseNil(var Obj1, Obj2, Obj3); overload;
procedure InitialiseNil(var Obj1, Obj2, Obj3, Obj4); overload;
procedure InitialiseNil(var Obj1, Obj2, Obj3, Obj4, Obj5); overload;
procedure InitialiseNil(var Obj1, Obj2, Obj3, Obj4, Obj5, Obj6); overload;
procedure InitialiseNil(var Obj1, Obj2, Obj3, Obj4, Obj5, Obj6, Obj7); overload;
procedure InitialiseNil(var Obj1, Obj2, Obj3, Obj4, Obj5, Obj6, Obj7, Obj8); overload;

procedure FreeAndNil(var Obj1); overload;
procedure FreeAndNil(var Obj1, Obj2); overload;
procedure FreeAndNil(var Obj1, Obj2, Obj3); overload;
procedure FreeAndNil(var Obj1, Obj2, Obj3, Obj4); overload;
procedure FreeAndNil(var Obj1, Obj2, Obj3, Obj4, Obj5); overload;
procedure FreeAndNil(var Obj1, Obj2, Obj3, Obj4, Obj5, Obj6); overload;
procedure FreeAndNil(var Obj1, Obj2, Obj3, Obj4, Obj5, Obj6, Obj7); overload;
procedure FreeAndNil(var Obj1, Obj2, Obj3, Obj4, Obj5, Obj6, Obj7, Obj8); overload;

procedure InitialiseNil(var Obj1);
begin
  Pointer(Obj1) := nil;
end;

procedure InitialiseNil(var Obj1, Obj2);
begin
  Pointer(Obj1) := nil;
  Pointer(Obj2) := nil;
end;

procedure InitialiseNil(var Obj1, Obj2, Obj3);
begin
  Pointer(Obj1) := nil;
  Pointer(Obj2) := nil;
  Pointer(Obj3) := nil;
end;

procedure InitialiseNil(var Obj1, Obj2, Obj3, Obj4);
begin
  Pointer(Obj1) := nil;
  Pointer(Obj2) := nil;
  Pointer(Obj3) := nil;
  Pointer(Obj4) := nil;
end;

procedure InitialiseNil(var Obj1, Obj2, Obj3, Obj4, Obj5);
begin
  Pointer(Obj1) := nil;
  Pointer(Obj2) := nil;
  Pointer(Obj3) := nil;
  Pointer(Obj4) := nil;
  Pointer(Obj5) := nil;
end;

procedure InitialiseNil(var Obj1, Obj2, Obj3, Obj4, Obj5, Obj6);
begin
  Pointer(Obj1) := nil;
  Pointer(Obj2) := nil;
  Pointer(Obj3) := nil;
  Pointer(Obj4) := nil;
  Pointer(Obj5) := nil;
  Pointer(Obj6) := nil;
end;

procedure InitialiseNil(var Obj1, Obj2, Obj3, Obj4, Obj5, Obj6, Obj7);
begin
  Pointer(Obj1) := nil;
  Pointer(Obj2) := nil;
  Pointer(Obj3) := nil;
  Pointer(Obj4) := nil;
  Pointer(Obj5) := nil;
  Pointer(Obj6) := nil;
  Pointer(Obj7) := nil;
end;

procedure InitialiseNil(var Obj1, Obj2, Obj3, Obj4, Obj5, Obj6, Obj7, Obj8);
begin
  Pointer(Obj1) := nil;
  Pointer(Obj2) := nil;
  Pointer(Obj3) := nil;
  Pointer(Obj4) := nil;
  Pointer(Obj5) := nil;
  Pointer(Obj6) := nil;
  Pointer(Obj7) := nil;
  Pointer(Obj8) := nil;
end;


procedure FreeAndNil(var Obj1);
var
  Temp1: TObject;
begin
  Temp1 := TObject(Obj1);
  Pointer(Obj1) := nil;
  Temp1.Free;
end;

procedure FreeAndNil(var Obj1, Obj2);
var
  Temp1, Temp2: TObject;
begin
  Temp1 := TObject(Obj1);
  Temp2 := TObject(Obj2);
  Pointer(Obj1) := nil;
  Pointer(Obj2) := nil;
  Temp1.Free;
  Temp2.Free;
end;

procedure FreeAndNil(var Obj1, Obj2, Obj3);
var
  Temp1, Temp2, Temp3: TObject;
begin
  Temp1 := TObject(Obj1);
  Temp2 := TObject(Obj2);
  Temp3 := TObject(Obj3);
  Pointer(Obj1) := nil;
  Pointer(Obj2) := nil;
  Pointer(Obj3) := nil;
  Temp1.Free;
  Temp2.Free;
  Temp3.Free;
end;

procedure FreeAndNil(var Obj1, Obj2, Obj3, Obj4);
var
  Temp1, Temp2, Temp3, Temp4: TObject;
begin
  Temp1 := TObject(Obj1);
  Temp2 := TObject(Obj2);
  Temp3 := TObject(Obj3);
  Temp4 := TObject(Obj4);
  Pointer(Obj1) := nil;
  Pointer(Obj2) := nil;
  Pointer(Obj3) := nil;
  Pointer(Obj4) := nil;
  Temp1.Free;
  Temp2.Free;
  Temp3.Free;
  Temp4.Free;
end;

procedure FreeAndNil(var Obj1, Obj2, Obj3, Obj4, Obj5);
var
  Temp1, Temp2, Temp3, Temp4, Temp5: TObject;
begin
  Temp1 := TObject(Obj1);
  Temp2 := TObject(Obj2);
  Temp3 := TObject(Obj3);
  Temp4 := TObject(Obj4);
  Temp5 := TObject(Obj5);
  Pointer(Obj1) := nil;
  Pointer(Obj2) := nil;
  Pointer(Obj3) := nil;
  Pointer(Obj4) := nil;
  Pointer(Obj5) := nil;
  Temp1.Free;
  Temp2.Free;
  Temp3.Free;
  Temp4.Free;
  Temp5.Free;
end;

procedure FreeAndNil(var Obj1, Obj2, Obj3, Obj4, Obj5, Obj6);
var
  Temp1, Temp2, Temp3, Temp4, Temp5, Temp6: TObject;
begin
  Temp1 := TObject(Obj1);
  Temp2 := TObject(Obj2);
  Temp3 := TObject(Obj3);
  Temp4 := TObject(Obj4);
  Temp5 := TObject(Obj5);
  Temp6 := TObject(Obj6);
  Pointer(Obj1) := nil;
  Pointer(Obj2) := nil;
  Pointer(Obj3) := nil;
  Pointer(Obj4) := nil;
  Pointer(Obj5) := nil;
  Pointer(Obj6) := nil;
  Temp1.Free;
  Temp2.Free;
  Temp3.Free;
  Temp4.Free;
  Temp5.Free;
  Temp6.Free;
end;

procedure FreeAndNil(var Obj1, Obj2, Obj3, Obj4, Obj5, Obj6, Obj7);
var
  Temp1, Temp2, Temp3, Temp4, Temp5, Temp6, Temp7: TObject;
begin
  Temp1 := TObject(Obj1);
  Temp2 := TObject(Obj2);
  Temp3 := TObject(Obj3);
  Temp4 := TObject(Obj4);
  Temp5 := TObject(Obj5);
  Temp6 := TObject(Obj6);
  Temp7 := TObject(Obj7);
  Pointer(Obj1) := nil;
  Pointer(Obj2) := nil;
  Pointer(Obj3) := nil;
  Pointer(Obj4) := nil;
  Pointer(Obj5) := nil;
  Pointer(Obj6) := nil;
  Pointer(Obj7) := nil;
  Temp1.Free;
  Temp2.Free;
  Temp3.Free;
  Temp4.Free;
  Temp5.Free;
  Temp6.Free;
  Temp7.Free;
end;

procedure FreeAndNil(var Obj1, Obj2, Obj3, Obj4, Obj5, Obj6, Obj7, Obj8);
var
  Temp1, Temp2, Temp3, Temp4, Temp5, Temp6, Temp7, Temp8: TObject;
begin
  Temp1 := TObject(Obj1);
  Temp2 := TObject(Obj2);
  Temp3 := TObject(Obj3);
  Temp4 := TObject(Obj4);
  Temp5 := TObject(Obj5);
  Temp6 := TObject(Obj6);
  Temp7 := TObject(Obj7);
  Temp8 := TObject(Obj8);
  Pointer(Obj1) := nil;
  Pointer(Obj2) := nil;
  Pointer(Obj3) := nil;
  Pointer(Obj4) := nil;
  Pointer(Obj5) := nil;
  Pointer(Obj6) := nil;
  Pointer(Obj7) := nil;
  Pointer(Obj8) := nil;
  Temp1.Free;
  Temp2.Free;
  Temp3.Free;
  Temp4.Free;
  Temp5.Free;
  Temp6.Free;
  Temp7.Free;
  Temp8.Free;
end;

Discover > Sphere Engine API

Discover > IDE Widget

Discover > Sphere Engine API

Discover > IDE Widget

Choose your language