Listbox mit StrinGrid vergleichen!?

[angos]

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;