[gelöst] with mit Variable verwenden

[NoCee]

Hallo zusammen,

in meinem Projektchen habe ich 10 Stringgrids Grid1 bis Grid10 die alle identisch aussehen.
Diese werden in einer Procedure mit Daten befüllt.
Der Code ist für alle der gleiche. Die Auswahl welcher Grid verwendet werden soll,
bekomme ich über einen Integerwert.
Wie rufe ich jetzt das zum Integerwert zugehörige Grid auf?
Oder besser gesagt, wie kann ich mit einer Variablen ein Grid geben?
Ich dachte an so was wie mit "With"

Code: Alles auswählen

my_var:= Form1.Grid1
   with my_var do begin
      Entnahme.cells[1,1]:= .....;
      Entnahme.cells[2,1]:= .....;
      Entnahme.cells[3,1]:= .....;
      Entnahme.cells[4,1]:= .....;
    end; 

Was mir auch noch eingefallen wäre ist das Befüllen der Grids in eine eigene Procedure
zu packen und da das Grid als Parameter zu übergeben. Dafür hab ich was im Netz gefunden.
Ich wollte aber vermeiden noch eine Procedure extra mit reinzupacken.

Hat jemand einen Tipp für mich?

Vielen Dank schon mal im Vorraus
Grüße aus Ulm
NoCee

[m.fuchs]

Wie rufe ich jetzt das zum Integerwert zugehörige Grid auf?
[...]
Was mir auch noch eingefallen wäre ist das Befüllen der Grids in eine eigene Procedure
zu packen und da das Grid als Parameter zu übergeben.

Genauso würde ich das machen.

Ich wollte aber vermeiden noch eine Procedure extra mit reinzupacken.

Warum?

[theo]

Wie rufe ich jetzt das zum Integerwert zugehörige Grid auf?

Code: Alles auswählen

var AComponent:TComponent;
  Idx:Integer;
begin
   Idx:=1;
   AComponent:=FindComponent('StringGrid'+IntToStr(Idx));
   If AComponent is TStringGrid then TStringGrid(AComponent).Cells[1,1]:='Test';
end; 

[Warf]

zu packen und da das Grid als Parameter zu übergeben. Dafür hab ich was im Netz gefunden.
Ich wollte aber vermeiden noch eine Procedure extra mit reinzupacken.

Code in prozeduren auslagern ist grundsätzlich immer eine gute Idee. Als Faustregel wird gesagt das eine Funktion nicht mehr als 20 Zeilen lang sein sollte. Wobei allerdings hierbei nur "echte" zeilen gezählt werden, also echte statements. Der code den begin-end oder try-finally beisteuert wird dabei nicht mitgezählt (sonst wäre ein repeat-until einem while-begin-end ja immer vorzuziehen).

Code sollte sich wie ein Text lesen lassen, und Prozeduren helfen dabei. Wenn du eine Prozedur "FillGrid" aufrufst weist du ok, hier wird das grid befüllt. Wenn dich interessiert mit was das grid befüllt wird schaust du rein, aber wenn du nur den allgemeinen Ablauf betrachten willst, ist oftmals die Information das das Grid befüllt wird komplett ausreichend um zu verstehen was die funktion im allgemeinen macht.

[NoCee]

Vielen Dank für die Unterstützung.

Ich hab da selber auch noch eine Lösung gefunden.
Stammt aber nicht von mir sondern hab ich mal hier als Tipp
für was anderes bekommen. Hat aber eine Weile gedauert, bis mir das wieder eingefallen ist.
Mit dem Ehrgeiz das hinzubekommen hab ich das eingebaut und ist sogar relativ easy und übersichtlich.

Code: Alles auswählen

myGridlist: array[0..10] of TStringGrid; 

//in FormCreate dann meine 10 StringGrids übergeben
myGridlist[0]:= myStringList0;   
myGridlist[1]:= myStringList1;
myGridlist[2]:= myStringList2;
....

//und in meiner procedure mit x als Index aufgerufen
myGridlist[x].cells[0,5]:= inttostr(42);

Funktioniert prima.

vielen Dank für eure Antworten und Tipps
Gruß
NoCee

[Mathias]

Code: Alles auswählen

myGridlist[0]:= myStringList0;

Mit der mystringList auch noch ein Array machen, und dann kannst du es mit einer for to Schleife lösen.

Code: Alles auswählen

myGridlist[i]:= myStringList[i]