function für mehrere Units?

[Nuclear-Ping]

Delphi-Quellcode:

unit Irgendwas;

interface

uses ...;

procedure ProcessGrid (Grid: TStringGrid; ActionId: Integer);

implementation

procedure AddSomething (Grid: TStringGrid);
begin
  // ...
end;

procedure ProcessGrid (Grid: TStringGrid; ActionId: Integer);
begin
  case ActionId of
    1: AddSomething (Grid);
    2: DeleteSomething (Grid);
    // ...
   end;
end;

end.

Delphi-Quellcode:

unit Unit1;

interface

uses ...;

type

  TForm1 = class(TForm)
    // ...
    procedure Button1Click (Sender: TObject);
  private
    // ...
  public
    // ...
  end;

var
  // ...

implementation

uses Irgendwas;

{$R *.dfm}

procedure TForm1.Button1Click (Sender: TObject);
begin
  ProcessGrid (StringGrid1, 1);
end;

Wie lange arbeitet ihr schon mit Delphi?