function für mehrere Units?

[Borschti]

Hi nochmal

Wir haben eine Globale Variable test und wollen nun von einem Formular die variable test aus einem Editfeld an die Prozedur im Mainprogramm übergeben. Dieser String dient als Beschriftung für die Spalte

EDITIERT !! Unnötige Deklarationen sind jetzt weg
Funktioniert auch so weit, aber unsere frage jetzt kann man das direkte zugreifen auf form13 umgehen, sodass die Procedur allgemein gültig ist und von jeder Form angesprochen werden kann


Main:

Delphi-Quellcode:

  public
  //Deklaration entfallen
 /...
procedure adddrug (Const Grid: TStringGrid);

begin


// Vorher hier Grid.ColCount := Grid.ColCount + 1;

grid.Cells[Grid.ColCount ,0] := form13.test;

//Jetzt Hier 
Grid.ColCount := Grid.ColCount + 1;

end;
/...
procedure ProcessGrid (Grid: TStringGrid ; ActionId: Integer);
begin
  case ActionId of
    1: addmon (Grid);
    2: adddrug (Grid);
    //3: killcol (Grid);
   end;
end;

Andere Unit

Delphi-Quellcode:

  public
     test : String;
/...
procedure TForm13.ColorButton5Click(Sender: TObject);
//Deklaration entfallen
begin

test := Edit5.text;

ProcessGrid(form11.StringGrid1, 2)
end;

Vielleicht könnt ihr uns helfen den String zu übergeben oder vielleicht kennt ihr eine bessere Lösung für unser Problem.

Mit freundlichen Grüßen
Manuel