Procedure vs Function, Vor- und Nachteile

[KodeZwerg]

Zitat von Dennis07:

Zitat von himitsu:

{ IN .. Referenz . . . . . .} [ref] const Xxx: Txxx; // relativ neu

Kannst du mal genau erklären, was das genau ist bzw. hast du einen Link zu dem Thema? Würde mich mal echt interessieren.

Ich war da auch schon vergebens auf Suche, aber noch keine erfolgreiche Recherche, also bitte mehr Input dazu, kann ich nur zustimmen!

[TiGü]

Zitat von KodeZwerg:

Zitat von Dennis07:

Zitat von himitsu:

{ IN .. Referenz . . . . . .} [ref] const Xxx: Txxx; // relativ neu

Kannst du mal genau erklären, was das genau ist bzw. hast du einen Link zu dem Thema? Würde mich mal echt interessieren.

Ich war da auch schon vergebens auf Suche, aber noch keine erfolgreiche Recherche, also bitte mehr Input dazu, kann ich nur zustimmen!

Erster Google-Treffer für "[ref] const Delphi":
http://docwiki.embarcadero.com/RADSt...antenparameter

[Mavarik]

Kann es sein, dass Die Fragestellung nicht mehr im Vordergrund steht?

Zitat von KodeZwerg:

Beispiele

Delphi-Quellcode:

// Funktionen Vorteil, sie geben etwas direkt wieder
Function Beispiel : Boolean;
begin
  Result := True;
end;

// Proceduren können ja auch etwas wiedergeben per Var
// Nachteil, man benötigt eben eine Variable um das Var auszuwerten
Procedure Beispiel (var bResult: Boolean);
begin
  bResult := True;
end;

Aber was Unterscheidet die Beiden noch?

Die Frage ist : Wie willst Du das Ergebnis ansprechen. (Abgesehen von der "Var" Diskussion)

Beispiel:

Delphi-Quellcode:

var
  Person : TPerson;
  LHatAdresse : Boolean;
...

if Person.HatAdresse then oder
if TPerson.HatAdresse(Person) then oder

Delphi-Quellcode:

Person(LHatAdresse);
if LHatAdresse then

Wobei 1 und 2 eigentlich gleich sind besser vielleicht.

if TKunde.HatAdresse(Person) then weil der Vergleich nicht in TPerson sondern zentral im TKunden definiert ist.

Mavarik

[himitsu]

[ref] ist einer von vielen Standardattributen, abgesehn davon, dass es hier als "Ausnahme" direkt an den Compiler gerichtet ist.
[weak] und [unsafe] wind auch ganz nett.
http://docwiki.embarcadero.com/RADSt...iler-Attribute

Ansonsten kann man fast Allem auch eigene Attribute zuweisen und per RTTI zur Laufzeit auslesen.
z.B. gern genommen für's Test-Management, wo man direkt an Methoden seine Testfunktionen und Testparameter hinterlegen kann.

Ich hab in meinen Libs mal spaßeshalber [Admin] und andere benötigte Privilegien an den Funktionen hintelegt.

Delphi-Quellcode:

// Proceduren können ja auch etwas wiedergeben per Var
// Nachteil, man benötigt eben eine Variable um das Var auszuwerten
Procedure Beispiel (var bResult: LongBool);
begin
  InterlockedExchange(Integer(bResult), Integer(True));  // neben der WinAPI gibt es inzwischen auch System.AtomicExchange
end;

Je nach Anforderung kann das aber auch wieder ein Vorteil sein, denn so könnte diese Prozedur threadsave in diese Variable schreiben.

[KodeZwerg]

Zitat von Mavarik:

Kann es sein, dass Die Fragestellung nicht mehr im Vordergrund steht?

Das was mir bei Thread-Erstellung durch den Kopf geschossen ist war die Frage wie im Titel.
Zacherl hat da sofort die passende Antwort geliefert: "Ist Wurscht.". Damit wäre der Thread bereits geschlossen gewesen.
Ich wollte tatsächlich mehr über die Interna erfahren hauptsächlich wegen Perfomance und Speicher ob Delphi das anders handhabt je nach dem was ich einsetze (Procedure vs Function).
Auch der im Thread beschriebene 5% Boost gehören dazu, was ja nur aufgedeckt wurde nachdem man vom Thema abwich.
Für mich als Thread-Ersteller kann ich nur sagen das ich über Input, auch wenn nicht 100% zum Thema passend aber dennoch irgendwie damit zusammen hängen könnte, mich sehr freue und nach wie vor die DP-Admins bitte den Thread nicht gleich dicht zu machen wenn es nicht ganz exakt das Thema treffen mag.
Ich bin zwar dadurch zum Leser degradiert aber genau darum ging es mir, nach und nach ploppten mehr und mehr Dinge hoch wo ich absolut nicht mitreden kann aber Wissen anreichern kann nie Schaden.

Danke auch für Deine Beispiele!


Einen schönen sonnigen Donnerstag Wünsche ich Euch allen!

[KodeZwerg]

AtomicDecrement und AtomicIncrement kannte ich bereits, AtomicExchange kenne ich noch nicht, Danke dafür!

edit

Zitat von TiGü:

Erster Google-Treffer für "[ref] const Delphi":

Ja manchmal klappen bei mir auch die einfachsten Dinge nicht, Super Link dazu, Danke!

[Dennis07]

Zitat von KodeZwerg:

Auch der im Thread beschriebene 5% Boost gehören dazu

...was auch nur eine aus den Fingern gesaugte Zahl irgendeines Ultraprofis war. Einen Benchmark hat er dazu nicht geliefert, und ich habe sie dann mal so übernommen gehabt, da ich um ehrlich zu sein auch keine weiteren Nachforschungen diesbezüglich anstellen wollte. Aber wenn ich mir das Assembly von "oben" ansehe, dann wird es, je nach länge und Typ des Strings, durchaus mit Sicherheit deutlich über den willkührlich angenommenen "5%" liegen. Ich tippe da auf irgendwas zwischen 15 und 25% im Schnitt, den "const"-Aufrufe da rausholen können. Ist aber auch von mir hier nur eine Annahme, Belege habe ich dafür gerade nicht.

[KodeZwerg]

Moin moin zum Benchen hab ich für andere Beispiele das GetTick von Agner Fog genommen. Es kommt kein Zeitwert raus aber ein Wert mit dem man arbeiten kann. Getestet mit VAR OUT CONST hab ich es selbst noch nicht aber bei Bedarf kann ich es Nachreichen.

[MichaelT]

Ein Interface und damit auch eine Signatur ist in erster Linie für jene die eine proc/meth/func verwenden und nicht jenen der die Prozedur implementiert.

Zitat von Neutral General:

Zitat von p80286:

@Zacherl
Was mir in der Betrachtung fehlt, ist die Schreibschutzprüfung die ja bei const irgendwo stattfinden muß.

Der Schreibschutz wird nur zur Compilezeit gecheckt. Mit ein bisschen Pointergematsche kannst du const umgehen.

Delphi-Quellcode:

procedure TuWas(const X: Integer);
begin
//  X := 987;   <-- Geht nicht
  PInteger(@X)^ := 987;
  ShowMessage(IntToStr(X));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  TuWas(123);
end;

[MichaelT]

Ein Unterschied zwischen Prozedur und Funktion musst du dir aus den Fingern saugen.

Ich habe mir das Thema noch mal angeschaut. In letzter Konsequenz einen schlampigen Programmierstil zu verhindern schafft man nicht konsequent und die Zeiten zu denen es genügte Stati einer Domänenlogik von technischen Return Codes abzutrennen sind vorbei. Dieser Zugang kommt aus der Zeit vor Exceptionhandling.

In C hast du das noch und damit werden Einflüsse dieses Zugangs nicht wirklich verschwinden. Die Länge des Kaiser's Bart erkennt man an den Seiten voller Beiträge in der Regel.

Zitat von KodeZwerg:

Hallo, der Titel ist ja recht Aussagekräftig

Falls sich jemand hier einklinkt und Antwortet, Danke dafür!