碰到一个奇怪的问题：
我从服务端取到一个字符串保存在变量S中，我要用S拼出自己要的一个字符串，如
<Name>S </name>;但是现在结果显示出来有时候会变成这样： <Name>S?/name>;
好像是S后面带了一个不可见的字符（前面把S打印出来发现是没有问题的，有一次打印出来有一个空格）和尖括号的另 ......
const
WM_REFRESH_USERS = WM_USER + 330;
type
TRefreshParam = (rpRefreshAll, rpAppendItem, rpDeleteItem);
PCmdRec = ^TCmdRec;
TCmdRec = record
Cmd: string;
end;
const WM_REFRESH_USERS = WM_USER + 330;
enum TRefreshParam ......
如何用数组跟for打印出下面的图形
*
**
***
****
如果有更好的方法最好也写上 XX
procedure TForm1.Button2Click(Sender: TObject);
var
arr: array of Integer;
i,j: Integer;
stra,strb : string;
begin
setlength(arr,4);
for i := 0 to 3 ......
//我在type定义一个tmyarray
type
tmyarray= array[0..255] of integer;
...
function myfun1(a:integer):tmyarray;
function myfun2(pt:array of integer):boolean;
//myfun2 要用到其它的不是tmyarray的场合，所以pt 没有用tmyarray类型；
//当然把tmyarray写成array of integer也可以� ......
程序里放置一个WebBrowser（在Internet页面里）然后：
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.baidu.com');
end;
请问一下如何控制这个内嵌网页的大小是100%
随窗口的大小而变化
什么意思，设置
WebBrowser的aligne为alclient
......
type
myclass=class //定义一个类
procedure mypro (var x:integer);//创建过程方法
function myfun (var x:integer):integer;//创建函数方法
end;
function myclass.myfun(var x:integer):integer;//实例化方法
begin
x:=2;
end;
procedure myclass.mypro(var x:integer);
begin ......
最新文章 : delphi