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.
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:
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:
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