- 1
- 2
- 3
for(x = 1; x; x += x)
  if(!(((e*x)%m)/t))
  { x = d; break; }Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+111
for(x = 1; x; x += x)
  if(!(((e*x)%m)/t))
  { x = d; break; }Недавно прислали с вопросом: "Тут что-то поломалось, надо исправить... Поможешь?"
+111
var
s:string;
begin
repeat
readln(s);
until
(length(s)=4)
and(
                (s[1]='1')
              or(s[1]='2')
              or(s[1]='3')
              or(s[1]='4')
              or(s[1]='5')
              or(s[1]='6')
              or(s[1]='7')
              or(s[1]='8')
              or(s[1]='9')
                          )
and(
                (s[2]='1')
              or(s[2]='2')
              or(s[2]='3')
              or(s[2]='4')
              or(s[2]='5')
              or(s[2]='6')
              or(s[2]='7')
              or(s[2]='8')
              or(s[2]='9')
              or(s[2]='0')
                          )
and(
                (s[3]='1')
              or(s[3]='2')
              or(s[3]='3')
              or(s[3]='4')
              or(s[3]='5')
              or(s[3]='6')
              or(s[3]='7')
              or(s[3]='8')
              or(s[3]='9')
              or(s[3]='0')
                          )
and(
                (s[4]='1')
              or(s[4]='2')
              or(s[4]='3')
              or(s[4]='4')
              or(s[4]='5')
              or(s[4]='6')
              or(s[4]='7')
              or(s[4]='8')
              or(s[4]='9')
              or(s[4]='0')
                          )
end.Нашёл у себя из первого курса.
+111
function str_transfer(str: string; c: Integer): String;
var
i:Integer;
begin
  i:= c;
  while PosEx(' ',str,i) > 0 do
    begin
      if PosEx(' ',str,i) > 0 then
        begin
          i:= PosEx(' ',str,i);
          Insert(#10#13,str,i+1);
          i:= i+c;
        end;
    end;
  Result:= str;
end;"решил написать вот такую функцию, которая вставляет в строку переносы после определенного кол. символов, перенос строки вставляется между словами. Может кому пригодится...."
+111
 
                просто гет
+111
// BasePage
public virtual void Page_Error(object sender, EventArgs e) { }
// Page
public override void Page_Error(object sender, EventArgs e) { }Авторы-индусы были по всей видимости не в курсе о существовании OnError(EventArgs)
+111
for (int i = 0; i < 10; i++)
                  {
                         Console.Write(";x=" + h * i * dn + ",U=" + res[i * dn, j * dm]);
                  }
                  Console.Write(";x=" + h * 10 * dn + ",U=" + res[10 * dn, j * dm]);No comments
+111
public List<Zone> IncludedZones {
	get {
		var result = new List<Zone>();
		if (CarreerToHeap.Career.Name != null)
			result.Add(CarreerToHeap.Career);
		if (CarreerToHeap.UnLoading.Name != null)
			result.Add(CarreerToHeap.UnLoading);
		if (CarreerToBank.Career.Name != null)
			result.Add(CarreerToBank.Career);
		if (CarreerToBank.UnLoading.Name != null)
			result.Add(CarreerToBank.UnLoading);
		if (RT3110ToHeap.Career.Name != null)
			result.Add(RT3110ToHeap.Career);
		if (RT3110ToHeap.UnLoading.Name != null)
			result.Add(RT3110ToHeap.UnLoading);
		if (RT3110ToBank.Career.Name != null)
			result.Add(RT3110ToBank.Career);
		if (RT3110ToBank.UnLoading.Name != null)
			result.Add(RT3110ToBank.UnLoading);
		if (WestSubZoneToHeap.Career.Name != null)
			result.Add(WestSubZoneToHeap.Career);
		if (WestSubZoneToHeap.UnLoading.Name != null)
			result.Add(WestSubZoneToHeap.UnLoading);
		if (WestSubZoneToBank.Career.Name != null)
			result.Add(WestSubZoneToBank.Career);
		if (WestSubZoneToBank.UnLoading.Name != null)
			result.Add(WestSubZoneToBank.UnLoading);
		if (RemZone.Name != null)
			result.Add(RemZone);
		if (ParkingZone.Name != null)
			result.Add(ParkingZone);
		return result;
	}
}Охрененное свойство
+111
public const string Message = "messagebox";
            public const string Message_Error = "messagebox.error";
            public const string Message_Question = "messagebox.question";
        public void ProcessUrl(string url, object urlContext, EventHandler<ProcessUrlArgs> callback)
        {
            switch (url)
            {
                case Url.Message:
                    urlArgs.Result = XtraMessageBox.Show((string) urlContext, captionText, MessageBoxButtons.OK,
                                                         MessageBoxIcon.Information, MessageBoxDefaultButton.Button1);
                    callback(this, urlArgs);
                    return;
                case Url.Message_Error:
                    urlArgs.Result = XtraMessageBox.Show((string) urlContext, captionText, MessageBoxButtons.OK,
                                                         MessageBoxIcon.Error, MessageBoxDefaultButton.Button1);
                    callback(this, urlArgs);
                    return;
                case Url.Message_Question:
                    urlArgs.Result = XtraMessageBox.Show((string) urlContext, captionText, MessageBoxButtons.OKCancel,
                                                         MessageBoxIcon.Question, MessageBoxDefaultButton.Button2);
                    callback(this, urlArgs);
                    return;
            }
 
     // дальше идет уже ручная разборка Url
            Человек изобрел своего диспетчера контролов внутри формы. Вместо специфических методов вызывающий формирует строку вида
"command.subcommand.parameter1.parameter  2", передается диспетчеру а он уже парсит это обратно.
К примеру "prefix.persons.view.23.all" означает что нужно создать юзер контрол PersonDetail для персоны с id 23 и показать все опции. Но можно передать и "message" тогда покажется messagebox. Все это происходит внутри одного UI модуля, и все классы internal. более того, этих usercontrols всего 4 разных и все это говно можно заменить на 4 метода с парой параметров в каждом. Но там было бы слишком просто и легко отслеживать что откуда вызывается. А в случае единственного метода ProcessUrl (который не url :) ) все гораздо веселее.
        
+111
if Z = 'Pr'
    then
      case N of
      1: Series1.Assign(Series33);
      2: Series2.Assign(Series33);
      3: Series3.Assign(Series33);
      4: Series4.Assign(Series33);
      5: Series5.Assign(Series33);
      end
    else
      if Z = 'ST'
        then
          case N of
          1: case Kolvo_Issledovanii of
            1: Series6.Assign(Series33);
            2: Series34.Assign(Series33);
            3: Series59.Assign(Series33);
            end;
//пропущено 15 строк 
          5: case Kolvo_Issledovanii of
            1: Series10.Assign(Series33);
            2: Series38.Assign(Series33);
            3: Series63.Assign(Series33);
            end;
          end
        else
          if Z = 'TT'
            then
              case N of
              1:
                case Kolvo_Issledovanii of
                1: Series11.Assign(Series33);
                2: Series39.Assign(Series33);
                3: Series64.Assign(Series33);
                end;
//в том же духе, ещё 150 строк
//вообще-то, в том же духе - весь код, около 5000 строк
//...
//в другом месте:
  Series1.Clear;
  Series2.Clear;
  Series3.Clear;
  Series4.Clear;
//пропущено 75 строк
  Series80.Clear;
  Series81.Clear;
  Series82.Clear;
  Series83.Clear;
//...
  Series1.Active:=false;
  Series2.Active:=false;
  Series3.Active:=false;
  Series4.Active:=false;
//пропущено 75 строк
  Series80.Active:=false;
  Series81.Active:=false;
  Series82.Active:=false;
  Series83.Active:=false;
            Фтопку ООП!
Такой вот диплом был сдан кем-то в прошлом году.
        
+111
IExecuteResult result = null;
            string sql = "";
            sql = sql + "SELECT t.TitleID, t.TitleName, t.IsActive, t.CreatedBy, t.ModifiedBy, t.DateCreated, t.DateModified FROM tluTitles t ORDER BY t.TitleName";
            SQLiteConnection cn = new SQLiteConnection(MainClass.strConn);
            cn.Open();
            SQLiteCommand cmd = new SQLiteCommand(sql, cn);
            cmd.ExecuteNonQuery();
            cmd.Dispose();
            cn.Close();
            return ((ISingleResult<usp_Title_All_SELResult>)(result.ReturnValue));израиль жжот!! чел переносил проект с mssql на sqlite и фиксил вызов стор процедур в файле дизайнера linq2sql.. я плаччууууу! =))))