- 1
- 2
- 3
- 4
while (today.before(endTrial)) {
today.add(Calendar.DAY_OF_MONTH, 1);
daysBetween++;
}
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+83
while (today.before(endTrial)) {
today.add(Calendar.DAY_OF_MONTH, 1);
daysBetween++;
}
считаем разницу между двумя датами
+132
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
tmythread=class(tthread)
private
filename:string;
procedure execute;override;
public
constructor create(filename:string);
destructor destroy;
end;
type
TForm1 = class(TForm)
Button2: TButton;
Button3: TButton;
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
tlst:tthreadlist;
implementation
{$R *.dfm}
function getCount : integer;
begin
Result := tlst.LockList.Count;
tlst.UnlockList;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
tlst:=tthreadlist.Create;
end;
{ tmythread }
constructor tmythread.create(filename: string);
begin
self.FreeOnTerminate:=true;
self.filename:=filename;
inherited create(true);
self.Priority:=tphigher;
self.Resume;
tlst.LockList.Add(self);
tlst.UnlockList;
end;
destructor tmythread.destroy;
begin
tlst.Remove(self);
tlst.UnlockList;
end;
procedure tmythread.execute;
begin
while not terminated do
sleep(100); // в качестве примера, чем-то нагружаем цикл.
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
n:string;
temp:tmythread;
s:string;
begin
try
for i:=0 to getcount-1 do
begin
temp:=tlst.LockList.Items[i]; // вот это место. Как Вам кажется, это правильно, или не?
if assigned(temp) then
n:=temp.filename;
if n='ololo' then // это просто пример, не смеемся) АХАХАХАХ )
begin
showmessage('Сканирование этого файла уже выполняется') ;
exit;
end;
end;
tmythread.create('ololo');
except
end;
end;
end.
Стоит задача сканировать файлы в разных потоках. Как Вам кажется, это адекватное решение?
Код полностью.
−169
// Функция возвращает округленное значение общего количества продуктов питания.
//
// Параметры:
// Число - число, которое необходимо округлить.
// Порядок - число, порядок округления.
Функция УППБУ_Округлить(Число, ПорядокОкругления) Экспорт
Порядок = Число(Строка(ПорядокОкругления));
..........
КонецФункции
Тиражное решение от одного из партнеров...
+124
var
Form1: TForm1;
tlst:tthreadlist;
implementation
{$R *.dfm}
function getCount : integer;
begin
Result := tlst.LockList.Count;
tlst.UnlockList;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
tlst:=tthreadlist.Create;
end;
{ tmythread }
constructor tmythread.create(filename: string);
begin
self.FreeOnTerminate:=true;
self.filename:=filename;
inherited create(true);
self.Priority:=tphigher;
self.Resume;
tlst.LockList.Add(self);
tlst.UnlockList;
end;
destructor tmythread.destroy;
begin
tlst.Remove(self);
tlst.UnlockList;
end;
procedure tmythread.execute;
begin
while not terminated do
sleep(100); // в качестве примера, чем-то нагружаем цикл.
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
n:string;
temp:tmythread;
s:string;
begin
for i:=0 to getcount-1 do
begin
temp:=tlst.LockList.Items[i]; // вот это место. Как Вам кажется, это правильно, или не?
if assigned(temp) then
n:=temp.filename;
if n='ololo' then // это просто пример, не смеемся) АХАХАХАХ )
begin
showmessage('Сканирование этого файла уже выполняется') ;
exit;
end;
end;
tmythread.create('ololo');
end;
end.
Стоит задача сканировать файлы в разных потоках. Как Вам кажется, это адекватное решение?
+21
#include <iostream>
using namespace std;
int main() {
for(int i = 0; i<((cout<<'c'), 5); ((cout<<'i'), ++i)) cout<<"b";
cout<<endl;
return 0;
}
38 летний программист справа написал зачем-то такой код и сказал, что проверяет себя.
http://ideone.com/zg6SFB
+10
... std::bind(&decltype(x)::bar, foo, _1);
... std::bind(&decltype(*foo.operator->())::bar, foo.operator->(), _1);
С сайта, имя которого можно не называть.
+69
static {
Unsafe u = null;
Exception ex = null;
try {
Class objectStreamClass = Class.forName("sun.misc.Unsafe");
Field unsafeField = objectStreamClass.getDeclaredField("theUnsafe");
unsafeField.setAccessible(true);
u = (Unsafe) unsafeField.get(null);
} catch (ClassNotFoundException e) {
ex = e;
} catch (SecurityException e) {
ex = e;
} catch (NoSuchFieldException e) {
ex = e;
} catch (IllegalArgumentException e) {
ex = e;
} catch (IllegalAccessException e) {
ex = e;
}
exception = ex;
unsafe = u;
}
xstream-1.2.2 - древнота, но попахивает...
+153
/**
* you known..
* here you find great music: http://www.youtube.com/watch?v=0lTKErnmmoA
*
* good, yeah? :)
*
*/
$controller = self::call($controllerName);
$controller->preLoad();
$controller->runBefore();
+136
protected Boolean GetStatus(VinRequestStatusId statusId, Int16 id)
{
if(statusId == VinRequestStatusId.CarDataNeeded && id == 0)
return true;
if(statusId == VinRequestStatusId.WaitingClientAnswer && id == 1)
return true;
return false;
}
Разработчику гуя лень было лезть в DAL. Наложил прямо на форме.
+25
while(_right=_right->_right)
delete _right;
All right.