Ajax 如何给div赋值呢

Posted 2023-05-02

ajax的代码有很多，下载一个示例就看懂了。就是在发送的页面返回成功 状态好像是200，的时候得到后台返回的数据，然后将数据赋值给div就可以了。百度一下 ajax 简单示例吧。直接js的或者jquery的都可以。 参考技术A 引用jquery，看jquery的选择方法，有中文文档 ，挺多，不在此介绍了。 参考技术B 如果是简单的赋值的话，直接document.getElementById("div的Id").innerhtml=你需要的值
如果是通过传入另外的页面的话就要new一个XMLHttpRequest对象 参考技术C 用jQuery最方便了，直接$("#div的id").html("这里是你想赋的值");本回答被提问者采纳

Delphi 中,Byte数组如何赋值呢？

请给个例子..谢谢...
我照着你的复制的，但是，提示cannot initialize local variables

转换 tbytes 到 integer
procedure tform1.button1click(sender: tobject);
var
bs: tbytes; tbytes 就是 byte 的动态数组
i: integer;
begin
它应该和 integer 一样大小才适合转换
setlength(bs, 4);
bs[0] := $10;
bs[1] := $27;
bs[2] := 0;
bs[3] := 0;
因为 tbytes 是动态数组, 所以它的变量 bs 是个指针; 所以先转换到 pinteger i := pinteger(bs)^;
showmessage(inttostr(i)); 10000
end;
从 bytes 静态数组到 integer 的转换会方便些
procedure tform1.button2click(sender: tobject);
var
bs: array[0..3] of byte;
i: integer;
begin
bs[0] := $10;
bs[1] := $27;
bs[2] := 0;
bs[3] := 0;
i := integer(bs);
showmessage(inttostr(i)); 10000
end;
转换到自定义的结构
procedure tform1.button3click(sender: tobject);
type
tdata = packed record
a: integer;
b: word;
end;
var
bs: array[0..5] of byte; 这个数组应该和结构大小一直
data: tdata;
begin
fillchar(bs, length(bs), 0);
bs[0] := $10;
bs[1] := $27;
data := tdata(bs);
showmessage(inttostr(data.a)); 10000
end;
转换给自定义结构的一个成员
procedure tform1.button4click(sender: tobject);
type
tdata = packed record
a: integer;
b: word;
end;
var
bs: array[0..3] of byte;
data: tdata;
begin
fillchar(bs, length(bs), 0);
bs[0] := $10;
bs[1] := $27;
data.a := integer(bs);
showmessage(inttostr(data.a)); 10000
end; 参考技术A 例子程序：

$apptype console
PROGRAM exp;
var a:array [1..10] of byte=(1,3,5,7,9,2,4,6,8,10);
i:integer;
begin
for i:=1 to 10 do writeln(a[i]);
end.

运行结果：
E:\ygb>dcc32 a.dpr
Borland Delphi Version 15.0
Copyright (c) 1983,2002 Borland Software Corporation
a.dpr(8)
9 lines, 0.12 seconds, 10636 bytes code, 1813 bytes data.

E:\ygb>dcc32 a.dpr
Borland Delphi Version 15.0
Copyright (c) 1983,2002 Borland Software Corporation
a.dpr(7)
8 lines, 0.05 seconds, 10636 bytes code, 1813 bytes data.

E:\ygb>a.exe
1
3
5
7
9
2
4
6
8
10本回答被提问者采纳