Unter einer Procedure eine andere Procedur aufrufen

[DeddyH]

Zitat von Hansa:

Wer da das with ignoriert und alles ausschreibt, der ist selber Schuld. So etwas hilft höchstens den Monitorherstellern. Für unnötigerweise lange Zeilen hilft ja schon ein 32" Monitor, um alles direkt zu sehen. Beim Drucken gehts dann eben wieder von vorne los.

Das ist ja ein Hammer-Argument , zumal es so etwas wie Variablen ja gar nicht gibt.

Delphi-Quellcode:

var
  DS: TDataset;
begin
  DS := DataModule1.Dataset1;
  DS.Close;
  DS.SelectSQL.Clear;
  //etc. blabla
end;

Ist auch nicht wirklich länger, lässt sich debuggen, und die Code-Vervollständigung tut auch. Prinzipiell geht mir das ja auch hinten vorbei, ob jemand meint, with nutzen zu müssen, die Übersicht leidet aber meistens enorm, von den anderen Nachteilen ganz abgesehen.

[Popov]

Zitat von Hansa:

"With" grundsätzlich nicht zu benutzen, das ist ja auch völlig überzogen. Man schaue sich das mal an :

Wenn wir schon bei With sind, das geht wahrscheinlich noch kürzer (natürlich ohne Schießgewehr).

Delphi-Quellcode:

procedure TAusg.FormShow(Sender: TObject);
begin
  with DataModule1.Dataset1, SelectSQL do begin
    Close;
    Clear;
    Add ('SELECT A.NR,A.BEZ, SP.* FROM ART8 A,')
    Add ('A1,')
    Add ('A2,')
...

[Bummi]

Vielleicht sollten wir zum Thema With/Witz einen eigenen OT - Thread aufmachen.