DBR Delphi-Ecke

// Wenn man einzelne Elemente einem Set hinzufügen bzw. daraus entfernen
// will, sollte man nicht "+" bzw. "-" als Mengenoperator verwenden. Viel
// effizienter sind "include" bzw "exclude".

// Getestet mit D4 unter XP

var 
  buchst: set of char = ['a', 'b', 'c']; 
 
procedure TForm1.Button4Click(Sender: TObject); 
begin 
// --- uneffizient --- 
  buchst := buchst + ['d']; 
  buchst := buchst - ['a']; 
  if 'd' in buchst then showmessage('"d" ist jetzt da'); 
  if not ('a' in buchst) then showmessage('aber "a" nicht mehr'); 
 
// --- mindestens 10 mal schneller --- 
  include(buchst, 'd'); 
  exclude(buchst, 'a'); 
  if 'd' in buchst then showmessage('"d" ist jetzt da'); 
  if not ('a' in buchst) then showmessage('aber "a" nicht mehr'); 
end;