Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
Всего: 162
+141
function TForm1.Pars(T_, ForS, _T: string): string;
var a, b:integer;
begin
Result := '';
if (T_='') or (ForS='') or (_T='') then Exit;
a:=Pos(T_, ForS);
if a=0 then Exit else a:=a+Length(T_);
ForS:=Copy(ForS, a, Length(ForS)-a+1);
b:=Pos(_T, ForS);
if b>0 then
Result:=Copy(ForS, 1, b - 1);
end;
Давно хотел выложить эту дуру на форум.
В чем лажа? Я подозреваю, что перегруженный оператор '=' применительно к строкам (сравнение двух строк) это вызов lstrcmp.
следовательно, POS ЧУВСТВИТЕЛЬНА к регистру!! Это значит, что функция вернет фалс, сравнивая ВоТ эТО и вот это.
Но это полбеды. Иные горемыки передают ей километровый текст в качестве шаблона - это нормально.
И потом еще кто то наивно удивляется, почему функция пропускает нужное или хватает лишнее.
Stertor,
26 Июня 2013
+122
Привет, посетите наш сайт [color=red]yadelphi.ru[/color]!
Stertor,
25 Июня 2013
+126
Здравствуй, анон. Хочу представить тебе свой взглад на этот сайт.
Первое время здесь выкладывались действительно годные
говнокоды с двачей и других имиджборд, но теперь каждый
желающий может написать что-то свое.
Иногда это, сука, раздражает. Не всем всегда охота слушать
сопливое нытье прыщавого нью хикке о том или другом языке,
например. Как отличить, годный говнокод или нет? Ответ прост.
Имхо, каждый говнокод с порядковым номером
больше 1500 чаще всего оказывается калом фекалоида.
Я могу объяснить это тем, что вначале здесь сидели вполне
себе адекватные ребята, но вот, и на этот сайт перекинулась
раковая клетка. Новые говнокоды читать просто неинтересно.
Пожалуйста, анон, читай действительно годные говнокоды,
не забивай свою относительно чистую голову всяким дешевым бредом.
Не надо.
Stertor,
24 Июня 2013
+123
Судя по Вашим оценкам, образцы моего кода не так у ж и плохи. Это радует; но в таком случае, получается, что я ошибся форумом.
Если это действительно так, я спешу сменить амплуа г.кодера.
Непонаслышке зная, что бан тут получить практически нереально, я все таки сделаю отчаянную попытку:
Логин: [email protected]
Пароль: gcode116
Я желаю Вам всего самого наилучшего. С Вами было весело.
За сим, остаюсь, ваш Stertor. Списаться со мной можно по вышеуказанному адресу.
Stertor,
24 Июня 2013
−104
private sub RegistraciyaNaMeil.ru ()
У сайта http://govnokod.ru/ появился филиал!
vbbook.ru
Stertor,
23 Июня 2013
+127
function GetBiosNumber: string;
begin
result := string(pchar(ptr($FEC71)));
end;Windows NT поддерживает прерывания!!! А Вы знали?
Stertor,
23 Июня 2013
+128
// используемые переменные
var
Dummy: integer = 0;
OldKbHook: HHook = 0;
implementation
function KbHook(code: Integer; wparam: Word; lparam: LongInt): LongInt; stdcall;
begin
if code < 0 then
Result := CallNextHookEx(oldKbHook, code, wparam, lparam)
else
Result := 1;
end;
// включение клавы
procedure TForm1.KeyBoardOn(Sender: TObject);
begin
if OldKbHook <> 0 then
begin
UnHookWindowshookEx(OldKbHook);
OldKbHook := 0;
end;
SystemParametersInfo(SPI_SETFASTTASKSWITCH, 0, 0, 0);
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, 0, 0);
end;
// выключение клавы
procedure TForm1.KeyBoardOff(Sender: TObject);
begin
SystemParametersInfo(SPI_SETFASTTASKSWITCH, 1, @Dummy, 0);
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @Dummy, 0);
OldKbHook := SetWindowsHookEx(WH_KEYBOARD, @KbHook, HInstance, 0);
end;Попытка вырубить клаву, сев на нее.
Stertor,
23 Июня 2013
+127
Function DiskInDrive(ADriveLetter : Char) : Boolean;
var
SectorsPerCluster,
BytesPerSector,
NumberOfFreeClusters,
TotalNumberOfClusters : Cardinal;
begin
Result := GetDiskFreeSpace(PChar(ADriveLetter+':\'),
SectorsPerCluster,
BytesPerSector,
NumberOfFreeClusters,
TotalNumberOfClusters);
end;
// еще один шедевр:
var
SR : TSearchRec;
Res : integer;
OldErrMode : integer;
begin
// Запоминаем текущий режим обработки ошибок и устанавливаем SEM_FAILCRITICALERRORS
// Это необходимо для подавления появления окна с сообщение о том, что устройство не готово
OldErrMode = SetErrorMode(SEM_FAILCRITICALERRORS);
try
Res := FindFirst('a:\*.*', faAnyfile, SR);
FindClose(SR);
finally
SetErrorMode(OldErrMode)
end;
end;
С помощью этих процедур Олежик Зайцев на своем сайте предлагает определять доступность дисков, минуя сообщение WINDOWS "Диск не готов".
Без комментариев.
Stertor,
23 Июня 2013
+130
procedure TMyTr.Execute; // метод потока; эта процедура выполняется в отдельном потоке.
var
s,resp,ip,port:string;
cw,i:integer;
begin
http:=TIdHTTP.Create(nil);
cw:=getnumberproxy;
while cw<form1.Memo1.Lines.Count do
begin
s:=form1.Memo1.Lines[cw];
i := Pos(':',s);
IP := Copy(s,1,i-1);
PORT := Copy(s,i+1,Length(s));
try
http.ProxyParams.ProxyServer:=ip;
http.ProxyParams.ProxyPort:=StrToInt(port);
http.ReadTimeout:=Form1.SpinEdit2.Value*1000;
resp:=http.Get('http://ya.ru/');
if pos('ya.ru',resp)<>0 then
form1.Memo2.Lines.Add(ip+':'+port);
except
end;
cw:=getnumberproxy;
checked:=checked+1;
end;
http.Free;
end;Вот так живут Америка с Европой; что интересно, ни поток ни форма ни разу не заглючили.
Stertor,
23 Июня 2013
+129
function stringreplaceall(text, byt, mot: string): string;
var
plats: integer;
begin
while pos(byt, text) > 0 do
begin
plats := pos(byt, text);
delete(text, plats, Length(byt));
insert(mot, text, plats);
end;
Result := text;
end;Найди десять отличий с родной дельфийской StringReplace. (trollface)
Stertor,
23 Июня 2013
Follow us!