prozeduren auslagern

[Matze]

Das Beispiel zu Form1.Table könnte grob so aussehen:

Delphi-Quellcode:

procedure Tabelleerst(MyTable: TTable);
var
  pfad : string;
begin
  MyTable.Close;

// ...

Der Aufruf der Prozedur erfolgt aus Form1 dann so:

Tabelleerst(Table1);