Oh, ich dachte das wär klar, und du müsstest nur noch die Spalte ins memo schreiben.#13#10 macht einen zeilenumbruch im memo, aber natürlich habe ich nicht an lines.add gedacht.
Delphi-Quellcode:
var mylbxText: string;
begin
for i:=0 to ListBox1.items.count-1 do begin // für jedes element der listbox
mylbxTEXT:= ListBox1.items[i].Text; //die Vairable mit dem aktuellen ListBoxeintrag füllen. Hab nicht ganz im kopf wie die Eigenschaft hier heisst.
for x:=0 to StringGrid1.ColCount-1 do // für jede Spalte des grids
if StringGrid1.cells[0,x] = mylbxText then // erste Zeile nach dem Listboxeintrag durchsuchen
begin
for y:= 0 to StringGrid1.RowCount-1 do
memo1.Lines.Add(StringGrid1.cells[y,x]);
end;
end;