Record zu Class umschreiben (Getter/Setter)

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:

markieren

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;

Record zu Class umschreiben (Getter/Setter)

Record zu Class umschreiben (Getter/Setter)

Forumregeln