Object Pascal

Stichpunkte

Allgemein
	auch bekannt als Delphi
	Object Pascal
	ist eine von der Firma Borland entwickelte objektorientierte Erweiterung der Programmiersprache Pascal
	inzwischen ist sie mit Kylix auch für Linux verfügbar
	Zuerst eingeführt wurde sie mit Delphi
	einer deutschen Firma
	unter dem Namen Speed Pascal bzw
	Auch von Drittanbietern wurde diese Sprache eine Zeit lang angeboten
	so von Speedsoft
	Sibyl
	als auch von der britischen Firma fPrint UK Ltd. unter dem Namen Virtual Pascal
	Beide wurden ursprünglich für OS/2 entwickelt und später nach Windows und Linux portiert
	Die Entwicklung von Sibyl durch die Firma Speedsoft wurde anscheinend eingestellt
	und die Quelltexte wurden teilweise veröffentlicht
	Sibyl als Open-Source Projekt weiter zu entwickeln
	Es gibt Bemühungen von einigen Entwicklern
	Virtual Pascal ist inzwischen ebenfalls als Freeware erhältlich
	welches unter der GPL steht und mit Lazarus als RAD-IDE ein freies Gegenstueck zu Borlands Implementierungen bietet
	Daneben gibt es noch das ebenfalls kostenlose FreePascal
	Object Pascal ist nicht die erste objektorientierte Erweiterung von Pascal
	sowie der neueren Component Library for Cross Platform (CLX)
	auf der Kylix basiert
	wenn man auch nach einer Dokumentation vergeblich sucht. (Delphi 8 für .NET unterstützt sie nicht mehr.) Object Pascal ist die Grundlage der visuellen Klassenbibliothek Visual Component Library (VCL)
	auf der Delphi basiert
	welches interessanterweise von den Delphi Compilern bis Version 7.0 immer noch unterstützt wird
	Borland hatte bereits bei Version 5.5 von Turbo Pascal ein Objektmodell eingeführt
	und es ist häufig einfach
	Beide Bibliotheken sind stark miteinander verwandt
	eine für die VCL geschriebene Komponente nach CLX zu portieren
	Auch das Handling von Variablen unterscheidet sich in Kylix und Delphi
	Ein Unterschied zu z.B
	dass es nicht möglich ist Objekte auf dem Stack anzulegen
	C++ ist
	die auch nur eingeschränkt genutzt werden können)
	d.h. alle Objekte werden auf dem Heap angelegt (mit Ausnahme der alten Objekte aus Turbo Pascal
	Viele der Elemente und Ideen von Object Pascal sind in die neue Programmiersprache C# und das Microsoft .NET Framework übernommen worden
	dass Anders Heijlsberg
	vormals Mitentwickler von Delphi bei Borland
	"Verbergen") 1 Beispiel einer Klassen-Deklaration 1.1 Sichtbarkeitsbereiche 1.2 Die dazugehörige Implementation 2 Syntax 2.1 Elementare Datentypen 2.2 Reservierte Symbole 2.2.1 Direktiven 3 Weblinks [Bearbeiten]
	Einer der Gründe ist
	zu Microsoft wechselte und maßgeblich an der Entwicklung von C# beteiligt war. Inhaltsverzeichnis showTocToggle("Anzeigen"
Beispiel einer Klassen-Deklaration
	type TCommonObject = class private FSomeCommonValue: integer; protected function GetSomeCommonValue: integer; virtual; abstract; published property SomeCommonProperty: integer read GetSomeCommonValue; end;   TMyObject = class(TCommonObject) private FSomePrivateField: integer; protected function GetSomeCommonValue: integer; override; procedure SomeProtectedMethod(Param1: integer; const Param2: string; out OutParam: string); virtual; procedure SetSomeOtherProperty(Value: integer); function GetSomeOtherProperty: integer; public constructor Create; destructor Destroy; override; procedure SomePublicMethod; published property SomePublishedProperty: integer read FSomePrivateField; // readonly property SomeOtherProperty: integer read GetSomeOtherProperty write SetSomeOtherProperty; end; Dieses Beispiel definiert die zwei Klassen TCommonObject und TMyObject
	TCommonObject beschreibt eine abstrakte Klasse
	zu deren Entwurfszeit noch nichts über die konkrete Implementierung der Methode GetSomeCommonValue bekannt ist
	Jedoch kann es für die weitere Verarbeitung verschiedener Nachfahren von TCommonObject zwingend erforderlich sein
	dass diese Methode vorhanden ist
	TCommonObject enthält also all diejenigen Methoden und Eigenschaften
	die allen Nachfahren gemein ist
	die sämtliche Methoden und Eigenschaften von TCommonObject erbt
	Hier im Beispiel wird GetSomeCommonValue erst in der Klasse TMyObject
	konkret implementiert. [Bearbeiten]
Sichtbarkeitsbereiche
	die man auch Sichtbarkeitsattribute nennt: Sichtbarkeitsattribut Sichtbarkeitsbereich Selbe Klasse Nachfahren Selbe Unit1 Andere Units strict private² X private X X strict protected² X X protected X X X public X X X X published³ X X X X 1) Eine Unit ist eine Datei/Modul eines Programms
	Sichtbarkeitsbereichen
	Wie im Beispiel zu erkennen
	ab Delphi 8 aus sechs
	welche beim Kompilieren eingebunden werden
	bestehen Klassen in Object Pascal aus vier
	2) Erst ab Delphi 8 (.NET)
	3) published fügt außerdem Runtime Type Informations (RTTI) hinzu und steuert so die Sichtbarkeit im Object Inspector
	allerdings nicht verringert werden
	Die Sichtbarkeit kann in Nachfahren durch Redeklaration erhöht
	Properties dienen zum Information hiding
	was einen ADT (abstract data type) auszeichnet
	indem ein direkter Zugriff auf die Variable verhindert wird und die Methode entscheiden kann
	welchen Wert sie beim Lesen herausgibt und beim Ändern eines Wertes akzeptiert
	so handelt es sich um eine Nur-Lese-Variable. [Bearbeiten]
	Wird beispielsweise wie bei property SomePublishedProperty keine write-Methode angegeben
Die dazugehörige Implementation
	constructor TMyObject.Create; // legt eine Objectinstanz an begin inherited; // Konstruktor der Oberklasse rufen fSomePrivateField := 42; // privates Feld mit 42 initialisieren end;   destructor TMyObject.Destroy; begin inherited; // Destruktor der Oberklasse aufrufen end;   function TMyObject.GetSomeCommonValue: integer; begin Result := FSomeCommonValue*2 end;   procedure TMyObject.SomeProtectedMethod(Param1: integer; const Param2: string; out OutParam: string); var i: integer; // Deklaration lokaler Variablen begin OutParam := ; // Ausgabeparameter initialisieren for i:=1 to Param1 do OutParam := OutParam + Param2; // Ausgabeparameter mit dem Eingabeparameter Param1-mal konkatenieren end;   procedure TMyObject.SomePublicMethod; begin Inc(fSomePrivateField); // privates Feld hochzählen end;   procedure SetSomeOtherProperty(Value: integer); begin fSomePrivateField := Value * 5; end;   function GetSomeOtherProperty: integer; begin Result := fSomePrivateField div 5; end; [Bearbeiten]
Syntax
	[Bearbeiten]
Elementare Datentypen
	7x1038 48 bit-Gleitkommazahl Single 4 Byte 1
	4x1038 32 bit-Gleitkommazahl (IEEE 754-float) Double 8 Byte 5
	1x104932 80 bit-Gleitkommazahl Comp 8 Byte -263 bis 263-1 vorzeichenbehaftete 64 bit-Ganzzahl
	5807 vorzeichenbehaftete 64 bit-Festkommazahl Char 1 Byte #0 bis #255 8 bit-Zeichen
	Name Größe Wertebereich Beschreibung ByteBool / Boolean 1 Byte true oder false boolescher Wert WordBool 2 Byte true oder false boolescher Wert LongBool 4 Byte true oder false boolescher Wert Byte 1 Byte 0 bis 255 vorzeichenlose 8 bit-Ganzzahl Word 2 Byte 0 bis 65536 vorzeichenlose 16 bit-Ganzzahl Cardinal 4 Byte 0 bis 4.294.967.295 vorzeichenlose 32 bit-Ganzzahl ShortInt 1 Byte -128 bis 127 vorzeichenbehaftete 8 bit-Ganzzahl SmallInt 2 Byte -32.768 bis 32.767 vorzeichenbehaftete 16 bit-Ganzzahl LongInt 4 Byte -231 bis 231-1 vorzeichenbehaftete 32 bit-Ganzzahl Int64 8 Byte -263 bis 263-1 vorzeichenbehaftete 64 bit-Ganzzahl Real48 6 Byte 2
	5x10-45 bis 3
	0x10-324 bis 1
	mit der über die FPU gerechnet wird Currency 8  Byte -922.337.203.685.477
	z.B
	6x10-4951 bis 1
	9x10-39 bis 1
	5808 bis 922.337.203.685.477
	7x10308 64 bit-Gleitkommazahl (IEEE 754-double) Extended 10 Byte 3
	ASCII-/ANSI-Zeichen WideChar 2 Byte #0 bis #65535 16 bit-Zeichen
	z
	BU
	nicode-Zeichen ShortString bis 256 Byte Aneinanderrehung von bis zu 255 Chars AnsiString bis 2 GByte Aneinanderreihung von bis zu 231 Chars WideString bis 2 GByte Aneinanderreihung von bis zu 230 WideChars Der Datentyp Real entspricht in Delphi standardmässig dem DoubleZ
	ur Rückwärtskompatibilität kann man ihm mit dem Compilerschalter {$REALCOMPATIBILITY ON} dem Real48 gleichsetzenD
	er Datentyp Integer hängt von der jeweiligen Pascal-Implementation abI
	n 16bit-Implementationen (zB
	Turbo Pascal) entsprach er einem SmallInt
	in 32bit-Implementationen einem LongInt und in 64-Bit-Implementationen wird er einem Int64 entsprechen
	Der Datentyp String entspricht standardmäßig einem AnsiString
	Mit {$LONGSTRINGS OFF} entspricht er zur Rückwärtskompatibilität einem ShortString. [Bearbeiten]
Reservierte Symbole
	and array as asm begin case class const constructor destructor dispinterface div do downto else end except exports file finalization finally for function goto if implementation in inherited initialization inline interface is label library mod nil not object of or out packed procedure program property raise record repeat resourcestring set shl shr string then threadvar to try type unit until uses var while with xor [Bearbeiten]
Direktiven
	usw. benutzt werden können. absolute abstract assembler at automated cdecl default deprecated dispip dynamic export far implements index library near nodefault on overload override pascal platform private protected public published read register reintroduce safecall stdcall stored virtual write [Bearbeiten]
	Funktionen
	Direktiven sind Symbole die nur in bestimmten Kontexten reserviert sind
	sonst aber als Namen für Variablen
Weblinks
	Compiler Borland Software Corporation (http://www.borland.com) Free Pascal (http://www.freepascal.org) Virtual Pascal (http://www.vpascal.com) Foren Delphi-PRAXiS (Forum) (http://www.delphipraxis.net) Delphi-Forum.de (http://www.delphi-forum.de) Quelltext-/Unitsammlungen Torry's Delphi Pages (http://www.torry.net) Delphi-Source.de (http://www.delphi-source.de) bg:Delphi da:Delphi en:Delphi programming language es:Lenguaje de programación Delphi fr:Delphi it:Delphi ja:Object Pascal nl:Programmeertaal Delphi pl:Delphi ru:Delphi sv:Delphi (programspråk) zh:Delphi

[X] Schliessen

Dieser Artikel basiert auf dem Artikel Object Pascal aus der freien Enzyklopädie wikipedia und steht unter der GNU Lizenz für freie Dokumentation. In der wikipedia ist eine Liste der Autoren verfügbar.