Record zu Class umschreiben (Getter/Setter)

[Fritzew]

Du kannst auf properties in records verwenden.
Alle Felder nach privat und dann
so in etwa (habe jetzt nicht alle setter getter reingenommen....

Delphi-Quellcode:

type
 TMyData = record
 private
  fa,fb,fc,fd,fe,ff: string;
  faa,fbb,fcc,fdd,fee,fff: Integer;
    function geta: string;
    procedure seta(const Value: string);
 public
   property a : string read geta write seta;
end;

implementation

{ TMyData }

function TMyData.geta: string;
begin
 result := fa;
end;

procedure TMyData.seta(const Value: string);
begin
  fa := value;
end;

[Uwe Raabe]

Zitat von Neutral General:

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.

Laut Eingangspost ist aber genau das der Zweck.

[Uwe Raabe]

Zitat von Glados:

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

Das kommt darauf an, wie du die einzelnen Record-Felder in deinem Code verwendest. Solange du schreibend nur per Zuweisung darauf zugreifst, sollten gleichnamige Properties einer Klasse weiterhin funktionieren. Wenn du die Felder aber als Variablen verwendest, wird das mit Properties nicht funktionieren.