No.1
var
C: Char;
begin
C := ls_ii[1];
end;No.2
procedure TForm1.Button1Click(Sender: TObject);
var
vBuffer: array[0..255] of Char;
begin
GetWindowText(Handle, vBuffer, 255);
ShowMessage(vBuffer);
end;
var
C: Char;
begin
C := ls_ii[1];
end;No.2
procedure TForm1.Button1Click(Sender: TObject);
var
vBuffer: array[0..255] of Char;
begin
GetWindowText(Handle, vBuffer, 255);
ShowMessage(vBuffer);
end;
解决方案 »
- 急求:TclientDataSet中CommandText内容的问题
- FastReport 版本为 3.2.0 的疑问
- 请问怎样禁止修改操作系统时间?
- 程序的界面如何与具体的处理动作联系起来的?
- Delphi的后继版本对Database的支持.
- 学习中遇到一个问题,请教高手赐教(关于ListView),
- 真的就没人会吗?请教高手:在一个Panel里怎么显示另外一个EXE文件?或OCX文件?在线等待!
- 招聘软件编程人员数名
- 请问在动态库中做多线程与一般在单元文件中做多线程有什么区别吗?请大家给予尽可能的指教?!
- 逼死我了,救救我吧!一定给高分!!
- ttreeview控件中双击显示问题!!!请不要见笑!
- 简单的问题,初学者,帮帮我吧
ch:char;
begin
ch=ls_ii[1];
showmessage(ch);
end;