Leute kann mir denn keiner mehr helfen, das Programm ist soweit komplett fertig, nur noch dieser eine Fehler, ich muss es am 30.06. abgeben :-/
Delphi-Quellcode:
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
if Edit2.Text = 'TAB' then
vTrennzAus := chr(vk_tab)
else
vTrennzAus := Edit2.Text;
for j := Listbox1.ItemIndex to Listbox1.Items.IndexOf(StringGrid1.Cells[i,x])do //der Fehler müsste hier liegen !!??
begin
for x := 0 to StringGrid1.RowCount do
begin
vZeile := vZeile + StringGrid1.Cells[i,x] + vTrennzAus;
end;
memo1.Lines.Add(vZeile);
vZeile := '';
end;
end;
end;
end;
end;
end;
Zur Zeit wird der erste ListboxEintrag inkl. zugehörige Spalte ausm StringGrid 1x ins Memo geschrieben, der zweite Listboxeintrag 2mal, der dritte 3mal, etc ...
dafür wird der letzte und vorletzte gar nich mehr ins Memo geschrieben !??