delphi ^integer的问题,求老师告知…

公共区域声明
pId:^integer
iID:integer

赋值
pId := @iID;
iID := pId;

pId := listview.data
pId := adoquery.fielbyname('ID').asinteger;

这样写对吗,最后一行报错,第二行不抱错赋值错误…

2个回答

var
ii:integer;
pid:^integer;
begin
ii:= pid^;
end;

pId^ := adoquery.fielbyname('ID').asinteger;试试

a814123
814123 不行,pId怎么赋值给你iId呢
大约一年之前 回复
Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
其他相关推荐
Python+OpenCV计算机视觉

Python+OpenCV计算机视觉

delphi JSON解析,求代码?

求解写下面JSON的代码,感谢。 {"error_code":0,"reason":"success","result":{"state":3,"uptime":"2018-08-13 21:39:14","data":[{"time":"2018-08-11 17:53:09","remark":"快件已签收,签收人是【本人】"}, {"time":"2018-08-11 08:18:10","remark":"[上海营业部]的【余鸿】正在派件, 电话:15800644202"},{"time":"2018-08-11 08:14:10","remark":"快件已到达[上海营业部],上一站是[上海营业 部]"},{"time":"2018-08-11 02:56:59","remark":"快件已由[上海分拨中心]发往[上海营业部]"},{"time":"2018-08-10 12:50:06","remark":"快件已由[上海分拨中心]发往[上海营业部]"}, {"time":"2018-08-10 12:29:04","remark":"[嘉定六部]的【嘉定六部】正在派件, 电话:13650531758"},{"time":"2018-08-10 11:53:06","remark":"快件已到达[上海分拨中心]"},{"time":"2018 -08-10 08:08:35","remark":"快件已由[嘉定六部]发往[上海分拨中心]"},{"time":"2018-08-10 08:03:44","remark":"快件已到达[嘉定六部],上一站是[上海分拨中心]"},{"time":"2018-08-10 02:39:12","remark":"快件已由[上海分拨中心]发往[嘉定六部]"},{"time":"2018-08-09 23:25:28","remark":"快件已到达[上海分拨中心],上一站是[嘉定三部]"},{"time":"2018-08-09 19:22:57","remark":"快件已由[嘉定六部]发往[上海分拨中心]"},{"time":"2018-08-09 19:22:56","remark":"[嘉定六部]【嘉定六部】已收件"},{"time":"2018-08-09 18:42:54","remark":"[嘉定 六部]【华超】已收件"}],"information":{"no":518704351463,"sName":"UC","expName":"UC优速快递","url":"http://www.uc56.com","tel":"400-1111-119","img":"https://oss- cn2.apistore.cn/exp/UC.png"}},"ordersign":"20180813215900272775252910"}

windows API关于LARGE_INTEGER的问题

typedef union _LARGE_INTEGER { struct { DWORD LowPart; LONG HighPart; }; struct { DWORD LowPart; LONG HighPart; } u; LONGLONG QuadPart; } LARGE_INTEGER, *PLARGE_INTEGER; struct{...} u;是什么意思

delphi使用函数指针调用函数第一个参数不能获取。

完整代码如下所示,定义了一个函数指针类型TFunctiontest = function (const a:integer; const b:integer; const c:integer): integer; 然后定义了一个指针变量。再定义了一个函数function functiona(const a :integer; const b:integer;const c:integer):integer;并将该函数的地址赋值给函数指针,然后通过函数指针去调用,希望得到的结果是1,2,3,但是没有得到第一个参数,求解答? unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; TFunctiontest = function (const a:integer; const b:integer; const c:integer): integer; var Form1: TForm1; implementation {$R *.dfm} function functiona(const a :integer; const b:integer;const c:integer):integer; begin showmessage(inttostr(a)); showmessage(inttostr(b)); showmessage(inttostr(c)); end; procedure TForm1.Button1Click(Sender: TObject); var pf : TFunctiontest; const a:integer =1; const b:integer =2; const c:integer =3; begin pf := @functiona; pf(a,b,c); end; end.

求各位老师指点下,关于delphi XE onNewIntent问题

主体思路 1.delphi XE APP 调用Java类,进行资料填写(已完成) 2.资料填写完毕确定后Java类返回的数据结果执行onNewIntent方法(已完成) 3.根据返回值处理下一步问题(未完成)。 问题: 在delphi XE如何定义onNewIntent方法?

求教:DELPHI接口函数声明问题

接口函数声明:function openport:integer;stdcall; 请教各位大神,openport 在该接口声明中如何理解?鄙人不懂DELPHI,并且在网上 没有查到较清楚的说明。 个人理解:若为无参函数,不应该声明为function openport():integer;stdcall;

Delphi ADVstringgrid的问题

在Delphi7编程时,用了Advstringgrid控件,在StringGrid2GetEditorType事件中,给第3列增加了控件 if ACol = 3 then begin aEditor := edEditBtn; end; 我的想法是:即可以通过按钮调取数据列表,然后选择数据,也可以在输入数据后,系统自动判断输入数据的合合法性,如果合法则通过,不合法则提示不合法,并清空刚才输入数据。 我在StringGrid2SetEditText事件中,写入如下语句,但是不生效,刚才输入的数据还在,我现在就想怎么可以把数据清空。 stringgrid2.cells[3,ARow]:=''; stringgrid2.Refresh; 全部的代码是 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, BaseGrid, AdvGrid; type TForm1 = class(TForm) StringGrid2: TAdvStringGrid; procedure StringGrid2GetEditorType(Sender: TObject; ACol, ARow: Integer; var AEditor: TEditorType); procedure StringGrid2SetEditText(Sender: TObject; ACol, ARow: Integer; const Value: String); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.StringGrid2GetEditorType(Sender: TObject; ACol, ARow: Integer; var AEditor: TEditorType); begin if ACol = 3 then begin aEditor := edEditBtn; end; end; procedure TForm1.StringGrid2SetEditText(Sender: TObject; ACol, ARow: Integer; const Value: String); begin stringgrid2.cells[3,ARow]:='bbbbb'; stringgrid2.Refresh; end; end.

DELPHI 查询sql2008r2问题!

疯了,群里有会delphi的没,2008R2 查询一个月数据没问题,查询一年数据 报错,“对象被打开” 如果只查询一列,一年数据可正常查询! C# 其他程序查询都没问题。。。。。 主程序是delphi的,所以需要用主程序! 使用 delphi7开发简单链接,一个月可以查询,一年数据报错! 尝试使用 delphi xe7 问题一样!使用 .net写个简单链接无问题! ![图片说明](https://img-ask.csdn.net/upload/201602/21/1456043703_151044.png) delphi xe7写的简单查询 ![图片说明](https://img-ask.csdn.net/upload/201602/21/1456043652_946173.png) delphi7 写的简单查询 ![图片说明](https://img-ask.csdn.net/upload/201602/21/1456043664_152642.png)

delphi IOCPdemoCln 数据接收问题

我刚开始学习DELPHI 的IOCP 这部分内以前主要做串口通信,遇到问题:在IOCPdemoCln,这个客户端的 DEMO 中,我搞不懂 这部分的数据是怎么接收处理到服务器端口发来的数据的。 我看理解代码这部分应该是接收到的数据的处理部分 dwPacketLen := FClient.ReadCardinal(False); //读取整个包的长度 FClient.ReadCardinal(False); //读取命令长度 SetLength(utf8Command, dwPacketLen - SizeOf(Integer)); FClient.ReadBuffer(PUTF8String(utf8Command)^, dwPacketLen - SizeOf(Integer)); //读取后续内容 在这部分代码中,我想把读取到的数据发到我自己定义的一个byte类型的数组中,我不知该怎么办。 望高手能给指点。

Delphi结构体的对齐问题

Delphi结构体的对齐问题,Delphi的PChar是几个字节,Short和PChar是不是需要按照4字节对齐?

delphi mediaplay 播放问题

delphi mediaplay 播放问题 ,在XP系统中可以播放MP3音乐,为什么一模一样的到了W7里面就不能播放了,提示无法播发该类型文件。

C#调用Delphi dll文件问题

最近手头一个项目,需要用到C#调用Delphi写出的dll文件(调用的是modelDLL.dll,但是该dll文件还需要另外一个borlndmm.dll文件支持,调用的时候已经把这两个dll文件放到debug目录下了),直接附上相关代码: Delphi相关源码: ``` type TCharStr=array[0..599] of char; ``` 用Delphi写的直接调用可运行,代码如下: ``` procedure TMainDLLForm.PedBitBtnClick(Sender: TObject); var fileName:TCharStr; begin OpenDataFileDlg.InitialDir:= GetCurrentDir; OpenDataFileDlg.Title:='加载模型文件'; OpenDataFileDlg.Filter := '定量模型[*.mdl]|*.mdl|定性模型[*.mdr]|*.mdr'; if OpenDataFileDlg.Execute then begin StrPCopy(FileName,OpenDataFileDlg.FileName); tmpD:=NIRSAModelForPred(graphyData,dataLength,FileName,targetName); end; if compareText(fileExt,'.MDR')=0 then begin memo1.Lines.Add('定性模型: '+ExtractFileName(FileName)); memo1.Lines.Add(Format('预测结果: %10s:%0.0f',[targetName,tmpD])); end; memo1.Lines.Add('--------------'); memo1.Lines.Add(trim(NIRSAPretreatInfor(FileName)));//调用该函数 memo1.Lines.Add('--------------'); memo1.Lines.Add(trim(NIRSAModelInfor(FileName))); end; ``` 而我现在用C#调用出现"尝试读取或写入受保护的内存。这通常指示其他内存已损坏"的错误,代码如下所示: ``` [MarshalAs(UnmanagedType.LPStr, SizeConst = 600)] public string fileName; [DllImport(@"modelDLL.dll", CharSet = CharSet.Auto, CallingConvention = CallingConvention.StdCall)] [return: MarshalAs(UnmanagedType.LPStr, SizeConst = 600)] public static extern string NIRSAPretreatInfor(ref string fileName); private void preCalcButton_Click(object sender, EventArgs e) { OpenFileDialog dialog = new OpenFileDialog(); dialog.Multiselect = false; if (dialog.ShowDialog() == System.Windows.Forms.DialogResult.OK) { fileName = dialog.FileName; string result = NIRSAPretreatInfor(ref fileName); modelInfoTextBox.Text = result; } } ``` 该段代码主要参考Stack Overflow的一些解决方案,地址:[链接](https://stackoverflow.com/questions/5105460/delphi-dll-in-c-sharp-var-array-as-parameter ""),现在解决不了,没有C币了,请大神支支招,谢谢!

delphi生成验证码 求源码

本人在用delphi做一个登录界面,想实现有验证码的功能。(随机生成一组数字)但是找不到源代码,求大神提供链接地址或源码,谢谢!

Delphi 接口 映射 与 重载的问题

``` type IFoo = Interface ['{2137BF60-AA33-11D0-A9BF-9A4537A42701}'] function F1 : Integer; end; IBar = Interface ['{2137BF61-AA33-11D0-A9BF-9A4537A42701}'] function F1: Integer; end; TFooBar = class(TInterfacedObject, IFoo, IBar) //为同名方法取别名 function IFoo.F1 = FooF1; function IBar.F1= BarF1; //接口方法 function FooF1 : Integer; function BarF1: Integer; end; ``` 如上 Delphi 可以将 接口方法映射定义 处理接口中的同名问题 但是如果要映射的方法是重载的方法, 我怎么试都不通过 比如将接口改为: ``` IBar = Interface ['{2137BF61-AA33-11D0-A9BF-9A4537A42701}'] function F1: Integer; overload; function F1(a:integer): Integer; overload; end; ```

delphi Clientdataset ApplyUpdates 问题

数据库字段 datetime 类型 存储数据有 毫秒的时候 Clientdataset ApplyUpdates 报错

delphi 指针函数传递问题

Test=record a: Integer; b: Integer; end; function MyThreadFun(var Param: Test): Integer; stdcall; begin EnterCriticalSection(CriticalSection); Form1.Button1.Enabled:=False; form1.Memo1.Text := IntToStr(Param.a); form1.Memo1.Lines.add(IntToStr(Param.b)); // Result := 0; Sleep(500); Form1.Button1.Enabled:=true; LeaveCriticalSection(CriticalSection); ExitThread(4); end; procedure TForm1.Button1Click(Sender: TObject); var Id: Dword; P: test; begin p.a:=5; p.b:=6; Button1.Enabled:=false; if CriticalSection.RecursionCount<>0 then DeleteCriticalSection(CriticalSection); InitializeCriticalSection(CriticalSection); Createthread(nil, 0, @MyThreadFun, @p, 0, Id); end; 我明明传递过去的是,a=5,b=6,memo1中显示的是其他值,按钮按一次,值都不相同

delphi解析xml格式问题

``` <Responses> <Parameters table="数据表名称(参考附表 a)"> <Parameter name='@字段名'>值</Parameter> <Parameter name='@字段名'>值</Parameter> ... <!--具体字段说明参考省基卫项目技术文档--> </Parameters> <Parameters table="数据表名称(参考附表 a)"> <Parameter name='@字段名'>值</Parameter> <Parameter name='@字段名'>值</Parameter> ... </Parameters> ... </Responses> ``` 这种格式的xml delphi 如何进行解析,一脸懵逼

delphi有关txsdatetime问题

在delphi中我如何把YYYY-MM-DD字符串,付给类型为txsdatetime的变量

delphi treeview 节点移动的问题?

NowNode.MoveTo(NowNode.getPrevSibling,naInsert); 用上面这句上移没有问题,用下面这句进行下移的话会把当前所选的移动到最下面,这个不对的,我要移动一级,不是移动到最下面。 NowNode.MoveTo(NowNode.getNextSibling,naAdd); 麻烦老师给个正确的例子代码谢谢。

delphi用TChart绘制lines的问题,跪求各位大神帮助

我用delphi自带的TChart控件做图表,Chart1->Series[0]->AddXY(X,Y,"",clRed);Series为line型,画图时,发现自动排序了,并不是按照我添加数据的先后顺序画图,如何避免自动排序?series[0].xvalues.order.lonone默认的还是按照x轴的大小从小到大绘图,我该如何实现按照我添加点的顺序绘图呢?跪求各位大神帮助

2019 Python开发者日-培训

2019 Python开发者日-培训

150讲轻松搞定Python网络爬虫

150讲轻松搞定Python网络爬虫

设计模式(JAVA语言实现)--20种设计模式附带源码

设计模式(JAVA语言实现)--20种设计模式附带源码

YOLOv3目标检测实战:训练自己的数据集

YOLOv3目标检测实战:训练自己的数据集

java后台+微信小程序 实现完整的点餐系统

java后台+微信小程序 实现完整的点餐系统

三个项目玩转深度学习(附1G源码)

三个项目玩转深度学习(附1G源码)

初级玩转Linux+Ubuntu(嵌入式开发基础课程)

初级玩转Linux+Ubuntu(嵌入式开发基础课程)

2019 AI开发者大会

2019 AI开发者大会

玩转Linux:常用命令实例指南

玩转Linux:常用命令实例指南

一学即懂的计算机视觉(第一季)

一学即懂的计算机视觉(第一季)

4小时玩转微信小程序——基础入门与微信支付实战

4小时玩转微信小程序——基础入门与微信支付实战

Git 实用技巧

Git 实用技巧

Python数据清洗实战入门

Python数据清洗实战入门

使用TensorFlow+keras快速构建图像分类模型

使用TensorFlow+keras快速构建图像分类模型

实用主义学Python(小白也容易上手的Python实用案例)

实用主义学Python(小白也容易上手的Python实用案例)

程序员的算法通关课:知己知彼(第一季)

程序员的算法通关课:知己知彼(第一季)

MySQL数据库从入门到实战应用

MySQL数据库从入门到实战应用

机器学习初学者必会的案例精讲

机器学习初学者必会的案例精讲

手把手实现Java图书管理系统(附源码)

手把手实现Java图书管理系统(附源码)

极简JAVA学习营第四期(报名以后加助教微信:eduxy-1)

极简JAVA学习营第四期(报名以后加助教微信:eduxy-1)

.net core快速开发框架

.net core快速开发框架

玩转Python-Python3基础入门

玩转Python-Python3基础入门

Python数据挖掘简易入门

Python数据挖掘简易入门

微信公众平台开发入门

微信公众平台开发入门

程序员的兼职技能课

程序员的兼职技能课

Windows版YOLOv4目标检测实战:训练自己的数据集

Windows版YOLOv4目标检测实战:训练自己的数据集

HoloLens2开发入门教程

HoloLens2开发入门教程

微信小程序开发实战

微信小程序开发实战

Java8零基础入门视频教程

Java8零基础入门视频教程

相关热词 c#跨线程停止timer c#批量写入sql数据库 c# 自动安装浏览器 c#语言基础考试题 c# 偏移量打印是什么 c# 绘制曲线图 c#框体中的退出函数 c# 按钮透明背景 c# idl 混编出错 c#在位置0处没有任何行
立即提问