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