Stringgrid-Zelle doppelt füllen

[fabiO]

Danke für die gute Antwort, hab die funktion ein bisschen abgeändert und nun funktioniert das mit den Kreisen 1a.

Aber nun habe ich ein Problem, mit dem übertragen der Werte in das Stringgrid.

Also in der Form1 werden die Werte 1,2,3 oder 4 in das Array B geschrieben.

Anschließend wird verglichen, wieviele Werte der Arrays B und C miteinander Übereinstimmen (gespeichert in count : Integer).

In Form2 wird durch ein TChart dann dieser Zahlenwert count dargestellt.
klickt man nun auf diese Series öffnet sich Form3.

In Form3 werden nun die Werte vom Array B in das Stringgrid geschrieben und danach die Werte des Arrays C.

Doch wird nicht einfach der Zahlenwert in die Zelle geschrieben.
Der Wert von B entspricht der Spalte des Stringgrids, in welche dann z.B. ein 'B' geschrieben wird, wie du es schon dargestellt hast.

http://web29.go-space.net/fabio/dp.jpg

Hier habe ich in B einfach 5 Werte geschrieben. Diese möchte ich nun mit deinem code in das Grid übertragen:

Delphi-Quellcode:

for z:= 1 to high(B) do 
  StringGrid1.Cells[B[z],z] := StringGrid1.Cells[B[z],z]+'B';

Wenn ich das so mache, wird mir das hier ausgegeben:

http://web29.go-space.net/fabio/dp2.jpg

Woran liegt das ? Ich steh glaube ich gerade auf der Leitung