Mehrere StringGrids über Schleife befüllen?

**Stecky2000**

Hallo,

ich habe mal die Boardsuche gequält aber nichts passendes gefunden.
Zunächst zu mir, ich bin kein Programmierer, mache das nur so als Hobby und bitte von daher schon jetzt um Verzeihung wenn mein Code nicht so professionell aussieht

Also zu meinem Problem:

Ich habe eine Funktion, ich habe es hier exemplarisch kurz gehalten, der werden Daten übergeben und dann wird in das StringGrid eingetragen.

markieren

Delphi-Quellcode:

			With StringGrid1 do

  begin

    Cells[1, Zeile] := 'Trage was ein'; 

    ... viel mehr

  end;

Das ist alles kein Problem. Nur, eigentlich möchte ich die Funktion dazu nutzen, 4 StringGrids nacheinander zu befüllen, mit verschiedenen Daten.
Ich könnte das so machen:

zusammenfalten · markieren

Delphi-Quellcode:

			
Case Variable of do

1: begin

     With StringGrid1 do

      begin

       Cells[1, Zeile] := 'Trage was ein'; 

       ... viel mehr

      end; 

   end;

2: begin

     With StringGrid2 do

      begin

       Cells[1, Zeile] := 'Trage was ein'; 

       ... viel mehr

      end; 

   end;

usw.

Aber dann würde ich die eigentliche Funktionalität vervierfachen...

Ich suche eher nach einer Möglichkeit es so zu mache, also eine Funktionalität für verschiedene StringGrids zu nutzen:

markieren

Delphi-Quellcode:

			Function TReport.Test(Zeile, Strg_Nr: Integer): String;

begin

  With StringGrid[Strg_Nr] do

    begin

      Cells[1, Zeile] := 'Trage was ein'; 

      ... viel mehr

    end; 

end;

Vielleicht habt Ihr ja einen einfachen Tipp...

Danke schon mal

Mehrere StringGrids über Schleife befüllen?

Mehrere StringGrids über Schleife befüllen?

Forumregeln