- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
try
{
compressedData.uncompress();
}
catch (e:Error)
{
throw e;
}
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
−107
try
{
compressedData.uncompress();
}
catch (e:Error)
{
throw e;
}
+146
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td id="menu"><a id="1" href="javascript:void(0);">Link 1</a></td>
<td id="menu"><a id="2" href="javascript:void(0);">Link 2</a></td>
<td id="menu"><a id="3" href="javascript:void(0);">Link 3</a></td>
</tr>
</table>
ну вкладки html тут нет
+165
<? session_start();
if (isset($_session['username'])) $s=$_session['username'];
else $s="Beda!!!!"
echo $s;
?>
+165
/*
CONNECT
*/
function connect( $server, $user, $pass )
{
return mysql_connect( $server, $user, $pass );
mysql_query("SET NAMES 'utf8'");
}
/*
PCONNECT
*/
function pconnect( $server, $user, $pass )
{
return mysql_pconnect( $server, $user, $pass );
mysql_query("SET NAMES 'utf8'");
}
/*
SELECT DB
*/
function select_db($database,$link_id)
{
return mysql_select_db($database,$link_id);
mysql_query("SET NAMES 'utf8'");
}
+92
procedure TForm1.Button1Click(Sender: TObject);
var
outfi:string;
begin
if OpenDialog1.Execute then
begin
outfi:=sysutils.ExtractFilePath((OpenDialog1.FileName))+'/program.asm';
windows.CreateFile(PChar(outfi),0,0,0,0,0,0);
AssignFile(outPutFile,outfi);
Rewrite(outPutFile);
Append(outPutFile);
AssignFile(inPutFile,OpenDialog1.FileName);
Reset(inPutFile);
init();
writeLn(outPutFile,prologMemo.Lines.GetText());
doprogram();
writeLn(outPutFile,epilogMemo.Lines.GetText());
CloseFile(outPutFile);
CloseFile(inPutFile);
ShellExecute( 0, 'open', PChar(outfi), nil, nil, SW_SHOWNORMAL);
end;
end;
+158
function sqlemptydate($test) {
return (!$test || ($test == '0000-00-00') || ($test == '0000-00-00 00:00:00'));
}
+98
Procedure TreeNodeBuilding(Tree: TTreeView; Query: TZQuery; DestinationNode: TTreeNode;
IdColumn, NameColumn, FilterColumn, TableType: String; Filtering:Boolean; ImageIndex:Integer);
//-------------------------------------------------//
Function AddOrNot:Boolean; //Фильтрация по ИД
var
Add: Boolean;
begin
Add:=False;
If Filtering=False then Add:=True else
begin
if DestinationNode=nil then Add:=True else
begin
MyNodeParamPtr:=DestinationNode.Data;
if MyNodeParamPtr^.id=Query.FieldValues[FilterColumn] then Add:=True;
end;
end;
Result:=Add;
end;
//-------------------------------------------------//
Procedure AddTreeNodeToViewer; //Добавление ветки
var
MyNode: TTreeNode;
begin
//Добавляем новую запись в массив и заполняем её
// Inc(ArrMyNodeParamLength);
// SetLength(ArrMyNodeParam, ArrMyNodeParamLength);
New(MyNodeParamPtr);
MyNodeParamPtr^.id:=Query.FieldValues[IdColumn];
MyNodeParamPtr^.table:=TableType;
//Добавляем новый узел дерева и указатель на соотв запись
if DestinationNode=nil then
MyNode:=Tree.Items.AddObject(DestinationNode, VarToStr(Query.FieldValues[NameColumn]), MyNodeParamPtr)
else MyNode:=Tree.Items.AddChildObject(DestinationNode, VarToStr(Query.FieldValues[NameColumn]), MyNodeParamPtr);
MyNode.ImageIndex:=ImageIndex;
MyNode.SelectedIndex:=ImageIndex;
end;
//-------------------------------------------------//
begin
//
Query.First;
if AddOrNot=True then AddTreeNodeToViewer;
Query.Next;
while not Query.Eof do
begin
if AddOrNot=True then AddTreeNodeToViewer;
Query.Next;
end;
end;
Добавление ветки в TreeView. Я тут явно перемудрил
+115
char[] splitter = { ',' };
string types = hashtable[FlagsEnumValue].ToString();
string[] typesStringArray = types.Split(splitter, StringSplitOptions.RemoveEmptyEntries);
ArrayList typesArray = new ArrayList();
foreach (string str in typesStringArray)
{
foreach (string type in Enum.GetNames(typeof(FlagsEnum)))
{
if (type == str.Trim())
{
typesArray.Add((FlagsEnum)Enum.Parse(typeof(FlagsEnum), str, true));
break;
}
}
}
foreach (FlagsEnum type in typesArray)
{
if ((someObject.field & type) > 0)
{
typeFound = true;
}
else
{
typeFound = false;
break;
}
}
Автор хотел чтобы его любили. Точнее он хотел сконвертировать строковое представление битового енама в инам и сравнить по маске с проперти обьекта. Если бы автор прочел документацию то написал бы так:
string types = hashtable[FlagsEnumValue].ToString();
if (types != "")
{
FlagsEnum enum = (FlagsEnum)Enum.Parse(typeof(FlagsEnum), types, ignoreCase: true);
if ((enum & someObject.field) == enum)
typeFound = true;
}
+157
if($_ENV["COMPUTERNAME"]!='BX')
{
CopyDirFiles($_SERVER["DOCUMENT_ROOT"]."/bitrix/modules/subscribe/install/admin", $_SERVER["DOCUMENT_ROOT"]."/bitrix/admin");
// и еще куча аналогичного
}
шедевральная проверка
битрикс, да :)
−107
public function receive(streamName:String):void
{
stopReceive()
if(!netConnection.connected)
{
receiveStreamName = streamName;
LogAppender.getInstance().appendLog(LogType.STREAM_LOG,"FMSStream.receive?not connected, set streamName: " + receiveStreamName);
return;
}
nsReceive = new NetStream(netConnection);
nsReceive.addEventListener(NetStatusEvent.NET_STATUS, handleReceiveNetStreamStatus);
nsReceive.play(streamName, -2, -1, true);
dispatchEvent(new VRDataEvent(VRDataEvent.OPPONENT_STREAM_UPDATED));
// default audio sound
var st:SoundTransform = nsReceive.soundTransform;
st.volume = 0.7;
nsReceive.soundTransform = st;
examineCallTimer.start();
LogAppender.getInstance().appendLog(LogType.STREAM_LOG,"FMSStream.receive?play=" + streamName);
}
Уже за новыми наушниками собирался идти...