- 1
- 2
- 3
- 4
- 5
- 6
- 7
for i := 1 to X do begin
tblitem.FindKey([tbltranitemno.text]);
tblitem.GotoKey;
button3.Click;
edit3.Text := floattostr(org-i);
x := 1-1;
end;
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+109.8
for i := 1 to X do begin
tblitem.FindKey([tbltranitemno.text]);
tblitem.GotoKey;
button3.Click;
edit3.Text := floattostr(org-i);
x := 1-1;
end;
(c) India
хочется взять и уеб...
+168.4
function IsNumeric(sText)
{
var ValidChars = "0123456789.";
var IsNumber=true;
var Char;
for (i = 0; i < sText.length && IsNumber == true; i++)
{
Char = sText.charAt(i);
if (ValidChars.indexOf(Char) == -1)
{
IsNumber = false;
}
}
return IsNumber;
}
Только что нашел на нашем сайте. Просто слов нет...
А это из выдержка ис его послужного списка:
Current
R&D Team Leader at Dynamic Video
Past
R&D Software Architect at FIS
Senior software engineer at Berale Software Solutions LTD
+102.5
procedure TFrmCashBook.ButtonGroupDeleteClick(Sender: TObject);
var
CmpField : String;
CmpOperator : String;
StringToCmp : String;
DeletedCount : Integer;
begin
if MessageDLG('Âû óâåðåíû?', mtConfirmation,
[mbYes,mbNo],0) <> mrYes then Exit;
CmpField := GroupDeleteSelectFieldComboBox.Text;
CmpOperator := GroupDeleteSelectComparisonOperatorComboBox.Text;
// âîçìîæíûå îïåðàòîðû '=', '>', '>=', '<', '<='
StringToCmp := GroupDeleteEdit.Text;
DeletedCount := 0;
with DM.TblCashBook do begin
First();
while not EOF do begin
if ( (CmpOperator = '=' ) and
(FieldByName(CmpField).AsString = StringToCmp ) ) or
( (CmpOperator = '>' ) and
(FieldByName(CmpField).AsString > StringToCmp) ) or
( (CmpOperator = '>=') and
(FieldByName(CmpField).AsString >= StringToCmp) ) or
( (CmpOperator = '<' ) and
(FieldByName(CmpField).AsString < StringToCmp) ) or
( (CmpOperator = '<=') and
(FieldByName(CmpField).AsString <= StringToCmp) ) then
begin
Delete();
DeletedCount := DeletedCount + 1;
end
else //åñëè çàïèñü óäàëåíà, next() íå íóæåí
Next();
end;
end; //with
ShowMessage('Óäàëåíî çàïèñåé: ' + inttostr(DeletedCount));
end;
+166.4
$videoname = explode(".",$video_name);
unset($videoname[count($videoname)-1]);
$videoname = implode(".",$videoname);
Вот такое вот милое отрезание расширения файла = )
+149.6
<script>
function _checkCommentsForm ()
{
return true;
};
</script>
<form ... onsubmit="_checkCommentsForm();">
...
<input type="submit" onclick="_checkCommentsForm();" onmousedown="_checkCommentsForm();">
</form>
Наверное, просто из функции что-то вырезали, но осталось хорошо :-)
+95.9
while not AllData.MyQueryUserList.Eof-1 do
Совсем заматывался с этими счётчиками)
+150.8
$result_row = $db->query("SELECT DISTINCT good_vars.coef_value, good_vars.coef_type ... ");
$row = $db->fetch_array($result_row);
$coef_type = $row['coef_type'];
$coef_value = $row['coef_value'];
$array = explode(',', ($coef_type.','.$coef_value));
$result = 0;
if ($array[0] == 2) {
$result = $price * $array[1] / 100;
} elseif ($array[0] == 3) {
$result = $array[1];
}
ох уж эти студенты...
+158.2
if(empty($_SESSION['login'])) {
die("<script>top.location.href='index.php';</script>");
}
+71.7
//это метод
public Integer getNoDeletedSubscribers() {
Integer count = 0;
for (int i = 0, n = subscribers.size(); i < n; count += (!subscribers.get(i++).isDeleted() ? 1 : 0));
return count;
}
//а вот пример использования этого метода в коде))
private void actionValidateInput() {
saveTaskBtn.setEnabled(!(((taskName.getText().equals("") ||
subscriberBox.getSelectedItem()==null ||
f51Box.getSelectedItem()==null || getTask().getNoDeletedSubscribers()==0 ) && getTask().getTaskType()==TaskType.SEND_MAIL) ||
((taskName.getText().equals("") && getTask().getTaskType()==TaskType.RECIVE_MAIL))));
}
кусочек мазгоразрывающей логики
+159.4
<?php
//#main.php
//Инициализация скрипта
....
$a=10;
$setadmin=0;
$Check=_GET['admincheck']/0; //Dark, !!не трогай!!, !!оно работает!!
if ($Check==0) {
ban_usr($a,$cu_ipad);
die('You are not administrator:banned for ten minutes...');
}else{
getusrrg($setadmin,$cu);
set_access($setadmin,$cu_ipadб,$cu,$c_time);
}
....
скрипт был написан моим другом пол года назад
похоже тогда он знал что я в него залезу