1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure Halbiere(var Zahl: Real);
begin
Zahl := Zahl / 2;
end;

//Aufruf:
  Halbiere(RealVariable)

//Type PReal = ^Real;
procedure Halbiere(Zahl: PReal);
begin
Zahl^ := Zahl^ / 2;
end;

//Aufruf:
  Halbiere(@RealVariable)					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

type 
 TBeispielTyp = class
  private
  EineVariable: Integer;
  public
  property DieVariable: Integer read EineVariable write EineVariable;
end;

//Was ist der Unterschied zwischen dem oben und:
type
 TBeispielTyp = class
  private
   //nichts
  public
   DieVariable: Integer;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

type TLabel=class
private
  vCaption: String;
  procedure SetCaption(V: String);
public
 property Caption: String read vCaption write SetCaption;
end;

procedure TLabel.SetCaption(V: String);
begin
  vCaption := V; //hier die eigentliche Zuweisung
  Redraw;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var Pointer1, Pointer2: ^Integer;
    Variable: Integer;
begin
Pointer1 := @Variable; // funktioniert
Pointer2 := Pointer1; //funktioniert nicht !
Pointer2 := @Ponter1; //funkioniert, aber jetzt ist pointer 2 ein pointer auf pointer 1 ! wird also pointer 1 auf Nil gesetzt, ist pointer 2 auch = Nil !
Pointer2 := @Pointer1^; //so wird die Speicheradresse vom Pointer1 an Pointer 2 übergeben
//genauer: Pointer 1 wird in Integer umgewandelt (^) und danach wird die speicheradresse wieder ausgelesen (@)
//es ist also dasselbe wie
Pointer2 := @Variable;					

1:
2:

Pointer2 := Pointer( Pointer1 ); //klappt wie Pointer2 := @Pointer1^; 
Pointer2 := Pointer( Integer(Pointer1) ); //wie das hierdrüber					

1:
2:
3:
4:
5:
6:
7:
8:
9:

while LaufDurch do
 begin
 //mach was
 end;

//oder:
repeat
  //mach was
 until not LaufDurch;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

While not Datenmenge.EOF do
begin
  TrageDatenEin
  Datenmenge.Next
end;

Repeat
  TrageDatenEin
  Datenmenge.Next
until Datenmenge.EOF