Endlich eine handliche Ablösung für "with":
Statt
Delphi-Quellcode:
var cds: TClientDataSet; qry: TUniQuery;
begin
cds := Datamodule.cds_Report;
qry := Datamodule.qry_Sales;
// ...viel Text...
cds.FieldByName('bla').AsString := qry.FieldByName('bla').AsString;
schreiben wir jetzt
Delphi-Quellcode:
// ...viel Text...
begin
var cds := Datamodule.cds_Report;
var qry := Datamodule.qry_Sales;
cds.FieldByName('bla').AsString := qry.FieldByName('bla').AsString;
...
end;
P.S.: ja, man kann auch
Datamodule.cds_Report.FieldByName('bla').AsString := Datamodule.qry_Sales.FieldByName('bla').AsString;
schreiben. Breitbildschirm sei dank. Aber es gibt auch tiefer verschachtelte Fälle, und irgendwann wirds ziemlich unübersichtlich.