Selektierte Zeilen aus StringGrid 1 in StringGrid 2

**capo**

Hallo,

ich habe folgendes Beispiel gefunden:

Delphi-Quellcode:

			procedure TFormMain.SpeedButtonAddToPlaylistClick(Sender: TObject);

var

  i : integer;

  mdata : TMusicData;

  mr : TModalResult;

begin

  if (musiclist.getItemCount > 0) then

  begin

    mr := mrCancel;

    for i := StringGridInventory.Selection.Top to StringGridInventory.Selection.Bottom do

    begin

      mdata := musiclist.getMusicDataPK(StrToInt(StringGridInventory.Cells[ML_COL_PRIMARY, i]));

      playlist.addMusicData(mdata, mr);

    end;

    refreshStringGridPlayList();

  end;

end;

Bekomme das Beispiel aber nicht umgesetzt.
StringGridInventory ist ein Stringgrid aber musiclist.getMusicDataPK verstehe ich auch nicht.
Kann mir das jemand erklären?

Gruss vom Vito

Selektierte Zeilen aus StringGrid 1 in StringGrid 2

Selektierte Zeilen aus StringGrid 1 in StringGrid 2

Forumregeln