Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+113
//Удаляем последний символ из мемо :)
Procedure Button1Click(Sender : TObject);
Begin
// Some GovnoCode...
Memo1.Lines.SelLenght := Length(Memo1.Text) - 1;
Memo1.SelStart;
Memo1.CopyToClipboard;
Memo1.Clear;
Memo1.PasteFromClipboard;
// Some GovnoCode...
End;
end.Вот так, простенько и со вкусом, мы избавляется от последнего символа из Memo1.Text.
ZLOvar,
21 Апреля 2010
+110.2
function HexStrToint(S: String): Integer;
begin
if (s='$00000000') or (s='clBlack')then HexStrToint:=0
else
if s='$00010101' then HexStrToint:=1
else
if s='$00020202' then HexStrToint:=2
else
if s='$00030303' then HexStrToint:=3
else
if s='$00040404' then HexStrToint:=4
else
if s='$00050505' then HexStrToint:=5
else
if s='$00060606' then HexStrToint:=6
else
if s='$00070707' then HexStrToint:=7
else
if s='$00080808' then result:=8
else
if s='$00090909' then result:=9
else
if s='$000A0A0A' then result:=10
else
if s='$000B0B0B' then result:=11
else
if s='$000C0C0C' then result:=12
else
if s='$000D0D0D' then result:=13
else
if s='$000E0E0E' then result:=14
else
if s='$000F0F0F' then result:=15
else
if s='$00101010' then result:=16
else
if s='$00111111' then result:=17
else
if s='$00121212' then result:=18
else
if s='$00131313' then result:=19
else
if s='$00141414' then result:=20
else
if s='$00151515' then result:=21
else
if s='$00161616' then result:=22
else
if s='$00171717' then result:=23
else
if s='$00181818' then result:=24
else
if s='$00191919' then result:=25
else
if s='$001A1A1A' then result:=26
else
if s='$001B1B1B' then result:=27
else
if s='$001C1C1C' then result:=28
else
if s='$001D1D1D' then result:=29
else
if s='$001E1E1E' then result:=30
else
if s='$001F1F1F' then result:=31
else
if s='$00202020' then result:=32
else
if s='$001D1D1D' then result:=33
else
if s='$00222222' then result:=34
else
if s='$00232323' then result:=35
else
if s='$00242424' then result:=36
else
if s='$00252525' then result:=37
else
if s='$00262626' then result:=38
else
if s='$00272727' then result:=39
else
if s='$00282828' then result:=40
else
if s='$00292929' then result:=41
else
if s='$002A2A2A' then result:=42
else
if s='$002B2B2B' then result:=43
else
if s='$002C2C2C' then result:=44
else
if s='$002D2D2D' then result:=45
else
if s='$002E2E2E' then result:=46
else
if s='$002F2F2F' then result:=47
else
if s='$00303030' then result:=48
else
Наткнулся на проявление "гениальности"
// про язык, на котором написано, вообще молчу
Это перевод хексов оттенков серого в числа (там до 255 включительно, но здесь не влезает)
Код, может, и сгенерирован, но все равно это говнокод ^_^
m08pvv,
11 Апреля 2010
+92
{Обнуление сумм}
sum1:=0;
sum2:=0;
sum3:=0;
sum4:=0;
sum5:=0;
sum6:=0;
sum7:=0.001;
sum8:=0.001;
giga1:=0;
giga2:=0;
sum9:=0;
sum10:=0;
sum11:=0;
sum12:=0;
sum13:=0;
sum14:=0;
sum15:=0;
sum16:=0;
for i:=0 to cnt do begin
sum1:=sum1+TNP[i]; sum2:=sum2+TNO[i]; //Подсчёт "Прямого" и "Обратного"
sum3:=sum3+TNP[i]-TNO[i]; //Подсчёт "Израсходовано воды"
sum4:=sum4+PAR[i]; //Подсчёт "Израсходовано пара"
sum5:=sum5+Tpar[i]; //Подсчёт "температуры пара"
sum6:=sum6+Ppar[i]; //Подсчёт "давления пара"
sum7:=sum7+Tprm[i]; //Подсчёт "температуры прямого"
sum8:=sum8+Tobr[i]; //Подсчёт "температуры обратного"
sum10:=sum10+Qvoz[i]; //Подсчёт "Израсходовано воздуха"
sum11:=sum11+Tvoz[i]; //Подсчёт "температуры воздуха"
sum12:=sum12+Pvoz[i]; //Подсчёт "давление воздуха"
sum13:=sum13+Qhzv[i]; //Подсчёт "Израсходовано хоз. воды"
sum14:=sum14+Qthv[i]; //Подсчёт "Израсходовано тех. воды"
sum15:=sum15+Thzv[i]; //Подсчёт "Температуры. хоз воды"
sum16:=sum16+Tthv[i]; //Подсчёт "Температуры. тех воды"
// giga1:= (sum1 * 1000) * (660 * 0.000001) / (sum7/sum8) ; // расчёт гигакалорий для отопления
// giga1:= (sum1 * 1000) * (660 * 0.000001); // расчёт гигакалорий для отопления
giga1:= (sum3 / 3.04); // расчёт гигакалорий для отопления
giga2:= (sum4 * 1000) * (660 * 0.000001); // расчёт гигакалорий для пара
end; end; end;
ka3ax,
10 Апреля 2010
+106.2
/////////////////////////// удаление спецсимволов
Prbl:=' ';
WS_h:=AnsiReplaceText(WS_h, Chr(13), Prbl);
WS_h:=AnsiReplaceText(WS_h, Chr(10), Prbl);
WS_h:=AnsiReplaceText(WS_h, ' ', Prbl);
WS_h:=AnsiReplaceText(WS_h, ' ', Prbl);
WS_h:=AnsiReplaceText(WS_h, ' ', Prbl);
WS_h:=AnsiReplaceText(WS_h, ' ', Prbl);
WS_h:=AnsiReplaceText(WS_h, ' ', Prbl);
WS_h:=AnsiReplaceText(WS_h, ' ', Prbl);
WS_h:=AnsiReplaceText(WS_h, ' ', Prbl);
WS_h:=AnsiReplaceText(WS_h, ' ', Prbl);
WS_h:=AnsiReplaceText(WS_h, ' ', Prbl);
WS_h:=AnsiReplaceText(WS_h, ' ', Prbl);
WS_h:=AnsiReplaceText(WS_h, ' ', Prbl);
/////////////////////////////////////////////////
WS_h:=AnsiReplaceText(WS_h, '<span class=SpellE>', '');
/////////////////////////// удаление спецсимволовКрасиво оформленный код - залог успеха!
Temnenkov,
09 Апреля 2010
+110
Function IsBigLet(Let: String): Boolean;
var r: bool;
begin
r:=false;
if pos('Й',Let)>0 then r:=true;
if pos('Ц',Let)>0 then r:=true;
if pos('У',Let)>0 then r:=true;
if pos('К',Let)>0 then r:=true;
if pos('Е',Let)>0 then r:=true;
if pos('Н',Let)>0 then r:=true;
if pos('Г',Let)>0 then r:=true;
if pos('Ш',Let)>0 then r:=true;
if pos('Щ',Let)>0 then r:=true;
if pos('З',Let)>0 then r:=true;
if pos('Х',Let)>0 then r:=true;
if pos('Ф',Let)>0 then r:=true;
if pos('Ы',Let)>0 then r:=true;
if pos('В',Let)>0 then r:=true;
if pos('А',Let)>0 then r:=true;
if pos('П',Let)>0 then r:=true;
if pos('Р',Let)>0 then r:=true;
if pos('О',Let)>0 then r:=true;
if pos('Л',Let)>0 then r:=true;
if pos('Д',Let)>0 then r:=true;
if pos('Ж',Let)>0 then r:=true;
if pos('Э',Let)>0 then r:=true;
if pos('Я',Let)>0 then r:=true;
if pos('Ч',Let)>0 then r:=true;
if pos('С',Let)>0 then r:=true;
if pos('М',Let)>0 then r:=true;
if pos('И',Let)>0 then r:=true;
if pos('Т',Let)>0 then r:=true;
if pos('Б',Let)>0 then r:=true;
if pos('Ю',Let)>0 then r:=true;
Result:=r;
end;Немножко индусского кода!
Temnenkov,
09 Апреля 2010
+82.6
if IntToStr(n) = '2' thenчудо-программисты, еклмн
timurrv,
07 Апреля 2010
+92.8
// Я приводить пример кода не буду, т.к. он давно исправлен и остался только в памяти и SVN-е,
// но вполне реальный человек захуячил такое:
// В событии OnPaint таблицы происходил запрос к БД, чтоб узнать, какой именно текст надо отрисовывать.
// Очень весело было изменять размеры формы и наблюдать, с какой скоростью увеличивается лог-файл xDDD
Arch,
07 Апреля 2010
+102
function TicksBetween(t1, t2 : dword) : dword;
begin
if t2 > t1
then Result:=t2 - t1 + 1
else Result:=dword(-1) - t1 + t2 + 1;
end;Никогда не пишите с бодуна!
whiskey,
01 Апреля 2010
+143.6
for i:=1 to 10000000 do
begin
{...}
if m=0 then break;
end;
kozzztya,
31 Марта 2010
+91.2
{ Длинная арифметика.
[0] - длина числа
[1..1000] - цифры в системе с основанием 10000, записанные в обратном порядке
}
type TLong = array[0..1000] of integer;
procedure Add(A,B:TLong;var C:TLong);
{Здесь идет процедура сложения в столбик - ничего интересного}
procedure MulByShort(A:TLong;B:integer;var C:TLong); {умножение длинного на короткое}
var i:integer;
begin
initByZero(C);{инициализация C нулями}
for i:=1 to B do Add(C,A,C);
end;Найдено в решении олимпиадной задачи на FreePascal. Обратите внимание на особо остроумный алгоритм умножения: надо же до такого додуматься. Также интересно, чем мотивирована передача массивов по значению.
frp,
28 Марта 2010
Follow us!