Bibliotheksverwaltung

[PPaB]

statt
Listbox1.Items.clear; Musst du jetzt dieses ganze einfügen:
1. diese neue procedure, damit wird die StringGrid geleert

Delphi-Quellcode:

procedure TBibliothekshilfe.StringGridLeer();
var
  P,Q:integer;
begin
  for P := StringGrid1.FixedCols to StringGrid1.ColCount - 1 do
  begin
    for Q := StringGrid1.FixedRows to StringGrid1.RowCount - 1 do
    begin
      StringGrid1.Cells[P,Q] := '';
    end;
  end;
end;

2.StringGridLeer; Und dies an jeder Stelle wo der oben genannte Code steht.

Statt dem
listbox1.Items.add(astring); Musst du das jetzt in die StringGrid einfügen, wie ich das schonmal oben erklärt hatte
Und immer dran denken, vorher RowCount +1

Listbox1.itemindex Ist jetzt StringGrid1.RowCount-1

Versuchs einfach mal so

PPaB