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