String zerlegen, auslesen und weiterverwenden

[Sharky]

Hai stonimahoni,

wie schon erwähnt würde ich das ganze mit einer StringListe machen. Das ganz könnte dann zum Beispiel so aussehen:

Delphi-Quellcode:

procedure TForm1.btn_GetAuftraegeClick(Sender: TObject);
var
  sl: TStringList;
  ndx: integer;
begin
  if DBGrid1.SelectedRows.Count > 0 then // Ist etwas markiert?
  begin
    sl := TStringList.Create;  // StringListe erzeugen
    try
      with DBGrid1.DataSource.DataSet do
      begin
        for ndx := 0 to DBGrid1.SelectedRows.Count - 1 do // Alle markierten Datensätze durchlaufen
        begin
          GotoBookmark(pointer(DBGrid1.SelectedRows.Items[ndx])); // Zum markierten DS springen
          sl.Add(FieldByName('auftragsnummer').AsString); // Auftragsnummer aus der Tabelle lesen
        end
      end;
      ShowMessage(Format('Es gibt %d Auftragsnummern', [sl.Count])); // Anzahl der Einträge anzeigen
    finally
      sl.Free;
    end;
  end;
end;