F ForDelphi Unregistered / Unconfirmed GUEST, unregistred user! 2002-07-11 #1 String类型的数据怎么放到 array[xx..xx] of char? 给个函数
D dreamliu2001 Unregistered / Unconfirmed GUEST, unregistred user! 2002-07-11 #2 var i:integer; a:array[0..50] of char; s:string; for i:=0 to length(s) do a:=s;
L LGXing Unregistered / Unconfirmed GUEST, unregistred user! 2002-07-11 #3 Var TmpArr:Array[1..100] Of Char;//注意长度 i,k:Integer; Begin k:=Length(TmpStr);//TmpStr就是你的字符串 If k>100 Then k:=100; For i:=1 To k Do TmpArr:=TmpStr;
Var TmpArr:Array[1..100] Of Char;//注意长度 i,k:Integer; Begin k:=Length(TmpStr);//TmpStr就是你的字符串 If k>100 Then k:=100; For i:=1 To k Do TmpArr:=TmpStr;
T twos Unregistered / Unconfirmed GUEST, unregistred user! 2002-07-11 #4 procedure example; var A: array[0..79] of Char; S: String; begin S := 'Honk if you know Blaise.'; StrPCopy(A, S); Canvas.TextOut(10, 10, string(A)); end;
procedure example; var A: array[0..79] of Char; S: String; begin S := 'Honk if you know Blaise.'; StrPCopy(A, S); Canvas.TextOut(10, 10, string(A)); end;