Zitat von
Bernhard Geyer:
Pascal und Pascal mit Objekten hieß es in der Prä-Delphi-Ära (Turbo Pascal).
Man darf
Pascal nicht mit
Turbo Pascal gleich setzen.
Turbo Pascal ist ein Produkt aus dem Hause Borland und der wohl bekannteste Vertreter der Sprach
Pascal. Damals gab es aus dem Hause Borland drei verschieden Pascal-Produkte
- Turbo Pascal: für DOS
- Turbo Pascal for Windows (klar wofür)
- Borland Pascal (ein Paket aus den ersten beiden und Turbo Assembler)
Das Pascal von Borland erinnert eigentlich nur noch in seinen Grundzügen an den unabhängigen Pascal-Standard. Auch deshalb hat Borland 2002 den Schritt vollzogen und
Object Pascal in
Delphi Language umbenannt.
Damit ist eine auch namentlich eindeutige Trennung zum offiziellen Pascal Standard vollzogen und hat den Weg für Delphi.NET geebnet, welches die originale Pascal Syntax und die Object Pascal Syntax sehr erweitert hat. Anbei mal ein gültiges
Beispiel das nun wirklich nicht mehr allzu viel mit Pascal zu tun hat.
Delphi-Quellcode:
[...]
type
TMy_dotNet_Class =
class sealed (System.
Object)
strict private
private
strict protected
type
LocalRec =
record
A, B, C: Integer;
D:
String;
end;
class var
GlobalClassRec: LocalRec;
var
InstanceRec: LocalRec;
type
TDelphiPRAXiS =
class(System.
Object)
strict private
FValue: Integer;
procedure set_Value(
const Value: Integer);
public
property Value: Integer
read FValue
write set_Value;
end;
protected
public
function Wuppdi: TDelphiPRAXiS;
end;
[....]
{ TMy_dotNet_Class.InlineClass }
procedure TMy_dotNet_Class.TDelphiPRAXiS.set_Value(
const Value: Integer);
begin
FValue := Value;
end;
{ TMy_dotNet_Class }
function TMy_dotNet_Class.Wuppdi: TDelphiPRAXiS;
begin
Result :=
nil;
end;
...
...