关于Delphi if else的问题
selectString1 := contentSelect1;
selectString2 := contentSelect2;
if(selectString1='')and(selectString2='') then
begin
with application do
MessageBox('请选择查询条件','提示信息',MB_OK);
end;
end
else if(selectString1='')and(selectString2 <>'') then begin /////出错
if(selectString2='Y') then begin
With ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('Select * from jshk');
SQL.Add(' where 打印状态=''Y'' and 监管项目 <>''0037''');
Open;
end;
end else begin
With ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('Select * from jshk');
SQL.Add(' where 打印状态 <>
相关问答：
已知Python 中：
s = unicode("测试", "gb2312")
s = u'\u6d4b\u8bd5'
print s
测试
在Delphi里面如何将\u6d4b\u8bd5这样的还原成Gb2312的汉字呢？
找到个方法
......
昨晚在Delphi数据库查询中遇到了一个疑惑。代码如下：
procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
XY : string;
begin
XY := comboboxxy.Items[comboboxx ......
请教各路高手。武林前辈。我将B.EXE做成资源文件，然后加到123.dll中。用A.EXE来调用123.dll中的B.EXE
请各位前辈帮忙指教下。A.exe如何来调用dll中的exe？代码又该如何写？
无人回答？
做成资源� ......
VC 控制台程序:
#include <iostream>
using namespace std;
int main()
{
const int def_buffer = 1024 * 4;
DWORD t;
BYTE b[def_buffer];
memset(b, 0, sizeof(b));
PBYTE p;
t = GetTickC ......
