Advantages of learning Pascal?

[WILL]

I think the better question is usually which compiler is better than which language is better. Especially since the language isn't squat without a good compiler that has implemented it.

[arthurprs]

...

operator +(v1, v2: TVector2d): TVector2d;
begin
Result.x := v1.x + v2.x;
Result.y := v1.y + v2.y;
end;
...

This work ?
You can tell me more about it ?

[JSoftware]

...

operator +(v1, v2: TVector2d): TVector2d;
begin
Result.x := v1.x + v2.x;
Result.y := v1.y + v2.y;
end;
...

This work ?
You can tell me more about it ?

I don't think it would work in FPC IIRC.
This would afaik:
[pascal]
operator +(v1, v2: TVector2d) result: TVector2d;
begin
Result.x := v1.x + v2.x;
Result.y := v1.y + v2.y;
end;
[/pascal]

If you want it to compile and work in both fpc and turbodelphi then use the following:
{$IFDEF FPC}
operator +(v1, v2: TVector2d) result: TVector2d;
{$ELSE}
class operator TVector2d.add(v1, v2: TVector2d): TVector2d;
{$ENDIF}
begin

end;

[arthurprs]

...

operator +(v1, v2: TVector2d): TVector2d;
begin
Result.x := v1.x + v2.x;
Result.y := v1.y + v2.y;
end;
...

This work ?
You can tell me more about it ?

I don't think it would work in FPC IIRC.
This would afaik:
[pascal]
operator +(v1, v2: TVector2d) result: TVector2d;
begin
Result.x := v1.x + v2.x;
Result.y := v1.y + v2.y;
end;
[/pascal]

If you want it to compile and work in both fpc and turbodelphi then use the following:
{$IFDEF FPC}
operator +(v1, v2: TVector2d) result: TVector2d;
{$ELSE}
class operator TVector2d.add(v1, v2: TVector2d): TVector2d;
{$ENDIF}
begin

end;

I tried several ways to make it work,
please explain how make it with a Tpoint on Delphi

PS: i use BDS2006

[Robert Kosek]

Arthur, that code is for FPC. But this might be IDE independent:

{$IFDEF FPC}
operator +(v1, v2: TVector2d) result: TVector2d;
{$ELSE}
class operator TVector2d.add(v1, v2: TVector2d): TVector2d;
{$IFEND} 
begin
  Result.x := v1.x  + v2.x;
  Result.y := v1.y + v2.y;
end;

In the same case you can just rename it to TPoint instead if you want to.

[WILL]

Sadly, I think we got away from your question Chris. :?

But to help directly answer what you may want to know...

Proper programming structure and practices is a key feature of the language and a mainstay of all Pascal debuggers. At least those that are made to proper standards.

C and C++ allows you to stray (sometimes too far) from the path that you should take while writing your code.

[arthurprs]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
  public
    { Public declarations }
  end;

var
  Form1: TForm1;


implementation


{$R *.dfm}

class operator Tpoint.add(v1, v2: Tpoint): Tpoint;
begin
  Result.x := v1.x  + v2.x;
  Result.y := v1.y + v2.y;
end;

end.

This don't compile ;/

[JSoftware]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TPoint2d = record
   x,y: integer;
   class operator Add(v1,v2: TPoint2d): TPoint2d;
  end;

  TForm1 = class(TForm)
  private
  public
    { Public declarations }
  end;

var
  Form1: TForm1;


implementation


{$R *.dfm}

class operator Tpoint2d.add(v1, v2: Tpoint2d): Tpoint2d;
begin
  Result.x := v1.x  + v2.x;
  Result.y := v1.y + v2.y;
end;

end.

This don't compile ;/

This should compile

If you are interested in OO(the delphi way) I have written a little article(in danish) with small bits of code here:

http://udvikleren.dk/Delphi/Article.aspx/297/