小编RBa*_*ung的帖子

德尔福=帕斯卡?学习资源?

好吧,我是Delphi的新手,一般都是离线编程(标准C++除外),并且最近获得了Delphi的副本,并且有兴趣从它开始.我在某处读到它使用Pascal但是我很困惑,如果它使用Pascal,就像它用它编程一样,或者如果它使用Pascal,就像你在其中编码的语言一样.不管怎样,我想知道是否有人有任何好的资源可以开始学习.在线书籍或文章/论坛都会很出色.这是一个整洁的小社区,所以我打算利用它.

delphi resources pascal

6
推荐指数
7
解决办法
3404
查看次数

电影调度_问题_

目前我正在阅读Skiena的"算法设计手册"(好了,开始阅读)

他问一个他称之为"电影调度问题"的问题:

问题:电影调度问题

输入:线上n个区间的集合I.

输出:可以从I中选择的相互非重叠区间的最大子集是什么?

示例:(每条虚线都是一部电影,您想要找到电影数量最多的一组)

                      ----a---
-----b----    -----c---    ---d---
        -----e---  -------f---
            --g--  --h--
Run Code Online (Sandbox Code Playgroud)

我想要解决它的算法是这样的:我可以抛出"最坏的罪犯"(与大多数其他电影相交),直到没有最严重的罪犯(零交叉点).我看到的唯一问题是,如果有一个平局(比如两部不同的电影,每部电影与其他3部电影相交),我扔出哪一部电影是否重要?

基本上我想知道我是如何将这个想法变成"数学"以及如何证明它是正确/不正确的.

algorithm schedule

6
推荐指数
1
解决办法
2791
查看次数

两个用户控件之间的交互

我快要疯了......

在我正在构建的应用程序中,我正在处理需要相互交互的两个动态添加的控件,但我已经将问题简化为一个简单的,因为我可以制作它的示例控件是静态加载的,它仍然存在同样的问题:调用委托时出现NullReferenceException.这是要点:

控制1

Partial Class Control1
Inherits System.Web.UI.UserControl

Private _delClicked As System.Delegate
Public WriteOnly Property UpdateLabel() As System.Delegate
    Set(ByVal value As System.Delegate)
        _delClicked = value
    End Set
End Property

Protected Sub btnButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnButton.Click
    Dim aObj(0) As Object
    aObj(0) = 1
    _delClicked.DynamicInvoke(aObj)
End Sub
End Class
Run Code Online (Sandbox Code Playgroud)

控制2

Partial Class Control2
Inherits System.Web.UI.UserControl

Protected WithEvents Control1 As New Control1
Delegate Sub ChangeLabel(ByVal int As Integer)

Protected Sub Page_Init(ByVal sender As Object, ByVal e As …
Run Code Online (Sandbox Code Playgroud)

vb.net asp.net user-controls delegates nullreferenceexception

5
推荐指数
1
解决办法
1186
查看次数

没有命名空间SQL2008的XQuery插入

<game xmlns="http://my.name.space" ></game>  
Run Code Online (Sandbox Code Playgroud)

这是我的根本要素.我编写了一个存储过程来插入元素.总结存储过程,这是SQL

UPDATE ChessGame SET GameHistory.modify('insert <move><player>black</player><piece>pawn</piece><start>E7</start><end>E6</end></move> as last into (/game)[0]') WHERE Id = @GameId;
Run Code Online (Sandbox Code Playgroud)

现在,当MSSQL插入时,还会插入一个空名称空间,因此结果就是这样

<move xmlns="">
  <player>black</player>
  <piece>king</piece>
  <start>E7</start>
  <end>E6</end>
</move>
Run Code Online (Sandbox Code Playgroud)

现在我尝试过使用它们

WITH XMLNAMESPACES(DEFAULT 'http://my.name.space')
Run Code Online (Sandbox Code Playgroud)

GameHistory.modify('declare default element namespace "http://my.name.space"; insert ...')
Run Code Online (Sandbox Code Playgroud)

但我到处都是前缀,每个元素都有一个命名空间声明.

代码库中出现问题,这些代码库缺少处理MSSQL输入的前缀的逻辑.最后,我只想在我的xml根中插入一个新元素并将命名空白留空(使用root默认值?).我对这一点都很陌生,但据我所知,如果我的根元素中有一个命名空间,那么所有的子节点都不应该有我的root的默认命名空间吗?

xml sql t-sql sql-server xquery

5
推荐指数
1
解决办法
2923
查看次数

Django < - > SQL Server 2005,文本编码问题

我正在尝试使用以下方法将Django数据存储在MS SQL Server 2005上:

http://code.google.com/p/django-pyodbc/(pyodbc + FreeTDS)

只要我存储由ASCII字符组成的字符串,一切都可以.当我使用unicode(例如'\ xc5\x82')时,django会抛出ProgrammingError:

ProgrammingError at /admin/cli/punktrejestracji/add/
('42000', '[42000] [FreeTDS][SQL Server]The incoming tabular data stream (TDS) protocol stream is incorrect. The stream ended unexpectedly. (4002) (SQLExecDirectW)')
Run Code Online (Sandbox Code Playgroud)

跟踪的最后一个元素是:

params  ('\xc5\x82',)
self    <django.db.backends.sql_server.pyodbc.base.CursorWrapper object at 0x92ef8ec>
sql 'SELECT (1) AS [a] FROM [cli_punktrejestracji] WHERE [cli_punktrejestracji].[adres] = ? '
Run Code Online (Sandbox Code Playgroud)

BTW http://code.google.com/p/django-mssql/似乎不能在Linux下运行,django-mssql需要pythoncom库.我对吗?

sql-server django unicode odbc freetds

5
推荐指数
1
解决办法
1743
查看次数

更改数据捕获错误

我试图通过传递最小和最大日期来获得启用CDC的表上的净更改.但是丢错误.

Msg 313, Level 16, State 3, Line 24
An insufficient number of arguments were supplied for the procedure or function cdc.fn_cdc_get_net_changes_ ... .
Run Code Online (Sandbox Code Playgroud)

我的代码如下:

DECLARE @CDate DATE = '2013-03-18' --This is the date after the CDC was enabled on the table
DECLARE @count INT;
DECLARE @lsnStartDatetime DATETIME;
DECLARE @lsnEndDateTime DATETIME;

DECLARE @begin_time DATETIME ,
@end_time DATETIME ,
@from_lsn BINARY(10) ,
@to_lsn BINARY(10);


SELECT  @lsnStartDatetime = CAST(CAST(@CDate AS NVARCHAR(10)) + ' 00:00:00' AS DATETIME)
SELECT  @lsnEndDateTime = CAST(CAST(@CDate AS NVARCHAR(10)) …
Run Code Online (Sandbox Code Playgroud)

sql-server cdc change-data-capture sql-server-2012

5
推荐指数
1
解决办法
1945
查看次数

分组摘要数据

试图在这里做一些事情来创建一种摘要数据.我不确定它是最优雅的sql代码!

我有下表

Product             Channel         Sold
-------------------     ----------------------  
PC                  Web             48
Laptop              Web             2
Speakers            Web             74
DVDs                Web             33
PC                  Shop            1
Laptop              Shop            1
Speakers            Shop            1
DVDs                Shop            5
PC                  Door-to-door    7
Laptop              Door-to-door    16
Speakers            Door-to-door    9
DVDs                Door-to-door    21
PC                  Referals        7
Laptop              Referals        16
Speakers            Referals        9
DVDs                Referals        21
Run Code Online (Sandbox Code Playgroud)

我想查询数据,以便我得到一些代表"直接"销售的东西,这是一个网络和商店销售的总和,因此忽略了挨家挨户和忏悔.

Product             Channel         Sold
-------------------     ----------------------  
PC              Direct          49
Laptop          Direct          3
Speakers        Direct          75
DVDs            Direct          38
Run Code Online (Sandbox Code Playgroud)

有谁知道我怎么做这个?我正在考虑分组(选择......分组),但我正在尝试的一切都是绝望的失败!大声笑.

提前致谢.

DS

编辑!

如果我想把挨家挨户和忏悔放在一起作为"次要"怎么办?这很容易实现吗?所以我在寻找......

Product             Channel …
Run Code Online (Sandbox Code Playgroud)

sql sql-server

5
推荐指数
1
解决办法
95
查看次数

错误 - 指定的数据类型无效.[数据类型(如果已知)= varchar]

我最近安装了SQL 2008 R2

CREATE TABLE TPERSONS(
personid int PRIMARY KEY NOT NULL,
lastname varchar(50) NULL,
firstname varchar(50) NULL,
salary money NULL,
managerid int NULL -- foreign key to personid
)
Run Code Online (Sandbox Code Playgroud)

我不明白为什么我收到这个错误.

Major Error 0x80040E14, Minor Error 26302

)
The specified data type is not valid. [ Data type (if known) = varchar ]
Run Code Online (Sandbox Code Playgroud)

sql sql-server sql-server-ce sql-server-2008-r2

5
推荐指数
1
解决办法
6471
查看次数

vba,为什么无维数组与 Split() 一起使用

我可以使用带有 Split() 函数的无尺寸字符串数组来从字符串中读取字段,但显然,必须对字符串数组进行尺寸标注才能在循环中使用它。

为什么会这样?还有其他情况下数组不需要标注尺寸吗?

Dim field() As String
field = Split(data_line, "~")

Dim pref_line(10) As String
Input #1, pref_line(i)
Run Code Online (Sandbox Code Playgroud)

arrays vba

5
推荐指数
1
解决办法
1744
查看次数

SELECT表达式有时可以针对不匹配WHERE子句的行进行求值吗?

我想知道是否可以为SELECT不匹配该WHERE子句的行评估作为语句列表一部分的表达式?

这里记录的执行顺序来看,似乎SELECT很久之后就会对它进行评估WHERE,但是我遇到了一个非常奇怪的问题,现实生活中的查询类似于下面的查询.

为了使您进入上下文,在示例中,SomeOtherTable有一个a_varchar列始终包含code105的数值,但可能包含其他代码的非数值.

查询语句有效:

    SELECT an_id, an_integer FROM SomeTable

    UNION ALL

    SELECT an_id, CAST(a_varchar AS int)
    FROM SomeOtherTable
    WHERE code = 105
Run Code Online (Sandbox Code Playgroud)

以下查询抱怨无法转换a_varcharint:

SELECT 1
FROM (
    SELECT an_id, an_integer FROM SomeTable

    UNION ALL

    SELECT an_id, CAST(a_varchar AS int)
    FROM SomeOtherTable
    WHERE code = 105
) i
INNER JOIN AnotherOne a
    ON a.an_id = i.an_id
Run Code Online (Sandbox Code Playgroud)

最后,以下查询有效:

SELECT 1 …
Run Code Online (Sandbox Code Playgroud)

sql sql-server sql-server-2008

5
推荐指数
1
解决办法
150
查看次数