Recent update: 2008-6-10
如果有10行内容, 如何删除第5行, 留下1,2,3,4,6,7,8,9.10行?
我买的一张d版，安装完后，发现是英文汉化版。
偶定义了字符串： MyStr : String; 赋值： MyStr := 'abc'; 请问怎样分别得到每个字符的ASCII码？ 即字符'a'的ASCII码，字符'b'的ASCII码，字符'c'的ASCII码，等等。
如何能够在其中可以任意修改Cells中的内容 是不是要改那项属性啊？ 我是指在应用程序中修改
输入表单有个专业字段，比如有工民建、建筑工程等等 每个都有个标号，如工民建为01、建筑工程为02 我要在输入表单上填专业时（专业是 DB COMBOBOX ）要把所填这个人的专业的 标号读到许可证号，而这个许可证号是自动生成的，不在输入页输入。 许可证号是这样的前六位是固定的，比如123456 中间八位是当前日期比如20020125最后二位就是专业标号 怎么去实现他？（我输入表单用的是DBEDIT和COMBOBOX控件）
在一个窗体中加入了一定量的控件就出现“达到极限，该窗体不能再创建更多控件”，请各位帮忙!
四个Form,一个主窗体,在其内显示另三个。子窗体的FormStyle设成fsMDIChild 可现在在主窗体内显示子窗体后，关闭子窗体时只是在主窗体内最小化，请问还需改哪个属性才能使其关闭？
当dbgrid中的dgRowSelect=true,dgMultiSelect=true时, 为何只有用鼠标选择的DBGrid1.SelectedRows.Count才大于零,用键盘选的没用!要如何才能识别用键盘选择的行呢? 如果我把multi..那项设为false的话,连鼠标选的count也只能返回零了,究竟怎么办.
每个人有10条记录, 按人进行分组, 我想每页打印4 个人的记录, 我可以做到分两栏, 却没办法再分成上下两半, 如下: aa 111 cc 333 aa 232 cc 546 . . . . bb 489 dd 9384 bb 267 dd 293 . . . . 请高手帮忙!!!
创建了一个动态数组，没有给他付初值，在循环中使用付值的时候就出错了，如何解决？ 下面是一部分代码 前面定义了 var Group:array of string; 使用的时候是 while not Readado.Eof do begin Group[i]:=ReadAdo.fieldbyname('组号').asstring; Group_id[i]:=ReadAdo.fieldbyname('id').asinteger; ReadAdo.Next; i:=i+1; end; 一执行的时候Group[i]就出问题了 请问如...
一个连锁药店的管理系统,联系总店和各个分店,包括财务和进销存的管理
begin Application.Initialize; splash:=Tsplash.Create(splash); splash.Show; Splash.Update; Application.CreateForm(TForm1, Form1); Application.CreateForm(TForm2, Form2); Application.CreateForm(TForm3, Form3); Application.CreateForm(Tsplash, splash); Sleep(3000); splash.hide; splash.free; A...
我打算让用户输入一个文件名，结合命名规则用程序判断该文件名的有效性，怎么办？
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; type TDat...
公司想做一个图书管理系统作为产品，要求有图书的进销存以及一般图书馆的借阅管理。可能要做成一个一个的小模块，请各位给点意见
不管子目录和文件的属性以及是否为空
请问通常改变图像的色深用什么办法， 帮助里说一般改变颜色用ScanLine自己处理，这是什么意思？ 直接设置pixelformat为什么经常结果都不一样， 并且TBitmap.SetPixelFormat我也看不懂。 哪位大虾帮帮我，在下不胜感激。
如何让Tedit的数值显示靠右？
这样一个项目，前端程序。 需求：需要接受远程信号，并需要向远程设备发控制指令， 终端上还要仿真远程终端的运行情况。 请问，如果用delphi作，报价大概是多少？
怎样拦截在TEXT控件中按 'PageUp' 或 'PageDown' 键的事件？
哎,又是一晚上没睡,真困啊
我想用ReadProcessMemory读内存，但无法确定程序在内存中的地址。 有没有什么办法能在直接内存中找变量？不通过进程，地址一类的东西？
我比菜鸟的水平还低，现在遇到一个问题： 用ADO连接一个foxpro的数据库，（千万别劝我换数据库，我也是没办法，这是在已经有的一个软件基础上的二次开发，而那个软件是不能动的，只能利用它的库文件）连接代码如下Provider=MSDASQL;driver={Microsoft Visual FoxPro Driver};SourceDB=c:\path\datadir;SourceType=DBF" 我在其中加了一个表（必须用foxpro的表，因为要传到别的机器上，限定这个格式）问题来了：我用ado中recordcount.delete操纵记录集，只能把其中的数据标记为删除，而不能彻底的删...
如何在焦点不在一个应用程序时,按下该应用程序的一个快捷健,可以响应它的事件?
我在delphi6+sql server 2000环景下写一个小型程序.前面一直好好的,突然某次编译时出现以下错误提示: project project1.exe raised excepion class EvariantError with message 'Invalid variant type conversion',process stopped use step or run to continue.但可以运行下去. 照字面意思是那里转换有问题? 不知何故?我是第一次用delphi.很急
var Form1: TForm1; merlin:iagentctlcharacter; Request:iagentctlrequest; procedure TForm1.FormShow(Sender: TObject); begin Request:=agent1.characters.load('merlin','d:\MERLIN.ACS'); merlin:=agent1.characters.character( 'merlin' ); end; procedure TForm1.Button1Cl...
我定义了一个pchar，很大，我想将其中从start开始的，长度的length的部分作为一个memo的内容，怎样做最好呢？
不知道那位大侠可以讲一下函数 function SetWindowLongA(hWnd: HWND; nIndex: Integer; dwNewLong: Longint): Longint; stdcall; 的具体用法，有例子最好
在次感谢iror给我的帮助。 请iror接分
6 byte By
OKzhou at 2007-12-16
谢谢你的帮助
177 byte By
gan_lg at 2007-12-16
我是在报表里调用表达式控件，expression表达式是 sum(int(qrstringband1)) 数据源是qrstrngs|item|1234567 2345678 4567890 这样回显一个0 却没有统计结果，是我用的函数名不对吗？格式是怎么样的，谢谢了
怎样释放由createThread(nil,0,@hthread,nil,0,threadID);创建的线程？(在线) 如： procedure TFdlfee.PageControl1Change(Sender: TObject); var QQ:thandle; qqID:dword; dc:hdc; s:string; begin qq:=createThread(nil,0,@Qfee,nil,0,qqID); if qq=0 then showmessage('创建查询线程失败!'); end; 如何释放qq线程？...
求助 关于TreeView 一个TreeView样式如下 全部 |----部门1 | |--小组1 | |--小组2 |-----部门2 |--小组3 |--小组4 当点击‘小组1’时，怎么取得选中各级项目（全部\部门1\小组2 ) 谢谢
with listbox1.itesms do begin if indexof('xxx') >-1 then delete (indexof('xxx')); end; comparing signed and unsigned types - widened both operands (是什么意思!) declaration expected but "with" found (为什么会这样? ) undeclared identifiler:'indexof'...
哪位晓得在DELPHI中如何把一个文本文件中的内容，文本文件中每行文本长度固定，想把这个文本文件中的每一行插入到一个ACCESS数据库表中，每行文本的内容正好和这个表的字段结构一致， 例如：此表有两个字段长度分别是10，20. fd1:10 fd2:20 需要把文本的前10个字符插入字段fd1,后20个字符插入字段fd2， 如果不采用拆分字符串的方法，有没有把整个字符串直接添加到表中的方法， 即一行到一行的方法。 还请高手指路了，谢谢。
一个TreeView样式如下 全部 |----部门1 | |--小组1 | |--小组2 |-----部门2 |--小组3 |--小组4 当点击‘小组1’时，怎么取得选中各级项目（全部\部门1\小组2 ) 谢谢
用什么方法，我要做的是如果这个线程已经达到我要的条件，我就先结束另外一个线程，再结束自己的线程
總部設在美國紐約的傳媒自由團體"保護記者委員會"周四譴責了中國gov封鎖世界上最大的搜索引擎網站Google的做法。 該團體說，它對中國gov的做法感到"非常擔憂"，稱此舉將對中國記者和其他公民獲得信息產生負面的影響。 該團體負責人庫珀在寫給中國國家主席江澤民的一封公開信中說："你的gov經常封鎖網站，包括外國新聞機構和人權團體的網站，但是，一個搜索引擎網站被封還是第一次。" 庫珀敦促江澤民解除對Google的封鎖，她還要求中國gov"維護中國憲法和中國簽署的《國際民權和政治權利公約》所保障的自由表達權。" Google要求中國解封 此前，Google公司要求中國當局取消對該公司為...
这是个关于装载和保存字符患列表的问题 procedure Tform1.FOrmCreate(........); var filename: string; begin filename := 'c:\autoexec.bat'; with memo1 do begin loadFromFile(filename); saveTofile(ChangeFileExt(filename,'bak')); end; end; end. 结果出现以下错误: undeclared identifiler:'loadFrom...
我用ADOStoredProc调用sql server里的存储过程myproc 下面的代码却不行 ADOStoredProc1.Connection:=adoconnection1; ADOStoredProc1.Name:=‘myproc’; ADOStoredProc1.ExecProc; 奇怪的是如果我在属性栏里设置ADOStoredProc的connection、name之后 再用 ADOStoredProc1.ExecProc; 却可以通过 （我的存储过程里定义了一个返回参数 @maxID int output） 我想不通哪儿出问题了 这是怎么回事，难道是del...
我用InstallShield7.02给程序打包后，为什么打完的包里面会有个program files的目录，里面有我要打包的所有文件，而不是正常的cab包呢？
编写电话计费系统时，如何编写串口程序与交换机进行通信，交换机应提供那些参数？
如何将在CB中写的类的函数，在delphi中调用呢？？？
数据：Ms sql server 有一个表： name type area sen min fee a in bj,a 50 20 20 a in bj,b 60 10 5 a out bj,a 30 15 15 a out bj,b 40 25 25 b in gz,a 15 13 13 b in gz,b 12 6 6 b out gz,b 5 5 5 b in tj,a 3 3 3 b in tj,a 23 13 13 b out tj,a 33 21 21 ---------------------------------------------------...
我使用ComboBox，需要改变他的Items的数目，就比如说月份，需要使他的items变成30个或者31个，应该修改他的什么属性呢？
如何编写程序通过MODEM拨号让两台已安装MODEM的电脑互相传送文件？
用户在Edit内输入数据时，Edit上的格式是（hh:mm:ss),用户只需要输入如121230，edit上显示的是12:12:30。
有两个控件：CheckBox1/RadioBox1 在FormCreate的时候，写了这样的代码： CheckBox1.Tag := Longint(RadioBox1); RadioBox1.tag := Longint(CheckBox1); 请问这是什么意思？ 在后面应用的时候，又有RadioBox1.Enable := TCheckBox(CheckBox1.Tag).Checked 这是怎么会使啊？ 谁能解释一下？
1、以下哪个流程效率好呢？ 2、用socket api怎样判断客户断开呢？ 流程一、开启socket.dll->创建线程（绑定套间字->监听->获取连接->接收指令->回复指令->断开连接） 流程二、开启socket.dll->绑定套间字->监听->获取连接->创建线程（接收指令->回复指令->断开连接）
procedure MimeDecode (const InBuf: Pointer; const InBytes: Integer; const OutBuf: Pointer; out OutBytes: Integer); var b, i: Cardinal; j: Cardinal; pin, pinlimit: ^Byte; pout: pbyte3; begin {$IFDEF RangeChecking} if InBuf = nil then raise EMime.Create (SInBufNil); if OutBuf = nil then raise...