Auch das ist ersetzbar
Delphi-Quellcode:
mc: TMyClass;
..
try
mc := TMyClass.Create;
mc.Property1 := Value1;
mc.Property2 := Value2;
mc.Property3 := Value3;
mc.Method1(Param1, Param2);
finally
Free;
end;
end;
Hier ist auch ein anderes Problem des WITH aufgefallen, denn beim Umbau fällt auf, daß der Scope vieles verschleift.
Und schwups, wurde beim Free etwas vergessen, was nun vermutlich gleich mal die ganze Form freigibt.
PS:
try[enter]
kennen wohl Viele, wo dann ein try-finally-end draus wird, aber wer kennt z.B.
try[tab]
? (vorausgesetzt, das Delphi ist halbwegs aktuell [so um die 6 Jahre] und es ist keine Starter)
Delphi-Quellcode:
xxx := Tyyy.Create(Self);
try
finally
xxx.Free;
end;
Und Delphi legt sogar von selbst die passende Variable an.
