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;