nochmal StringGrid, Listbox, Memo

[Lannes]

Hallo,

darf es auch etwas kürzer sein

Delphi-Quellcode:

  
  vTrennzAus := ';';
  s := '';
  with StringGrid1 do
    for i:=1 to RowCount - 1 do // Alle Zeilen durchlaufen
      begin
      for j:=1 to ColCount -1 do // Alle Spalten durchlaufen
        if ListBox1.Items.IndexOf(Cells[j,1]) <> -1 then
          s := s + vTrennzAus + Cells[j,i];
      s := s+#13#10;//Zeilenumbruch hinzufügen
      end;
  Memo1.Text := s;//Ergebnis ins Memo

Außerdem ließt Du in deinem
for j:=1 to StringGrid1.ColCount do//<--- über den Bereich deiner StringGrid hinnaus, dort fehlt -1