Record zu Class umschreiben (Getter/Setter)

[Glados]

Ich habe in meinem Code ein etwas größeres Record. Manche Variablen umrande ich im Code mit einer TMultiReadExclusiveWriteSynchronizer Begin/End Read/Write. Das leider mehrmals.

Ich dachte nun daran das Record in eine Class umzuschreiben mit Gettern und Settern.
Bei den Gettern würde ich Begin/EndRead und bei den Settern Begin/EndWrite nutzen.

Aber wie schreibe ich ein Record in eine Klasse um, OHNE 1000 Stellen im Code ändern zu müssen?

Beispiel:

Delphi-Quellcode:

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

// global verfügbar
var
 aMyData: TMyData;

[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.....

[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.

[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 !.

[Glados]

Zitat:

Im Endeffekt möchtest du folgendes automatisiert haben:

Nein.

Ich möchte solche Stellen, die ich mehrfach habe, durch einen Setter einmalig erledigt haben

Delphi-Quellcode:

=> TMultiReadExclusiveWriteSynchronizer.BeginWrite;
aMyRec.a := '123';
=> TMultiReadExclusiveWriteSynchronizer.EndWrite;

[Neutral General]

Zitat von EWeiss:

TMyData = class

Und du musst überall wo du die Klasse benutzt die Objekte erstellen und freigeben.
Da wirst du nicht drum rum kommen.

Schöner wäre es auch die Felder in der Klasse in Properies umzuwandeln.
Aber das musst du nicht unbedingt tun, wenn du so wenig Arbeit haben möchtest wie nur möglich.