DevExpress SelectList

[nindri]

Hallo alle zusammen,

ich möchte folgende Zeilen in für die Komponente DevExpress umschreiben, aber schaffes es nicht kann mir jemand helfen?

Erstmal Code:

Delphi-Quellcode:

 var
   body,Attachments:TStringlist;
   i:integer;
   temp,Recipient,CCList,sSubject,fileName,rechnungenPfad,errorMsg:String;
begin
  Attachments:=TStringList.Create;
  Body:=TStringList.Create;
  CCList:='';
  rechnungenPfad:=readFromReg('PDFExportVerzeichnis',extractFilePath(application.exename));
  if  cxgrid1.SelectList.Count>1 then   //SelectedList.Count>0 then    Hier taucht ein Fehler auf
    begin
    for i:= 0 to wwDBGrid.SelectedList.Count-1 do//hier taucht ein Fehler auf
      begin
      queryRechkopf.GotoBookmark(wwDBGrid1.SelectedList.items[i]); //hier taucht ein Fehler auf
      fileName:=rechnungenPfad+
                '\rechn_'+
                queryRechkopf.FieldByName('nummer').asString+'_'+
                queryRechkopf.FieldByName('kundename').asString+'.pdf';
      Attachments.add(fileName);
      end;

ich habe schon versucht mit cxGrid1 statt WWDBGrid zu arbeiten, aber es scheint kein "selected" zu geben für DevExpress....

Als Vergleich das Original mit der WW Komponente...

Delphi-Quellcode:

 var
   body,Attachments:TStringlist;
   i:integer;
   temp,Recipient,CCList,sSubject,fileName,rechnungenPfad,errorMsg:String;
begin
  Attachments:=TStringList.Create;
  Body:=TStringList.Create;
  CCList:='';
  rechnungenPfad:=readFromReg('PDFExportVerzeichnis',extractFilePath(application.exename));
  if wwDBGrid1.SelectedList.Count>0 then
    begin
    for i:= 0 to wwDBGrid1.SelectedList.Count-1 do
      begin
      queryRechkopf.GotoBookmark(wwDBGrid1.SelectedList.items[i]);
      fileName:=rechnungenPfad+
                '\rechn_'+
                queryRechkopf.FieldByName('nummer').asString+'_'+
                queryRechkopf.FieldByName('kundename').asString+'.pdf';
      Attachments.add(fileName);
      end;
    end
  else

Vielen dank für eure Hilfe