Stringgrids

[Jürgen Michaelis]

Hi Leute,

Habe folgendes Problem mit einer Stringgrid.

Ich habe ein Stringgrid mit 4 Spalten und eine sich öfter
änderten Zeilenanzahl.
Nun möchte ich z.B den Inhalt aller Zellen (z.B Zahlen) der Spalte 3
auslesen und zum Schluss addieren.
Bis jetzt habe ich es mit Schleifen usw.ausprobiert,komme aber in
diesen Punkt nicht weiter.

Wer könnte mir helfen?

Gruss und Dank

Jm

[Ulrich Gerhardt]

Meinst du so?
<pre class="sourcecode"><code>
<b>procedure</b> TForm1.Button1Click(Sender: TObject);
<b>var</b>
i, nr, sum: Integer;
<b>begin</b>
sum := 0;
<b>for</b> i := 1 <b>to</b> pred(StringGrid1.RowCount) <b>do</b>
<b>begin</b>
nr := StrToInt(StringGrid1.Cells[2, i]);
Inc(sum, nr);
<b>end</b>;
Button1.Caption := IntToStr(sum);
<b>end</b>;
</code></pre>
Ciao, Uli

[Juergen Michaelis]

Danke für den Tip

gruss

J

[Jürgen Michaelis]

Hi Leute,

Wie bekomme ich einen Eintrag einer Stringgrid-Zelle den ich mit der Maus makieren möchte per Drag & Drop in einer Listbox.

z.b
s := stringgrid1.cells[acol,arow],
listbox1.items.add(s);

Habe schon einiges versucht,komme aber nicht weiter.

Wer hat da eine Idee