Delphi-Quellcode:
TMeineKlasseMyClass = class
fMeinFeldMyField: string;
function MeineMethoteMyMethod(aMeinAttributMyAttribute: integer): string;
MeinPropertyMyProperty: string write fMeinFeldMyField;
und ich mach es eben so
Delphi-Quellcode:
TMeineKlasseMyClass = class
_MeinFeldMyField: string;
function MeineMethoteMyMethod(MeinAttributMyAttribute: integer): string;
MeinPropertyMyProperty: string write _MeinFeldMyField;
und ohne die häßlichen Attributpräfixe gibt es auch keine Namenskonflikte:
Delphi-Quellcode:
TMyClass = class
private
_Text: string;
procedure SetText(Text: string);
public
Text: string write SetText;
end;
procedure TMyClass.SetText(Text: string);
begin
_Text := Text{attribut};
Self.Text{property, wenn gleichnamiges attribut existert} := Text{attribut};
end;