在vb中的一段代码
dim c1 as string
dim arrstr
dim n as integer;
arrStr = Split(c1, " ", -1)
n = UBound(arrStr, 1)
在delphi 中我已经改成这样了
arrstr:Tstringlist;
n:integer;
arrstr :=TStringList.Create;
arrstr.DelimitedText := ' ';
arrstr.CommaText :='c1';
n:=strtoint(high(arrstr);
我如何取得上界值,总是类型不匹配啊,我的n一定要是整型的啊
dim c1 as string
dim arrstr
dim n as integer;
arrStr = Split(c1, " ", -1)
n = UBound(arrStr, 1)
在delphi 中我已经改成这样了
arrstr:Tstringlist;
n:integer;
arrstr :=TStringList.Create;
arrstr.DelimitedText := ' ';
arrstr.CommaText :='c1';
n:=strtoint(high(arrstr);
我如何取得上界值,总是类型不匹配啊,我的n一定要是整型的啊
下界:0