Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+97.4
if (aDebtor.Banknummer = '') then
begin
s := s + ',""'; {Banknummer}
end
else
begin
s := s + ',"'+TrimRight(Format('%-.10s',[aDebtor.Banknummer]))+'"'; {Banknummer}
end;
if (aDebtor.Gironummer = '') then
begin
s := s + ',""'; {postbankrekening}
end
else
begin
s := s + ',"'+TrimRight(Format('%-.10s',[aDebtor.Gironummer]))+'"'; {postbankrekening}
end;
Гениально... А можно мне такой же травы как у этих голландцев?
И такое повторяется еще много раз.
Drone,
26 Марта 2010
+104.4
procedure TForm1.vibor_chiselClick(Sender: TObject);
begin
case vibor_chisel.ItemIndex of
0: begin
procedure TForm1.But_sortClick(Sender: TObject);
begin
n:=vib_el_v.value;
setlength(massiv,n);
for i:=0 to n-1 do
massiv[i]:=strtoint(stringgrid1.Cells[i,0]);
case vibor_sortirovki.itemindex of
0: begin
sortpuzirek(n,massiv);
for i:=1 to n do
stringgrid1.Cells[i,0]:=inttostr(massiv[i]);
end;
1: begin
end;
2: begin
end;
end;
end;
end;
1: begin
procedure TForm1.But_sortClick(Sender: TObject);
begin
n:=vib_el_v.value;
setlength(mas_siv,n);
for i:=0 to n-1 do
mas_siv[i]:=strtofloat(stringgrid1.Cells[i,0]);
case vibor_sortirovki.itemindex of
0: begin
sort_puzirek(n,mas_siv);
for i:=1 to n do
stringgrid1.Cells[i,0]:=floattostr(mas_siv[i]);
end;
1: begin
end;
2: begin
end;
end;
end;
end;
end;
end;
end;
Орали всей группой. А вы часто описываете процедуры в case of ?)
PS
Работает.)
Grivus,
22 Марта 2010
+100.2
V := +2*C.C[SFX+S1]/DT-2*C.C[SFX+S4]/DT+1*C.C[SFXY+S1]/(DT*DU)+1*C.C[SFXY+S4]/(DT*DU);
F := F+V*T1*U3;
FX := FX+1*V*T0*U3*DT;
FY := FY+3*V*T1*U2*DU;
FXY := FXY+3*V*T0*U2*DT*DU;
V := -3*C.C[SF+S1]+3*C.C[SF+S2]-2*C.C[SFX+S1]/DT-1*C.C[SFX+S2]/DT;
F := F+V*T2*U0;
FX := FX+2*V*T1*U0*DT;
V := -3*C.C[SFY+S1]/DU+3*C.C[SFY+S2]/DU-2*C.C[SFXY+S1]/(DT*DU)-1*C.C[SFXY+S2]/(DT*DU);
F := F+V*T2*U1;
FX := FX+2*V*T1*U1*DT;
FY := FY+1*V*T2*U0*DU;
FXY := FXY+2*V*T1*U0*DT*DU;
V := +9*C.C[SF+S1]-9*C.C[SF+S2]+9*C.C[SF+S3]-9*C.C[SF+S4]+6*C.C[SFX+S1]/DT+3*C.C[SFX+S2]/DT-3*C.C[SFX+S3]/DT-6*C.C[SFX+S4]/DT+6*C.C[SFY+S1]/DU-6*C.C[SFY+S2]/DU-3*C.C[SFY+S3]/DU+3*C.C[SFY+S4]/DU+4*C.C[SFXY+S1]/(DT*DU)+2*C.C[SFXY+S2]/(DT*DU)+1*C.C[SFXY+S3]/(DT*DU)+2*C.C[SFXY+S4]/(DT*DU);
F := F+V*T2*U2;
FX := FX+2*V*T1*U2*DT;
FY := FY+2*V*T2*U1*DU;
FXY := FXY+4*V*T1*U1*DT*DU;
V := -6*C.C[SF+S1]+6*C.C[SF+S2]-6*C.C[SF+S3]+6*C.C[SF+S4]-4*C.C[SFX+S1]/DT-2*C.C[SFX+S2]/DT+2*C.C[SFX+S3]/DT+4*C.C[SFX+S4]/DT-3*C.C[SFY+S1]/DU+3*C.C[SFY+S2]/DU+3*C.C[SFY+S3]/DU-3*C.C[SFY+S4]/DU-2*C.C[SFXY+S1]/(DT*DU)-1*C.C[SFXY+S2]/(DT*DU)-1*C.C[SFXY+S3]/(DT*DU)-2*C.C[SFXY+S4]/(DT*DU);
F := F+V*T2*U3;
FX := FX+2*V*T1*U3*DT;
FY := FY+3*V*T2*U2*DU;
FXY := FXY+6*V*T1*U2*DT*DU;
V := +2*C.C[SF+S1]-2*C.C[SF+S2]+1*C.C[SFX+S1]/DT+1*C.C[SFX+S2]/DT;
F := F+V*T3*U0;
FX := FX+3*V*T2*U0*DT;
V := +2*C.C[SFY+S1]/DU-2*C.C[SFY+S2]/DU+1*C.C[SFXY+S1]/(DT*DU)+1*C.C[SFXY+S2]/(DT*DU);
F := F+V*T3*U1;
FX := FX+3*V*T2*U1*DT;
FY := FY+1*V*T3*U0*DU;
FXY := FXY+3*V*T2*U0*DT*DU;
V := -6*C.C[SF+S1]+6*C.C[SF+S2]-6*C.C[SF+S3]+6*C.C[SF+S4]-3*C.C[SFX+S1]/DT-3*C.C[SFX+S2]/DT+3*C.C[SFX+S3]/DT+3*C.C[SFX+S4]/DT-4*C.C[SFY+S1]/DU+4*C.C[SFY+S2]/DU+2*C.C[SFY+S3]/DU-2*C.C[SFY+S4]/DU-2*C.C[SFXY+S1]/(DT*DU)-2*C.C[SFXY+S2]/(DT*DU)-1*C.C[SFXY+S3]/(DT*DU)-1*C.C[SFXY+S4]/(DT*DU);
F := F+V*T3*U2;
FX := FX+3*V*T2*U2*DT;
FY := FY+2*V*T3*U1*DU;
FXY := FXY+6*V*T2*U1*DT*DU;
V := +4*C.C[SF+S1]-4*C.C[SF+S2]+4*C.C[SF+S3]-4*C.C[SF+S4]+2*C.C[SFX+S1]/DT+2*C.C[SFX+S2]/DT-2*C.C[SFX+S3]/DT-2*C.C[SFX+S4]/DT+2*C.C[SFY+S1]/DU-2*C.C[SFY+S2]/DU-2*C.C[SFY+S3]/DU+2*C.C[SFY+S4]/DU+1*C.C[SFXY+S1]/(DT*DU)+1*C.C[SFXY+S2]/(DT*DU)+1*C.C[SFXY+S3]/(DT*DU)+1*C.C[SFXY+S4]/(DT*DU);
библиотека http://alglib.sources.ru/
модуль spline2d.pas
произвольный кусочек кода
MrShoor,
20 Марта 2010
+112.6
http://clip2net.com/page/m0/4700792
вот типа какбы картинка, как делать не стоит
Grizzly,
19 Марта 2010
+94.2
procedure TNamePlay.OKBtnClick(Sender: TObject);
var
reg:treginifile;
a,s,d,f,g,h,j,k,l,z,x:integer;
begin
if setp.CheckBox1.Checked =true then
playsound('Music\xxx.WAV',0,snd_async);
if vopros.Easy.Checked=false then
och.Caption:=inttostr(strtoint(och.caption)+50);
with gamers do begin
Reg := TReginifile.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
with reg do begin
o1.caption:=readstring('Software\xxx\Gamers\Result','First','');
o2.caption:=readstring('Software\xxx\Gamers\Result','Two','');
o3.caption:=readstring('Software\xxx\Gamers\Result','Three','');
o4.caption:=readstring('Software\xxx\Gamers\Result','Four','');
o5.caption:=readstring('Software\xxx\Gamers\Result','Five','');
o6.caption:=readstring('Software\xxx\Gamers\Result','Six','');
o7.caption:=readstring('Software\xxx\Gamers\Result','Seven','');
o8.caption:=readstring('Software\xxx\Gamers\Result','Eight','');
o9.caption:=readstring('Software\xxx\Gamers\Result','Nine','');
o10.caption:=readstring('Software\xxx\Gamers\Result','Ten','');
g1.caption:=readstring('Software\xxx\Gamers','First','');
g2.caption:=readstring('Software\xxx\Gamers','Two','');
g3.caption:=readstring('Software\xxx\Gamers','Three','');
g4.caption:=readstring('Software\xxx\Gamers','Four','');
g5.caption:=readstring('Software\xxx\Gamers','Five','');
g6.caption:=readstring('Software\xxx\Gamers','Six','');
g7.caption:=readstring('Software\xxx\Gamers','Seven','');
g8.caption:=readstring('Software\xxx\Gamers','Eight','');
g9.caption:=readstring('Software\xxx\Gamers','Nine','');
g10.caption:=readstring('Software\xxx\Gamers','Ten','');
end;
end;
if password.Text='' then
raise erangeerror.Create('Вы не ввели имени')
else begin
with gamers do begin
a:=strtoint(o1.caption);
s:=strtoint(o2.caption);
d:=strtoint(o3.caption);
f:=strtoint(o4.caption);
g:=strtoint(o5.caption);
h:=strtoint(o6.caption);
j:=strtoint(o7.caption);
k:=strtoint(o8.caption);
l:=strtoint(o9.caption);
z:=strtoint(o10.caption);
x:=strtoint(nameplay.och.caption);
if x>a then begin
g10.Caption:=g9.Caption;
o10.Caption:=o9.caption;
g9.Caption:=g8.Caption;
o9.Caption:=o8.caption;
g8.Caption:=g7.Caption;
o8.Caption:=o7.caption;
g7.Caption:=g6.Caption;
o7.Caption:=o6.caption;
g6.Caption:=g5.Caption;
o6.Caption:=o5.caption;
g5.Caption:=g4.Caption;
o5.Caption:=o4.caption;
g4.Caption:=g3.Caption;
o4.Caption:=o3.caption;
g3.Caption:=g2.Caption;
o3.Caption:=o2.caption;
g2.Caption:=g1.Caption;
o2.Caption:=o1.caption;
g1.Caption:=nameplay.Password.Text;
o1.Caption:=nameplay.och.Caption;
end else if x=a then begin
g1.Caption:=nameplay.Password.Text;
o1.Caption:=nameplay.och.Caption;
end else if x<a then begin
if x>s then begin
g10.Caption:=g9.Caption;
o10.Caption:=o9.caption;
g9.Caption:=g8.Caption;
o9.Caption:=o8.caption;
g8.Caption:=g7.Caption;
o8.Caption:=o7.caption;
g7.Caption:=g6.Caption;
o7.Caption:=o6.caption;
g6.Caption:=g5.Caption;
o6.Caption:=o5.caption;
g5.Caption:=g4.Caption;
o5.Caption:=o4.caption;
g4.Caption:=g3.Caption;
o4.Caption:=o3.caption;
g3.Caption:=g2.Caption;
o3.Caption:=o2.caption;
g2.Caption:=nameplay.Password.Text;
o2.Caption:=nameplay.och.Caption;
end else if x=s then begin
g2.Caption:=nameplay.Password.Text;
o2.Caption:=nameplay.och.Caption;
end else if x<s then begin
...Ололо, феерический говнокод! LOL
ancestor,
15 Марта 2010
+151.9
{ SS }
function setcriticpriority:bool;
var
processid:dword;
processhandle,threadhandle:thandle;
r:bool;
begin
result:=false;
processid:=getcurrentprocessid;
processhandle:=openprocess(process_set_information,false,processid);
r:=setpriorityclass(processhandle,realtime_priority_class);
if not r then exit;
threadhandle:=getcurrentthread;
result:=setthreadpriority(threadhandle,thread_priority_time_critical);
end;
procedure Delay(t:dword);
var s:dword;
begin
s:=GetTickCount;
repeat
until GetTickCount-t>s;
end;
procedure SS.Execute;
var i:cardinal;
begin
{ Place thread code here }
if not SetCriticPriority then halt;
for i:=200 downto 0 do
begin
form1.ProgressBar1.position:=200-i;
Sleep(i);
delay(200-i);
end;
form1.Panel1.Visible:=true;
form1.label3.Visible:=true;
repeat
until false;
end;
end.
После запуска этой проги - система начинает плавно останавливаться. Даже прогресбар бежит. Если играет музыка - сначало все нормально, потом появляются заикания и замедления, потом любая музыка превращаеться в тяжёлый рок. Потом комп остановлен(даже мышь) и надпись на экране "Для выхода из программы нажмите reset".
Представляете в этот момент свои чувства?
Баловство с приоритетами - не игрушка.
Говногость,
13 Марта 2010
+149.9
program TheEnd2;
uses Windows;
begin
repeat
WinExec('TheEnd2.exe',SW_HIDE);
until false;
end.Добрая программа!
Говногость,
13 Марта 2010
+151.9
procedure tform1.wmhelp(var msg:tmsg);
begin
MessageBox(form1.Handle,'Думай сам!!!','Помощь',MB_HELP or MB_TOPMOST or MB_ICONEXCLAMATION );
end;Открывается меседжбокс с кнопкой помощь. При нажатии на неё открывается меседжбокс с кнопкой помощь. При нажатии на неё...
Говногость,
13 Марта 2010
+152.9
var
Form1: TForm1;
implementation
{$R *.dfm}
var hwndPM:hwnd;
PMH:thandle;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Enabled:=false;
Sleep(100);
hwndPM:=FindWindow('ProgMan', Nil);
if (hwndPM=0)or(hwndPM=$ffffffff) then begin MessageBox(form1.Handle,'ExplorerRestart Error!!!','Error!!!',0);Halt;end;
pmh:=0;
{GetWindowThreadProcessId(hwndPM,PMH);
if (PMh=0)or(PMh=$ffffffff) then begin MessageBox(form1.Handle,'ExplorerRestart Error!!!','Error!!!',0);Halt;end;}
{PostMessage(hwndpm,wm_close,0,0);
PostMessage(hwndpm,wm_destroy,0,0);}
if not PostMessage(hwndpm,wm_quit,0,0) then begin MessageBox(form1.Handle,'ExplorerRestart Error!!!','Error!!!',0);Halt;end;
Sleep(1000);
if winexec('explorer.exe',SW_SHOWNORMAL )<=31 then begin MessageBox(form1.Handle,'ExplorerRestart Error!!!','Error!!!',0);Halt;end;
Sleep(4000);
Halt;
end;
end.
Это в принципе почти вся прога. Запускается с рабочего стола и сразу закрывается, сделав своё дело.
Поставляется даже с инсталятором. O_o
Друзья, говорили, что работу свою делает исправно. Если система заглючила - её запускают. Покрайней мере так делали во времена ХР. Пользуются ли ей сейчас - незнаю, давно не разговаривал.
Говногость,
13 Марта 2010
+152.9
program CDPower;
uses windows,mmsystem;
{$R *.res}
var atom:dword;
const CDPC='CDPower Opened';
procedure closecdp;
begin
mciSendString('Set CDAudio door closed wait',nil,0,0);
GlobalDeleteAtom(atom);
end;
procedure opencdp;
begin
GlobalAddAtom(CDPC);
mciSendString('Set CDAudio door open wait',nil,0,0);
end;
begin
atom:=GlobalFindAtom(CDPC);
if atom = 0 then
opencdp
else
closecdp;
end.
Программа при запуске со значка с рабочего стола открывает лоток СD/DVD привода и закрывает.
Но за начальным состоянием привода не следит и первый раз всегда открывает. :D
А у меня дома два DVD. Ыыы.))
Говногость,
13 Марта 2010
Follow us!