Record zu Class umschreiben (Getter/Setter)

[EWeiss]

TMyData = class

gruss

[Glados]

Ich möchte wirklich nicht unfreundlich sein, aber das weiß ich schon und das war nicht die Frage.

[Der schöne Günther]

Im Endeffekt möchtest du folgendes automatisiert haben:

Von

Delphi-Quellcode:

   TMyRecord = record
      someField: Integer;
   end;

zu

Delphi-Quellcode:

   TMyObject = class
      private var
         FSomeField: Integer;
      public
         function getSomeField(): Integer;
         procedure setSomeField(const value: Integer);
   end;

Und das für eine beliebige Anzahl an Feldern im Record. Ich kenne keinen in der IDE eingebauten Automatismus dafür, der Model Maker Code Explorer ist aber EXTREM EMPFEHLENSWERT und scheint das zu können.

Ich würde es an deiner Stelle aber trotzdem nicht tun. Erstens versteckst du das ganze Gelocke und Entsperren nur vor dem Aufrufer und zweitens fällt der Code auf die Nase falls du die Felder irgendwo z.B. in eine Methode mit var/out-Parameter gesteckt hast, das geht mit Properties in Delphi ja auch nicht.



PS: Ich möchte auch nicht unfreundlich sein, aber wenn du irgendein globales Gott-Objekt mit "tausend" Variablen hast und jetzt auch noch aus mehreren Threads anfängst die Werte zu manipulieren hast du im Kern wahrscheinlich ganz andere Probleme...

[EWeiss]

Zitat:

Du kannst auf properties in records verwenden.

Ich denke so wie herausgelesen weis er das alles..
Er möchte so wenig ändern wie möglich, darum geht es ihm.

Zitat:

OHNE 1000 Stellen im Code ändern zu müssen

Nur wie soll das gehen

gruss

[Fritzew]

Zitat:

Nur wie soll das gehen

genau deshalb..... Properties in den Record, dann muss er nur die Record Definition anpassen.....

[Glados]

Ist es irgendwie auch möglich den TMultiReadExclusiveWriteSynchronizer den ich nutze in diese Unit, welche dann mein Record enthält, einzubinden?
Ich möchte in diese Unit nämlich nur ungern andere Units per uses einbinden.

Frage: wenn ich dennoch eine Class daraus mache mit Propertys und allem drum und dran - dann könnte ich den TMultiReadExclusiveWriteSynchronizer doch im überschriebenen Create() erstellen und meine Klasseninstanz im FormCreate meiner Hauptform, sehe ich das richtig? Und ändern müsste ich auch nicht viel da wo ich meine Variablen abrufe.
(bzw im Initialization meiner Globals-Unit)

[bra]

Im Prinzip kann man records ja fast wie Klassen verwenden (mit ein paar Einschränkungen):
http://docwiki.embarcadero.com/RADSt...8erweiterte.29

Da könntest du deine Variablen einfach in Setter/Getter verpacken, mit den jeweiligen Aufrufen drin. Ob das dann wirklich schön ist, sei mal dahin gestellt...

[himitsu]

Zitat von EWeiss:

Zitat:

Du kannst auf properties in records verwenden.

Ich denke so wie herausgelesen weis er das alles..
Er möchte so wenig ändern wie möglich, darum geht es ihm.

Zitat:

OHNE 1000 Stellen im Code ändern zu müssen

Nur wie soll das gehen

gruss

Bei Record belassen, die Felder umbenennen und die Property so wie das Feld nennen.

[Glados]

Hat ein Record hier denn vernünftige Vorteile gegenüber einer Klasse?
Dass ich eine Klasseninstanz erstellen und wiederfreigeben muss, damit habe ich kein Problem.

[Ghostwalker]

Delphi-Quellcode:

type
 TMyData = record
  a,b,c,d,e,f: string;
  aa,bb,c,dd,ee,ff: Integer;
end;

 TMyDataClass = Class
 private
    fdata : TMyData;   
 protected
    function GetA:String;
    procedure SetA(value:string);
          :
    function GetAA:Integer;
    procedure SetAA(Value:integer);
         :
 published
  property a : string read GetA write SetA;
    :
  property aa: integer read GetAA write SetAA;

end;

Um die Erzeugung der Instanzen an den betreffenden Stellen wirst du aber nicht drum rum kommen. Wenn du mit globalen Variablen deines Records arbeitest, reichts aber auch, wenn du dir entsprechend globalen Instanzen erzeugst (z.B. im Initialization-Teil einer Unit). Nicht vergessen die Instanzen auch wieder freigeben !.