Proleme bei Locate

[mkinzler]

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;

[Medium]

Zitat:

Zitat von Medium (Beitrag 1182465)

Bei dem obigen bräuchte man eben eine Variable mehr. Kein Beinbruch, aber hier wäre es zumindest nicht mit einfachem Ausschreiben getan.

Schon klar.

[Blup]

Wenn schon, dann ordentlich:

Delphi-Quellcode:

mc: TMyClass;
{...}
  mc := nil;
  try
    mc := TMyClass.Create;
{...}
  finally
    mc.Free;
  end;
end;

oder:

Delphi-Quellcode:

mc: TMyClass;
{...}
  mc := TMyClass.Create;
  try
{...}
  finally
    mc.Free;
  end;
end;

[himitsu]

Zitat:

Zitat von mkinzler (Beitrag 1182468)

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. :angle2:

PS:

Delphi-Quellcode:

try[enter]

kennen wohl Viele, wo dann ein try-finally-end draus wird, aber wer kennt z.B.

Delphi-Quellcode:

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. :stupid: