ist ein custom write möglich?

[hoika]

Hallo,

Zitat:

Wozu braucht man diese properties dann noch

z.B.

property Active: Boolean Read GetActive write SetActive;

Delphi-Quellcode:

procedure SetActive(Wert: Boolean);
begin
  if FActive=Wert then
  begin
    // keine Änderung notwendig
    Exit;
  end;

  if Wert=False then
  begin 
    InternalCloseFile;
    FActive:= False;
    Exit;
  end;

  if FFileName='' then
  begin
    // ev. Log
    Exception.Create('FileName not set');
  end;

  if not FileExists(FFileName) then
  begin
    // ev. Log
    Exception.Create('File does not exist');
  end;

  InternalOpenFile;

  FActive:= True;
end;

Hier wird nicht einfach nur FActive gesetzt, sondern es werden noch einige Randbedingungen geprüft.