Record zu Class umschreiben (Getter/Setter)

[Glados]

Edit
Ok ich habs. Habe Fi: Integer in Private vergessen.
Ich denke ich werde Class verwenden und dann doch hier und da ein wenig umschreiben.
Ich mache es lieber einmal richtig, als dass ich später 100 Fehler drin habe.


Das hier funktioniert jedenfalls nicht

Delphi-Quellcode:

unit classTest_;

interface

uses System.SysUtils;

type
 TTest_ = class
 private
  Fi: Integer; // VERGESSEN!
  Test: TMultiReadExclusiveWriteSynchronizer;
  function Geti: Integer;
  procedure Seti(const Value: Integer);
 public
  constructor Create; overload;
  destructor Destroy; override;

  property i: Integer read Geti write Seti;
 end;

implementation

constructor TTest_.Create;
begin
 Test := TMultiReadExclusiveWriteSynchronizer.Create;
end;

destructor TTest_.Destroy;
begin
 Test.Free;

 inherited;
end;

function TTest_.Geti: Integer;
begin
 Test.BeginRead;
 Result := Fi; // Fi, nicht i
 Test.EndRead;
end;

procedure TTest_.Seti(const Value: Integer);
begin
 Test.BeginWrite;
 Fi := Value; // Fi, nicht i
 Test.EndWrite;
end;

end.

Delphi-Quellcode:

var
 TestInstance: TTest_;
begin
 TestInstance := TTest_.Create;

 TestInstance.i := 123;
 ShowMessage(TestInstance.i.ToString);

 TestInstance.Free;

[stahli]

Du musst ein privates Feld fI als Datenspeicher nutzen.
Sorry, ich habe die Änderung übersehen...

Eine Klasse finde ich übersichtlicher, da die Speicherverwaltung m.E. einfacher ist.
Aber das ist vermutlich einfach Geschmacksache (sofern man keine Vererbung oder Interfaces benötigt).

[Glados]

Zitat:

Du musst ein privates Feld fI als Datenspeicher nutzen.

Das ist doch schon lange erledigt Habe sogar noch Edit an meinen Beitrag geschrieben

[stahli]

Ja, die Korrektur ist doch auch schon lange erledigt...

[Glados]

Dann bleibe ich denke ich bei der Klasse. Denn Records wurden ja per-se nicht dafür erfunden properties reinzuschmeißen.

[himitsu]

Zitat von Glados:

Denn Records wurden ja per-se nicht dafür erfunden properties reinzuschmeißen.

Interfaces sind auch nicht erfunden, um Property rein zu werfen.
Property sind dort einfach nur "Views" auf je ein Paar Getter und Setter.

[Glados]

Ist es möglich eine Klasseninstanz meiner Klasse innerhalb des Initialization-Teils einer Unit zu erstellen? Bisher bin ich irgendwie zu blöd dafür.