Hi,
erst mal zum Thema: geht so nicht.
Nun zum with; Ich mag diese Konstrukte auch nicht. Erstens werd ich immer unsicher, was benutzt wird wenn self die gleiche Eigenschaft enthält, und wenn ich dann immer die "fremde" Instanz davor setzen muß, dann komme ich auch wieder auf mehr Text.
Bsp.: Was passiert hier wirklich?
Delphi-Quellcode:
procedure MyObject.Assign(Source : MyObject);
begin
with Source do begin
Caption := Caption;
Left := Left;
.......
end;
Gruß oki