Habe jetzt folgenden Code, aber es wird immer nur die Spaltenüberschirft ins memo geschrieben, nich die komplette Spalte...
Delphi-Quellcode:
begin
for i:=0 to ListBox1.items.count-1 do // für jedes element der listbox
begin
for x:=0 to StringGrid1.ColCount-1 do // für jede Spalte des grids
begin
for y:=0 to StringGrid1.RowCount-1 do // für jede Zeile
begin
if ListBox1.items[i] = StringGrid1.cells[y,x] then
begin
vZeile := vZeile + StringGrid1.Cells[y,x] + vTrennzAus;
memo1.Lines.Add(vZeile);
vZeile := '';
end;
end;
end;
end;
end;
wer weiß weiter ??