Unit mit Funktionen einbinden

[haentschman]

Moin...

Zitat:

Super, vielen Dank. Ich mache mich mal ran und versuche das umzusetzen.

...aber bitte nicht so. @Delfiano: Sorry.

1. vernünftige Namen - kein Form1
2. keine Abkürzungen für Namen sg -> GridProperties z.B. ...in 3 Monaten kannst du mit vielen Abkürzungen nichts mehr anfangen.
3. Groß/Kleinschreibung ist ja egal aber dann bitteschön konsequent
4. Einrückung konsequent gleich
5. Das Wichtigste: kein WITH. Debugging Probleme u.a.

Besser an den StyleGuide halten, damit auch andere den Code einfach lesen können...
https://www.delphi-treff.de/object-pascal/styleguide/

Delphi-Quellcode:

procedure ClearGrid(GridProperties: TStringGrid);
var
  I: Integer;
begin
  for I := 0 to GridProperties.RowCount - 1 do
  begin
    GridProperties.Rows[I].Clear;
  end; 
  GridProperties.RowCount := 2;
  GridProperties.FixedRows := 1;
end;

procedure TfoMain.ClearGrids;
var
  I: Integer;
begin
  for I := 1 to 7 do 
  begin  
    ClearGrid(FindComponent('StringGrid'+IntToStr(I)) as TStringGrid);
  end;
end;