so Leute, danke für die Antworten zu dieser Stunde
ich habe das Problem bereits wie folgt gelöst:
Code:
Procedure ListviewLöschen (str: string);
var
i: Integer;
begin
for i := Pred(frmSpeisekarte.ListView1.Items.Count) downto 0 do
begin
if frmSpeisekarte.ListView1.Items.Item[i].SubItems[0] = str then
begin
frmSpeisekarte.ListView1.Items.Delete(i);
end;
end;
end;
Trotzdem vielen Dank!