Code: Alles auswählen
var
MyClass:TMyClass;
begin
MyClass := TMyClass.Create; // geht bei Constructor
MyClass.Create ; // gibt eine Schutzverletzung
end. Code: Alles auswählen
TMy = record // geht ohne Probleme
s: array[0..$FFFFFFF] of integer;
end;
TMy = object // geht ohne Probleme
s: array[0..$FFFFFFF] of integer;
end;
TMy = class // Gibt eine Schutzverletzung
s: array[0..$FFFFFFF] of integer;
end;
var
My: TMy;
procedure TForm1.Button2Click(Sender: TObject);
var
i: integer;
begin
for i := 0 to Length(My.s) -1 do begin
My.s[i] := 1;
end;
end;
procedure TForm1.Button1Click(Sender: TObject); // Bei Class geht es nur so
var
i: integer;
begin
My := TMy.Create;
for i := 0 to Length(MyClass.s) - 1 do begin
My.s[i] := 1;
end;
ShowMessage('MyClass Speicher angefordert');
My.Free;
ShowMessage('MyClass Speicher freigegeben');
end; Da schaust du am Besten in der offiziellen Beschreibung der Sprache Pascal nach: http://www.freepascal.org/docs-html/ref/ref.html Da steht alles drin.Mathias hat geschrieben:So wie es aussieht, werden Class und Object nicht gleich behandel. Bei Object musste man nichts mit Create anfordern, da konnte man direkt zugreifen.
Was noch komisch ist, bei record und object, der Speicher wird im TaskManager erst reserviert, nachdem Button2Click ausgeführt wird.
Code: Alles auswählen
TVertexModif = class(TObject)
public
procedure Normale(var Vectoren, Normal: array of TVector3f);
procedure WriteVectoren(var Vector: array of TVector3f);
procedure WriteVectoren_and_Normal(var Vectoren, Normal: array of TVector3f);
end; Erstelle immer erst die Objekte, bevor du dessen Methoden aufrufst! Alles andere fällt nicht einmal mehr unter grob fahrlässig sondern fällt mindestens unter vorsätzliche Dummheit.Mathias hat geschrieben:Diese Methoden konnte ich aufrufen, ohne das es eine Schutzverletzung kam, obwohl keine Create-Anweisung im Code ist.
Liegt das dran, das hier nur Methoden sind und keine Instancen ?
Code: Alles auswählen
initialization
VertexModif := TVertexModif.Create;
finalization
VertexModif.Free;
end. Die Frage ist, was du tun willst. Im Normalfall verwendet man class, da die Instanz automatisch auf dem Heap abgelegt wird. Mit der richtigen Begründung, kann aber object ebenfalls richtig sein.Mathias hat geschrieben:Oder soll ich die Class als object deklarieren, nur habe ich mal gelesen, das object veraltet ist.
Sobald ich ein OpenGL-Programm schreibe, wird dies class/object verwendet. Ich habe noch eine ganze Sammlung Methoden für Matrix-Berechnungen.Mit der richtigen Begründung, kann aber object ebenfalls richtig sein.
Code: Alles auswählen
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
SysUtils, Forms, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
{ TOpenGL }
TOpenGL = class(TObject)
public
i:integer;
constructor Create;
function Grosse: integer;
end;
{ TDraw }
TDraw = class(TObject)
protected
DrawOpenGL: TOpenGL; static;
public
function OpenGLGrosse: integer;
end;
TNewDraw = class(TDraw)
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
var
OP: TOpenGL;
DR: TNewDraw;
begin
OP := TOpenGL.Create;
DR := TNewDraw.Create;
Button1.Caption := IntToStr(DR.OpenGLGrosse);
OP.Free;
DR.Free;
end;
{ TDraw }
function TDraw.OpenGLGrosse: integer;
begin
Result := DrawOpenGL.Grosse;
end;
{ TPOpenGL }
constructor TOpenGL.Create;
begin
i:=1234;
TDraw.DrawOpenGL := self;
end;
function TOpenGL.Grosse: integer;
begin
Result := i;
end;
end.
TOpenGL ist eine Klasse welche verschiedene Methoden beihaltet, TNewDraw Zeichnet Objekte für OpenGL, welche in berschiedne Ästen vererbt wird. Jeder Erbe muss auf TOpenGL zugreifen können.Die Frage ist eher, was der Sinn davon sein soll.
Ja, darf man. Besser wäre, wenn das Singleton-Pattern vollständig umgesetzt wird.Mathias hat geschrieben:Darf man dies so machen, es geht vor allem um diese Zeile: TDraw.OpenGL := self;
Das Singleton-Pattern definiert, wie man eine Klasse schreiben sollte, von der man nur ein Objekt erzeugen kann. Eine solche Klasse muss drei Bedingungen erfüllen:Mathias hat geschrieben:Ich habe mir den Link mit Singleton-Pattern angeguckt, werde aber nicht schlau.
Verein
Links
Suche