Unter einer Procedure eine andere Procedur aufrufen

[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,')
...