- 1
- 2
- 3
- 4
- 5
/**
* Some UI hacks for JRuby Facet
*/
public class NiiChAVOUtil {
}
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+74
/**
* Some UI hacks for JRuby Facet
*/
public class NiiChAVOUtil {
}
Слова лишнии
+133
string parser(string chto, string chem)
{
int dlina = chem.Length;
int kol = chto.Length;
string ret = null;
int shet = 0;
int r = 0;
int nom = 0;
for (int i = 0; i < kol; i++)
{
if (chto[i] == chem[0] && shet == 0)
{
for (int j = i; j < dlina + i; j++)
{
if (chto[j] == chem[r])
{
r++;
shet++;
nom = j;
}
}
if (shet != dlina)
{
shet = 0;
r = 0;
nom = 0;
}
}
}
int schet = nom + 3;
while (chto[schet] != '<')
{
ret += chto[schet];
schet++;
}
return ret;
}
Функция для парсинга подстроки
+156
if ((int)($basket->summ/1000) > 999)
{
$price_all = substr_replace($basket->summ," ",1,0);
$price_all = substr_replace($price_all," ",5,0);
}
elseif ((int)($basket->summ/1000) > 99)
{
$price_all = substr_replace($basket->summ," ",3,0);
}
elseif ((int)($basket->summ/1000) > 9)
{
$price_all = substr_replace($basket->summ," ",2,0);
}
elseif ((int)($basket->summ/1000) < 9 && (int)($basket->summ/1000) > 0)
{
$price_all = substr_replace($basket->summ," ",1,0);
}
elseif ((int)($basket->summ/1000) == 0)
{
$price_all = $basket->summ;
}
Вот так вот у нас на офисе коллега форматировал цену...
+91
for li:=LL-2 downto 1 do
begin
ag:=ml_(a[li], m_(gen(len(a[li]), 1, 1), a[li]) );
cp(
b[li],
ml_(
ml(
t(W[li]),
from2(b[li+1], li <> LL-2)
)
,
ag
)
);
end;
Функциональное программирование в императивном стиле.
+92
type
TForm1 = class(TForm)
Button1: TButton;
Button3: TButton;
ListBox1: TListBox;
Button2: TButton;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
TListThread = class(TThread)
protected
procedure Execute; override;
end;
TMyThread = class(TThread)
protected
procedure Execute; override;
end;
TYouThread = class(TThread)
protected
procedure Execute; override;
end;
var
Form1: TForm1;
threadList1: TThreadList;
mythreadRunning, youthreadRunning, listThreadRunning: Boolean;
globalCount: Integer;
listProcess: TListThread; { TListThread is a custom descendant of TThread. }
secondProcess: TMyThread; { TMyThread is a custom descendant of TThread. }
otherSecondProcess: TYouThread; { TMyThread is a custom descendant of TThread. }
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if (mythreadRunning = FALSE) then
begin
mythreadRunning:= TRUE;
secondProcess := TMyThread.Create(True); { Create suspended--secondProcess does not run yet. }
secondProcess.FreeOnTerminate := True; { You do not need to clean up after termination. }
secondProcess.Priority := tpLower; // Set the priority to lower than normal.
secondProcess.Resume; { Now run the thread. }
end
else
MessageDlg('This thread is still running. You are going to hurt yourself!',
mtInformation, [mbOk], 0);
end;
procedure TMyThread.Execute;
var
I: Integer;
myRadio: TRadioButton;
begin
for I := 0 to 20 do
begin
if (Terminated) then
begin
mythreadRunning:= FALSE;
exit;
end;
myRadio:= TRadioButton.Create(Form1);
globalCount:= globalCount + 1;
myRadio.Name:= 'RadioButton' + IntToStr(globalCount);
threadList1.Add(myRadio);
Sleep(1000);
end;
mythreadRunning:= FALSE;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if (listthreadRunning = FALSE) then
begin
listThreadRunning:= TRUE;
listProcess := TListThread.Create(True); { Create suspended--secondProcess does not run yet. }
listProcess.FreeOnTerminate := True; { You do not need to clean up after termination. }
listProcess.Priority := tpLower; // Set the priority to lower than normal.
listProcess.Resume; { Now run the thread. }
end;
end;
procedure TListThread.Execute;
var
I: Integer;
Temp: TControl;
myList: TList;
begin
while(True) do
begin
http://docwiki.embarcadero.com/CodeExamples/XE5/en/TThreadList_%28Delphi%29
Беда, когда примеры пишут психически неполноценные люди. Самое ужасное то, что этот "пример" висит на сайте embarcadero.
+84
type
TSearchF = class(TThread)
private
protected
procedure Execute; override;
public
Str: String; // думаю назначение обоих
Pause: Boolean; // параметров объяснять не надо
end;
и
Код:
procedure TSearchF.Execute;
begin
while not Terminated do
begin
if(Pause) then
begin
Sleep(10);
end else
begin
FindFile(Str);
end;
end;
end;
http://www.programmersforum.ru/showthread.php?t=91543
Без комментариев.
+83
try {
progress.dismiss();
progress = null;
progress.dismiss();
} catch (Exception e) {
Log.e("error", e.getMessage() + " " + e.getCause());
}
+128
http://www.linkedin.com/reg/webmail-invite-v2?goback=%2Enpv_107866884_*1_*1_name_3B*5x_*1_*1_*1_193888328*4I417532095*4190_*1_*1_*1_*1_*1_*1_*1_*1_*1_*1_*1_*1_*1_*1_*1_*1_*1_*1_*1_*1_*1_*1_*1_*1_*1_eml*5comm*4invm*5b*5profile*5newinvite_*1%2Efiie_*1_gmail_*1_*1_*1_*1_*1_*1&origin=gmail&flow=1qbwqgl-u8y0iy
красивый урл от linkedin
+159
https://software.intel.com/sites/billboard/article/simd-javascript-faster-html5-apps
Почему нужно выбрать самый говенный язык, и усиленно добавлять в него фичи, с которыми он все равно не может нормально работать? :( Просто пиздец какой-то.
+157
while($row = $this->_db->fetchRow($qry)){
$module_name = stripslashes($row["module_name"]);
$permisos = array();
$permisos["A"]=(($row["permission_value"] & 1)==1)?1:0;
$permisos["E"]=(($row["permission_value"] & 2)==2)?1:0;
$permisos["D"]=(($row["permission_value"] & 4)==4)?1:0;
$permisos["L"]=(($row["permission_value"] & 8)==8)?1:0;
$permisos["W"]=(($row["permission_value"] & 16)==16)?1:0;
$permisos["V"]=(($row["permission_value"] & 32)==32)?1:0;
$access_array[$module_name]=$permisos;
}
Испанский ACL