新手问题:怎么传入一个TADOTable类型的参数.

Question

用Var,还是直接地传进去,又或用指针(pointers)--但我不知怎么用,不知怎么把一个类变成一个pointers,又怎么把这个指针化成原来的类型.还有,怎么把"11|12|13|14"字符串分离成一个INT(或字符串)数组.

Answer 1

一个类实例本来就是一个指针了，当然你也可以再使用一次var这对结果并没有影响！只是意义上有些不同！

Answer 2

怎么把"11|12|13|14"字符串分离成一个INT(或字符串)数组.
var int1,int2,int3:integer;
int1:=strtoint(copy(11|12|13|14),1,2);
int2:=strtoint(copy(11|12|13|14),4,2);
int3:=strtoint(copy(11|12|13|14),7,2);

Answer 3

1.对于简单类型的数据用var表示变量参数，过程或函数结束后可以被修改，
                     不带var表示数值参数过程或函数结束后没有被修改
  对于复杂的数据类型，如对象，带不带var意义上虽不一样但结果都一样，都是对象的引用2.怎么把"11|12|13|14"字符串分离成一个INT(或字符串)数组.
  如果数字位数确定用楼上的就可以了，如果不确定用copy(ss,1,pos('|',ss)-1)，自己做个判断

Answer 4

var int1,int2,int3:integer;
int1:=strtoint(copy(11|12|13|14),1,2);
int2:=strtoint(copy(11|12|13|14),4,2);
int3:=strtoint(copy(11|12|13|14),7,2);

Answer 5

//放到Tstringlist
procedure TForm1.Button1Click(Sender: TObject);
var s:String;
procedure GetArray(s:String);
var strlst:Tstringlist;
begin
  strlst:=Tstringlist.Create;
  ExtractStrings(['|'],[' '],pchar(s),strlst);
  showmessage(strlst[0]);
  showmessage(strlst[3]);
  strlst.Free;
end;begin
  s:='11|12|13|14';
  GetArray(s);
end;放到Tstringlist就行了，我又把它放到整型数组了
type
  TmyArray=Array of Integer;procedure TForm1.Button1Click(Sender: TObject);
var s:String;
    SepArray:Array of integer;
function GetArray(s:String):TmyArray;
var strlst:Tstringlist;
    DArray:Array of Integer;
    i:integer;
begin
  setlength(DArray,256);
  strlst:=Tstringlist.Create;
  ExtractStrings(['|'],[' '],pchar(s),strlst);
  for i:=0 to strlst.Count-1 do
    DArray[i]:=strtoint(strlst[i]);
  strlst.Free;
  result:=TmyArray(Darray);
end;begin
  SetLength(SepArray,256);
  s:='11|12|13|14';
  Tmyarray(SepArray):= GetArray(s);
//访问整型数组
  showmessage(inttostr(SepArray[0]));
  showmessage(inttostr(SepArray[3]));
end;

Answer 6

ExtractStrings(['|'],[' '],pchar(s),strlst);
这个好,谢谢.
再问一个能让人晕倒的问题,怎么定义一个整型链表..........$_$

Answer 7

1.对于简单类型的数据用var表示变量参数，过程或函数结束后可以被修改，
                     不带var表示数值参数过程或函数结束后没有被修改
  对于复杂的数据类型，如对象，带不带var意义上虽不一样但结果都一样，都是对象的引用
=======
谢谢,直接是const var还是拷贝?是了,怎么定义一个const 变量.

Answer 8

(tabel : Tdataset)
参数这样表示吧。