Properties ohne OOP

[DL3AD]

Hallo,

ich habe gelesen dass man properties ohne OOP verwenden kann.

Geht dass mit PFC 2.6.2 ?
Gibt es da irgendwo ein Beispiel zu ?

Gruß Frank

[m.fuchs]

Ich habe gelesen dass man properties ohne OOP verwenden kann.

Ja. Näheres in der Doku: http://www.freepascal.org/docs-html/ref ... 9-660004.6

Geht dass mit PFC 2.6.2 ?

Ja.

Gibt es da irgendwo ein Beispiel zu ?

Na klar:

Code: Alles auswählen

program Project1;
{$mode objfpc}{$H+}
 
uses
  Classes, SysUtils;
 
var
  FGlobalName: String;
 
function GetGlobalName: String;
begin
  Result := FGlobalName;
end;
 
procedure SetGlobalName(Value: String);
begin
  FGlobalName := Trim(Value);
 
end;
 
property GlobalName: String Read GetGlobalName Write SetGlobalName;
 
begin
  GlobalName := '  Test  ';
  WriteLn('"' + GlobalName + '"');
  ReadLn;
end.

[DL3AD]

Hallo m.fuchs,

vielen Dank!

Ich muss ja mal sagen also dieses Forum ist echt spitze man bekommt fast sofort immer eine VERNÜNFTIGE Antwort - es macht spass hier zu sein !
Habe da im VB Pa...se Forum andere Erfahrungen gemacht. Aber VB.Net ist für mich ja nun zum Glück Geschichte.

Gruß Frank

[marcov]

Das typische Beispiel von prozedurale Properties ist BaseUnix.Errno