sorry, aber ich muss das Teil nochmal ändern...
Der Code soll folgendes machen:
die ListboxEinträge mit den Zellen aus dem StringGrid vergleichen, bei Übereinstimmung sollen alle ZEILEN des StringGrids ins Memo geschrieben werden, allerdings NUR die Einträge aus der ausgewählten Spalte
hier ist der Quellcode aus dem ButtonKlick-Ereignis
Delphi-Quellcode:
procedure TArtikel_Form.Btn_ListKonvertierenClick(Sender: TObject);
var i:Integer;
begin
.
.
.
for i := 0 to ListBox1.Items.Count - 1 do //für jeden Listboxeintrag
begin
for x := 1 to StringGrid1.RowCount - 1 do //für jede Spalte
begin
if ListBox1.Items[i] = StringGrid1.Cells[x,1] then
begin
vZeile := '';
//y=0 : erste(leere Spalte)
//y=1 : zweite(erste gefüllte Spalte)
for y := 0 to StringGrid1.ColCount - 1 do
begin
for x := 1 to StringGrid1.Row -1 do
begin
vZeile := vZeile + StringGrid1.Cells[y,x] + vTrennzAus;
memo1.Lines.Add('INVITEM' + vZeile);
end;
end;
end;
end;
end;
Listbox1.Clear;
end;
end;
Bild Unbenannt1 zeigt die wie es momentan aussieht.
Bild Unbenannt2 zeigt wie es aussehen soll !