J jqvxz Unregistered / Unconfirmed GUEST, unregistred user! 2005-05-27 #1 我是新来的小虾，最近在做毕业设计时遇到了以下问题，我要将一份试卷的答案值组成的字符串比如：ABCDABCDABCD依次写入数据库表格的前12个问题答案里面，我想是不是可以先用这些答案依次给一个数组赋值，然后再根据数组下标跟表格题号想对应写入数据库表格？ 求各位大虾帮忙啦！！！
我是新来的小虾，最近在做毕业设计时遇到了以下问题，我要将一份试卷的答案值组成的字符串比如：ABCDABCDABCD依次写入数据库表格的前12个问题答案里面，我想是不是可以先用这些答案依次给一个数组赋值，然后再根据数组下标跟表格题号想对应写入数据库表格？ 求各位大虾帮忙啦！！！
J jqvxz Unregistered / Unconfirmed GUEST, unregistred user! 2005-05-27 #2 我是新来的小虾，最近在做毕业设计时遇到了以下问题，我要将一份试卷的答案值组成的字符串比如：ABCDABCDABCD依次写入数据库表格的前12个问题答案里面，我想是不是可以先用这些答案依次给一个数组赋值，然后再根据数组下标跟表格题号想对应写入数据库表格？ 求各位大虾帮忙啦！！！
我是新来的小虾，最近在做毕业设计时遇到了以下问题，我要将一份试卷的答案值组成的字符串比如：ABCDABCDABCD依次写入数据库表格的前12个问题答案里面，我想是不是可以先用这些答案依次给一个数组赋值，然后再根据数组下标跟表格题号想对应写入数据库表格？ 求各位大虾帮忙啦！！！
X xianguo Unregistered / Unconfirmed GUEST, unregistred user! 2005-05-27 #3 procedure TForm1.Button1Click(Sender: TObject); Var a : array of char; s : String; i, j : Integer; begin s := 'ABCDABCDABCD'; j := length(s); setlength(a, j); StrPCopy(PChar(a), s); //测试 Memo1.Lines.Clear; For i := 0 to j do Memo1.Lines.Add(a); end;
procedure TForm1.Button1Click(Sender: TObject); Var a : array of char; s : String; i, j : Integer; begin s := 'ABCDABCDABCD'; j := length(s); setlength(a, j); StrPCopy(PChar(a), s); //测试 Memo1.Lines.Clear; For i := 0 to j do Memo1.Lines.Add(a); end;
N newsmile Unregistered / Unconfirmed GUEST, unregistred user! 2005-05-27 #4 var s:string; i:integer; begin s:=ABCDABCDABCD; for i:=0 to length(s)-1 do showmessage(s); end; 例子的意思是你可以直接引用s，i是从0开始的下标
var s:string; i:integer; begin s:=ABCDABCDABCD; for i:=0 to length(s)-1 do showmessage(s); end; 例子的意思是你可以直接引用s，i是从0开始的下标
X xianguo Unregistered / Unconfirmed GUEST, unregistred user! 2005-05-27 #5 s（i := 1 to Length(s)）就是字符串的第i个字符，不需要用数组
