帮忙找错误！

Question

function TLoginCheck.GetNumberData1(ExamNumber: OleVariant): integer;
var
        arrExamNumber :array of string;
begin
        arrExamNumber :=array of string (ExamNumber);
        return :=arrExamNumber[1];
end;

Answer 1

function TForm1.GetNumberData1(ExamNumber: OleVariant): string;//函数返回值应为String类型
var
        arrExamNumber :array of string;
begin
        SetLength(arrExamNumber,integer(ExamNumber));//使用SetLength
        result:=arrExamNumber[1];
end;

Answer 2

确实，对于字符串数组，开始要用setlength指定它的长度。

Answer 3

SetLength(arrExamNumber,integer(ExamNumber))