- 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.. я плаччууууу! =))))