Dopisywanie do schowka

0

Mam kawałek kodu:

Zakres:=StringGrid1.Selection;
for x:=Zakres.Left to Zakres.Right do
begin
for y:=Zakres.Top to Zakres.Bottom do
begin
ClipBoard.AsText:=StringGrid1.Cells[x,y];
end;
end;

który kopiuje do schowka tylko ostanią komórkę z zaznaczonego obszaru (pomimo, ze w pętli przechodzi przez każdą komórkę) Chciałabym skopiować do schowka wszystkie zaznaczone komórki. Czy można to tak zrobić, żeby nie zamazywała się zawartość schowka przy każdym przejściu pętli, tylko dopisywała na końcu nowa wartość ?

Renata

0

ClipBoard.AsText := ClipBoard.AsText + StringGrid1.Cells[x,y];

1 użytkowników online, w tym zalogowanych: 0, gości: 1