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.