All pastes #539680 Raw Edit

Stuff

public text v1 · immutable
·published 2007-06-05 09:27 UTC
rendered paste body
  for i:=0 to pressUnits.Count-1 do
   begin
    if(DGPressUnit(pressUnits[i]).selected) then
    begin
      binUnits.Add(pressUnits.Delete(i));
      Break;
    end;
   end;