更聪明一点的代码 效率很重要

原来的代码是这样的

procedure TFrame_Connection.SetDataID(const Value: Integer);
begin
  fCurDataID:= Value;
  RefreshCurData
end;

procedure TFrame_Connection.SetDataType(const Value: Integer);
begin
  fCurTypeID:= Value;
  RefreshCurData;
end;

优化过以后是这样的

procedure TFrame_Connection.SetDataID(const Value: Integer);
begin
  if fCurDataID <> Value then
  begin
    fCurDataID:= Value;
    RefreshCurData
  end;
end;

procedure TFrame_Connection.SetDataType(const Value: Integer);
begin
  if fCurTypeID <> Value then
  begin
    fCurTypeID:= Value;
    RefreshCurData;
  end;
end;