正如标题所说,我正在尝试在没有IDE的帮助下编译Win32程序,这样我就可以学习.我正在使用Borland Studio 2006,我的第一个想法是从IDE中获取一些Forms应用程序生成的文件并编译项目文件...这给了我关于期望单位和查找对象的错误.我知道这是来自dfm文件,其中包含表单的所有设置,但我不知道IDE如何处理该文件,任何人都可以帮助我更好地理解系统吗?:)
我正在使用mssql和Delphi 2009.当表单包含连接到布尔字段的dbgrid时,值显示为True,或False.Delphi dbgrid具有翻译能力
f
fa
fal
fals
false
t
tr
tru
true
Run Code Online (Sandbox Code Playgroud)
成为true或false.我想添加值,以便它可以接受其他字符串,并将它们匹配true或false.这些值可以添加到哪里?
我,(更多时间),当我点击树视图的项目时尝试执行操作,请参阅:
procedure TForm1.TreeView1Click(Sender: TObject);
begin
if treeview1.Selected.AbsoluteIndex=1 then
begin
showmessage('selecionado');
end;
end;
Run Code Online (Sandbox Code Playgroud)
如果用户单击树视图的索引1,此代码将显示一条消息,问题如下:如果用户选择索引1,将显示该消息,但在此之后,用户单击列表视图的空白区域消息仍然执行,因为该项仍然被选中.如何仅在用户单击相应项目时才能运行事件?
我通过jaybird创建了一个Firebird用户(PIPPO),跟随gsec"display":
GSEC> di
user name uid gid admin full name
------------------------------------------------------------------------------------------------
SYSDBA 0 0 Sql Server Administrator
PIPPO 0 0 GesAll 1.0 User
GSEC>
我在Firebird DB中创建了一个角色(GESALLDB_USER)并授予了一些权限:
SQL> show grant; /* Grant permissions for this database */ GRANT DELETE, INSERT, SELECT, UPDATE, REFERENCES ON ANELLI TO ROLE GESALLDB_USER GRANT DELETE, INSERT, SELECT, UPDATE, REFERENCES ON COPPIE TO ROLE GESALLDB_USER GRANT DELETE, INSERT, SELECT, UPDATE, REFERENCES ON COVE TO ROLE GESALLDB_USER GRANT DELETE, INSERT, SELECT, UPDATE, REFERENCES ON DATI_CONFIGURAZIONE TO ROLE GESALLDB_USER …
我正在Embarcadero Delphi 2010中编写一个简单的应用程序.一个包含两个周期的简单代码:
procedure TForm1.Button1Click(Sender: TObject);
var
a:array [0..255] of integer;
i:integer;
k,q:integer;
begin
k:=0;
for I := 0 to 255 do
begin
a[i]:=i;
end;
for I := 0 to 255 do
begin
q:= a[i];
k:=k+q;
end;
Label1.Caption:=inttostr(k);
end;
Run Code Online (Sandbox Code Playgroud)
根据监视列表,在第二个循环变量"i"从值256开始并且转到0(256,255,254,...,0),但是数组的元素是正确的(0,1,2,3,... ).变量"i"仅在本地声明,没有全局变量.为什么会这样?这是正常的行为吗?
我正在尝试在 golang 中使用命名参数查询,如下所示:
stmt, err := db.Prepare("insert into users(name, email) values(@name, @email)")
if err != nil {
//error handling
}
res, err := stmt.Exec(sql.Named("name", name), sql.Named("email", email))
if err != nil {
//error: sql: expected 0 arguments, got 2
}
Run Code Online (Sandbox Code Playgroud)
我收到以下错误:“sql:预期 0 个参数,得到 2 个”。
编写此查询的正确方法是什么?
我需要遍历返回sql.Rows多次。是我唯一的两个选择:
换句话说,没有办法返回sql.Rows(即与相对Rows.Next)。
我正在研究一个模拟程序.
程序所做的第一件事就是读取一个巨大的文件(28 mb,大约79'000行),解析每一行(大约150个字段),为对象创建一个类,并将其添加到TStringList.
它还会读入另一个文件,该文件在运行期间会添加更多对象.最后,它最终成为大约85,000个物体.
我正在使用Delphi 2007,程序使用了大量内存,但运行正常.我升级到Delphi XE,并将程序迁移过来,现在它使用了更多的内存,并且它在运行的一半时间内耗尽了内存.
所以在Delphi 2007中,它会在读取初始文件后最终使用1.4演出,这显然是一个巨大的数量,但在XE中,它最终使用了近1.8演出,这真的很大,导致耗尽并获得错误
所以我的问题是
谢谢
你好,我最近换TextFile了TFileStream.我从不使用它,所以我的问题很小.
我需要定义的行格式文件,所以我做的是这样的:
var linia_klienta:array[0..30] of string;
AssignFile(tempPlik,'klienci.txt');
Reset(tempPlik);
i:=0;
While Not Eof(tempPlik) do
begin
Readln(tempPlik,linia_klient[i]);
inc(i);
end;
CloseFile(tempPlik);
Run Code Online (Sandbox Code Playgroud)
然后当我需要第二行时
edit1.text = linia_klienta[1];
Run Code Online (Sandbox Code Playgroud) 我已经搜索过,似乎无法找到一种方法来更改Google Chrome书签栏中的标准蓝色/灰色书签图标(不是页面图标).使用Mac.有人知道吗?
delphi ×6
go ×2
build ×1
command-line ×1
database ×1
delphi-2009 ×1
firebird ×1
for-loop ×1
ide ×1
jaybird ×1
mysql ×1
pascal ×1
privileges ×1
role ×1
sql-server ×1
treeview ×1
tstringlist ×1