잘못된 유형 : 'Array'및 'dynamic array'

Question

동적 배열의 길이를 문자열로 변환하고 길이를 묻는 함수를 작성했습니다 (trim (string)). 제목에 명시된 바와 같이

ShowMessage(IntToStr(arraylength(cChar))); 

내가 오류를 얻을 : 내 주요 프로그램에서

function arraylength(a: array of char): integer; 
var i: integer; 
s: string; 
begin 
    for i:=0 to high(a) do 
    begin 
    s[i] := a[i-1]; 
    Result := length(trim(s)); 
    end; 
end; 

내가 배열

procedure TForm1.Button2Click(Sender: TObject); 
var i: integer; 
begin 
    for i:=0 to length(sString) do 
    begin 
    cChar[i] := sString[i]; 
    end; 
end; 

로 변환 할 문자열에 텍스트를 읽어 보시기 바랍니다.

Answer 1

델파이의 프로 시저와 함수에 배열을 전달할 때는 별도의 형식으로 선언해야합니다. 따라서 :

type 
    MyArray = array of char; 

다음

function arraylength(a: MyArray): integer; 

BTW : 당신은 왜 길이와 같은 내장 함수를 사용하지 않는()? Delphi2009에서 type string은 유니 코드 문자열이므로 Length는 바이트가 아닌 길이를 문자로 나타냅니다.