nochmal StringGrid, Listbox, Memo

[RX3]

falls es jmd interessiert:

Delphi-Quellcode:

    
  for i:=1 to StringGrid1.RowCount - 1 do // Alle Zeilen durchlaufen
    begin
      vZeile:='';
      for j:=1 to StringGrid1.ColCount do // Alle Spalten durchlaufen
      begin
        gefunden:=false;
        for k:=0 to ListBox1.Items.Count-1 do // Alle ListboxEinträge durchlaufen
        begin
          //### Listboxeintrag mit Spaltenüberschirft vergleichen ###
          if StringGrid1.Cells[j,1]=ListBox1.Items.Strings[k] then
            gefunden:=true;
.
.
.
        end; // end Listboxeinträge

        //###  wenn Übereinstimmung Listboxeintrag = Zelleninhalt dann Zeile festlegen ###
        if gefunden = true then
          vZeile := vZeile + vTrennzAus + StringGrid1.Cells[j,i];
      end; // End ColCount
      Memo1.Lines.Add(vZeile); //festgelegte Zeilen ins Memo schreiben
    end; // End RowCount
    Listbox1.Clear;    //Listeneinträge löschen nach Konvertierung
  end;
end;

danke nochmal an alle!