operator := (const d: dir): T;
operator := (const s: string): T;

Цитата(volvo @ 8.07.2007 20:27)

{$mode objfpc}
unit e1;
interface
	type 
		o1 = object
			procedure p();
		end;
implementation	
	procedure o1.p();
	begin	end;
end.

{$mode objfpc}
unit e2;
interface
	type 
		o2 = object
			constructor create;
			procedure pr();
		end;
implementation
	uses e1;
	procedure o2.pr();
	begin o1.p();end;
end.

{$mode objfpc}

unit e1;
interface

type
  o1 = class
    class procedure p();
  end;

implementation

procedure o1.p();
begin end;

end.

procedure o2.pr();
begin
  o1.p(); // здесь - Ok
end;

var
  ex1: o1;
procedure o2.pr();
begin
  ex1.p();
end;

  o1.p();

Цитата(volvo @ 9.07.2007 13:28)

Цитата(volvo @ 9.07.2007 13:28)

Цитата(volvo @ 9.07.2007 13:28)

  o1.p();

{$mode objfpc}
{$STATIC ON}
unit e1;
interface
	type 
		o1 = class
			i:integer; static;//кто придумал задавать параметр через разделитель?
			class procedure p();
				
		end;
implementation	
	procedure o1.p();
	begin 
		inc(self.i);
	end;
end.

unit _u;

interface
type
  T = object
  private
    _value: integer;

  public
    property value: integer read _value write _value;

    constructor create(x: integer = 10);
    destructor destroy();
  end;

implementation

constructor T.create(x: integer);
begin
  value := x;
  //
end;

destructor T.destroy();
begin
  //
end;

end.

uses _u;

var
  my_obj: ^T;

begin
  new(my_obj, create(17)); // инициализация
  writeln(my_obj^.value); // вызов
  dispose(my_obj, destroy()) // удаление
end.

uses _u;

var
  my_obj: T;

begin
  my_obj := T.create(17);
  writeln(my_obj.value);
  my_obj.destroy();
end.