function TFrm_FncUpdateManager.StreamToString(
aStream: TStream): String;
var
vi: Integer;
begin
Result := '';
if not Assigned(aStream) then
Exit;
SetLength(Result, aStream.Size);
for vi := 0 to Pr ......
SQLStoredProc.StoredProcName:='[dbo].[UpDIMS]';
SQLStoredProc.ParamByName('@Mindex').AsInteger:=mInfo.Mindex;
SQLStoredProc.ParamByName('@Longitude').AsInteger:=mInfo.Longitude;
SQLStoredProc.ParamByName('@L ......
问题:
form2能关闭form1,
但为什么form3关不了form2?
怎么才能实现form3关闭form2?
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,Unit2;
type
TForm1 = class(TForm)
&nb ......
Delphi(Pascal) code:
function getbook:Integer;stdcall;
var
WsObj:HosServicePortType;
begin
try
CoInitialize(Nil);
WsObj:=MainForm.HTTPRIO1 as HosServicePortType;//引用Mainform上的HTTPRIO控件
WsArray:=WsObj.getBook('0371001','20100302');//发送请求(getbook是webservice中的函数) ......
比如说:
(注明:listview是设置有标题的,不需要保存标题。)
with ADOQry do
begin
close;
sql.Clear;
sql.Add('select * from tabletempl');
&nbs ......
我有一个链接:JScript code:
<a oncontextmenu=\"showMenu('0010010013')\" href=\"#\">Z软件公司</a>
如何把“Z软件公司”替换成“学校”!
var aLinks = document.getElementsByTagName('A');
for(var i=aLinks.length-1; i>=0; i=i-1) {
aLinks[i]. ......