optionale Parameter mit object-type?

[uligerhardt]

Zitat von SearchBot:

Ich möchte jedoch nicht nochmal die fast gleiche, umfangreiche Function schreiben und mit OVERLOAD versehen (dann alternativ ohne "inScript").

Du kannst doch in der einen Überladung einfach die andere aufrufen.

[Uwe Raabe]

Bist du sicher, daß das wirklich so sein soll type TScript = object und nich so type TScript = class ?

In dem Fall würde mich schon der Grund interessieren.

[milos]

Zitat von Uwe Raabe:

Bist du sicher, daß das wirklich so sein soll type TScript = object und nich so type TScript = class ?

In dem Fall würde mich schon der Grund interessieren.

Dachte ich eben auch ^^
Hab in den ganzen Jahren noch nie object verwendet wüsste auch nicht wozu.

[Rollo62]

http://docwiki.embarcadero.com/RADStudio/Berlin/en/Classes_and_Objects_%28Delphi%29#Object_Types"]http://docwiki.embarcadero.com/RADStudio/Berlin/en/Classes_and_Objects_%28Delphi%29#Object_Types"]http://docwiki.embarcadero.com/RADStudio/Berlin/en/Classes_and_Objects_%28Delphi%29#Object_Types

Zitat:

Object types are supported for backward compatibility only. Their use is not recommended.

http://stackoverflow.com/questions/6...lass-in-delphi

Rollo

[Fritzew]

das geht wenn Du einen Pointertyp für das Object erzeugst.

PmyObject = ^TmyObject; und diesen in der function als parameter verwendest. Aber am besten ist es sicher eine Klasse zu verwenden.

[SearchBot]

Interessante Anregungen und gute Links, vielen Dank Rollo62.
Versuche das mal zu erklären....

Ich hab damals mit TurboPascal 6.0 angefangen, dann 7.0 danach mal kurz bei Pascal für Windows 1.0 reingeguckt und lange Zeit (bis Delphi XE mal günstig angeboten wurde) mit Delphi 4.0 gearbeitet.
Ich hab also nicht jede Entwicklung mitbekommen, wie man was heutzutage korrekt verwendet. Mit object bin ich immer gut gefahren während Klassen, deren Pointern und Konstrukt- und Destruktoren, propertys und read/write... meinen einfachen Verstand übersteigen.
Ich hab schon 2x versucht, mit den gedruckten Entwicklerhandbüchern mich in Klassen und Komponenten-Entwicklung einzuarbeiten und bin jedesmal bei der Vererbung frustriert stecken geblieben - vielleicht auch, weil die Abhandlung für mein jeweiliges Projekt nicht zielführend und dem zeitsparenden Gedanken des RAD entgegen stand.
Ich habs dann jeweils aufgegeben und mich mit einfachen Objektentypen (record, object) zufrieden gegeben, denn das hat ja funktioniert und ich vermeide langwährende Fehlersuchen, weil ich irgendwo eine AccessViolation bekomme

Aber ich lerne gerne dazu, wenns nicht allzu abstrakt ist...
Das also dazu, warum ich object anstelle von class nutze (übersichtlich, Denkstruktur).

Jetzt also mal so

Code:

function Interpreter(cmd:string; Modus:TModus; inScript:TScript = nil):TStatus;

Hierzu sagt der DCC: "E2268 Parameter dieses Typs dürfen keine Standardwerte haben" und steht mit dem Cursor beim nil.

Aber mit "

Code:

type TScript = class

" -einfach so- funktioniert es, und auch daß ich den Parameter weglassen kann... - Problem gelöst!?

Was macht der Compiler denn da unter der Motorhaube anders?
Muss ich dann jetzt auch contructor und destructor einbauen, weil - es läuft grundlegend erstmal auch so, aber beim Zugriff auf die Variable "script" mit

Code:

if not assigned(script) then script:=TStringList.create;

bekomme ich eine Zugriffsverletzung...?

Wäre der leichte Weg wohl eher (entsprechend der Anregung von milos), daß ich einen Dummy deklariere und in der Funktion prüfe, ob dort was sinnvolles drinsteht:

Code:

var dummy:TScript;
begin
   State:=Interpreter(script[line],mSingle,dummy);

[milos]

Ja also wie bereits gesagt wurde, object ist veraltet und sollte nicht mehr benutzt werden, was dich aber natürlich nicht abhält das trotzdem zu tun wenn du willst. Jedoch würde ich empfehlen einfach eine richtige Klasse draus zu machen, ist ja nicht kompliziert oder so ^^

Ich denke du kannst im Grunde genommen einfach das object mit class ersetzen.
Und ja du hast einen Konstruktor und Destruktor. In denen musst du erstmal die Objekte erstellen und schlussendlich diese auch wieder aus dem Speicher löschen.
Warum du da genau eine Zugriffsverletzung bekommst, weiss ich nicht liegt wohl an ner anderen Stelle im Code oder bin gerade zu müde um es zu sehen Kann es vielleicht sein das der Destruktor falsch ist und/oder du das script Objekt vorher mal "free"'st? Kenne das von früher, dass ich ab und zu an falschen Stellen die Objekte aus dem Speicher entfernt habe und deswegen Zugriffsverletzungen auftraten.

Im Grunde genommen sollte deine TScript Klasse schlussendlich genau gleich bleiben ausser halt mit class-Eigenschaften:

Delphi-Quellcode:

TScript = class
private
  ...
public
  ...
  constructor Create;
  destructor Destroy; override;
end;

und dann könntest du ganz einfach für die Funktion Interpreter den Standardwert von inScript auf nil setzen und den dann bei der Funktion abfragen und entsprechend reagieren oder nen Overload setzen. Die erste Möglichkeit ist meiner Meinung nach einfacher zu verstehen, wäre dann etwa so:

function Interpreter(cmd:string; Modus:TModus; inScript:TScript = nil):TStatus; // Beachte das = nil hinter inScript:TScript welches angibt das inScript gleich nil ist wenn kein Argument übergeben wurde Danach kannst du in der Funktion abfragen ob inScript gleich nil ist (also ob kein Argument übergeben wurde)

Freundliche Grüsse

[bcvs]

Zitat von SearchBot:

Muss ich dann jetzt auch contructor und destructor einbauen, weil - es läuft grundlegend erstmal auch so, aber beim Zugriff auf die Variable "script" mit

Code:

if not assigned(script) then script:=TStringList.create;

bekomme ich eine Zugriffsverletzung...?

Grundsätzlich musst du keinen constructor oder destructor einbauen, da du die von TClass erbst. Wahrscheinlich wäre das in deinem Fall aber doch sinnvoll um das script:=TStringList.create unterzubringen.

Wo wird das denn jetzt aufgerufen? Vielleicht liegt da der Grund für die Zugriffsverletzung.