델파이 배열 초기화

Question

이것은 다소 이전의 질문 중 하나입니다. found here. 기본적으로 dll/함수를 기본 예제로 테스트하려고하는데 'E2010 - 호환되지 않는 유형 : AInteger/ADouble 및 '및'E1012 - 상수 표현이 배열의 범위를 벗어남 [] 오류가 발생합니다. 나는 (다소) 말하려고하는 것이지만, 내가 무엇을 고쳐야 하는지를 알 수 없다. AInteger 및 ADouble 유형 내 배열 인

var 
    n: Integer; 
    Ap, Ai: AInteger; 
    Ax, b: ADouble; 

begin 
    // Initializations 
    n := 5; 
    Ap := [0, 2, 5, 9, 10, 12]; <- E2010 
    Ai := [0, 1, 0, 2, 4, 1, 2, 3, 4, 2, 1, 4]; <- E2010 
    Ax := [2, 3, 3, -1, 4, 4, -3, 1, 2, 2, 6, 1]; <- E2010 and E1012 
    b := [8, 45, -3, 3, 19]; <- E1012 

:

ADouble = array[0..High(Integer) div SizeOf(Double) - 1] of Double; 
AInteger = array[0..High(Integer) div SizeOf(Integer) - 1] of Integer; 

과 (루디의 델파이 페이지와 다른 C - 투 - 파스칼 소식통에 따르면)이 방법을 초기화해야한다 그들은 이후 예를 들어 C에서 double Ax[]으로 작성되었습니다. 뭔가 잘못되었거나 내 dll을 테스트하기 위해 바뀔 수있는 간단한 내용이있을 것입니다.하지만 예제/솔루션을 찾을 수 없기 때문에 잘못 검색했을 수 있습니다. 그래서, 질문 형태 :

Q1 "

를 참조 E1012이며, 당신이이 등의 작업을 수행 할 경우 [AInteger 및 ADouble], 높은 에 너무 가까이 오지하지 않도록주의 (정수), 컴파일러가 데이터 구조가 너무 큰 것이라고 불평 할지도 모릅니다. " 어떻게이 코드를 변경해야합니다 :

2 분기 (루디의 페이지에서 인용)?

미리 도움을 청하십시오.

Answer 1

이와 같은 구문으로이를 수행 할 수 있습니다.

같은 배열을 정의 :

ADouble = array[0..High(Integer) div SizeOf(Double) - 1] of Double; 

전체 32 비트 RAM의 크기의 정수의 배열을 초기화합니다! 그러한 변수는 절대로 할당 할 수 없으며 (Win64에서만 가능하지만 4GB의 RAM을 사용하여 6 개의 정수를 저장합니다)! :)

배열은 동적 인이어야합니다. 즉 런타임에 크기가 변경되어야합니다. 따라서 다음과 같이 정의해야합니다.

type 
    AInteger = array of integer; 

이러한 배열은 현재 언어 AFAIR 상태로 직접 할당 할 수 없습니다.

그래서 당신은 이러한 기능을 쓸 필요가 :

procedure SetArray(var dest: AInteger; const values: array of integer); 
begin 
    SetLength(dest,Length(values)); 
    move(values[0],dest[0],length(values)*sizeof(integer)); 
end; 

을 그리고 당신은 소스로 일정하게 배열 중 하나를 사용할 수 있습니다

const 
    C: array[0..5] of Integer = (0, 2, 5, 9, 10, 12); 
var 
    Ap: AInteger; 
begin 
    SetArray(Ap,C); 

그대로 사용하거나 오픈 배열 매개 변수을 :

var 
    Ai: AInteger; 
begin 
    SetArray(Ai,[0, 2, 5, 9, 10, 12]); 

물론 두 번째 솔루션은 당신이 기대하는 것.

업데이트 : 새로운 버전에 대한, 당신은 물론 같은 동적 배열 생성자를 사용할 수 있습니다 : 당신은 스파 스 솔버 코드를 C로 작성을하고하려고하는 것처럼

var 
    Ai: AInteger; 
begin 
    Ai := AInteger.Create(0,2,5,9,10,12); 

Answer 2

이 질문은 오픈 어레이과는 관계가 없으므로 질문에서 해당 태그를 제거하십시오.

사용중인 대괄호 구문은 Set 값을 선언합니다. 기본적으로 각 비트가 해당 위치의 값에 해당하는 특별한 유형의 비트 마스크입니다. 즉, [0, 2, 5, 9, 10, 12]은 요소 6 개를 포함하는 Set of Integer이며 비트 0은 값 0을 나타내고 비트 1은 값 2를 나타내고 비트 2는 값 5를 나타냅니다. Set은 시도하고있는 것처럼 배열에 직접 할당 할 수 없습니다.

Answer 3

그것은 나에게 보인다 델파이 프로그램에 연결하십시오. 나는 당신이 당신의 외부 수입을 선언 한 방식에 근본적인 문제가 있다고 생각합니다. 직접 물어 본 질문에 답하기보다는 외부 수입을 신고하고 부르는 올바른 방법이라고 생각하는 것을 보여 드리겠습니다.

내가 말하고 싶은 첫 번째 것은 선언 한 대형 정적 배열 유형이 여기에 필요한 것이 아니라는 것입니다. 이러한 배열 유형은 때때로 유용 할 수 있지만 실제로는 다른 배열을 PADouble = ^ADouble으로 변환 할 때만 유용합니다. 귀하의 상황에서 당신은 그 배열이 전혀 필요하지 않으며 나는 당신이 그들을 제거하는 것이 좋습니다.

난 당신이 입력 매개 변수로 n, nz, Ap, Ai, Ax 및 b를 받아 출력 매개 변수로 x을 반환 solve라는 함수를 호출한다고 가정하겠습니다. 이 함수는 이되도록 x을 반환합니다.는 10 진수의 Ap, Ai 및 Ax으로 지정된 n 차원의 희소 행렬입니다. nz 매개 변수는 0이 아닌 요소의 수를 지정합니다. 실제 함수가 세부 사항에서 달라질 것이라는 데는 의심의 여지가 없지만 개념은 동일합니다. 예를 들어, nz을 Ap[n]에서 유추하는 것이 일반적이지만 자세한 내용은 해결할 수 있습니다.

첫 번째 요소에 대한 포인터로 매개 변수를받는 함수를 선언하는 것이 좋습니다. 따라서 함수 선언은 다음과 같습니다.

function solve(
    n: Integer; 
    nz: Integer; 
    Ap: PInteger; 
    Ai: PInteger; 
    Ax: PDouble; 
    b: PDouble; 
    x: PDouble 
): Integer; cdecl; external; 

그런 다음 스파 스 매트릭스 배열을 채워야합니다. 이러한 동적 배열을 선언 :

var 
    Ap: TArray<Integer>; 
    Ai: TArray<Integer>; 
    Ax: TArray<Double>; 
.... 
SetLength(Ap, n); 
Ap[0] := ...; 
.... 
SetLength(Ai, nz); 
Ap[0] := ...; 
.... 
SetLength(Ax, nz); 
Ax[0] := ...; 
.... 

당신은 런타임에 매트릭스의 내용이 그래서 루프를 사용하여 작성 될 것 n, nz 등의 가치를 알 수있을 것으로 기대. 문제의 코드는 아마도 외부 코드를 테스트하고 테스트하는 테스트 코드 일 것입니다. Arnaud의 대답은 동적 배열을 채우는 방법에 대한 조언을 제공합니다.

또한 b 및 x를 초기화해야합니다

var 
    b: TArray<Double>; 
    x: TArray<Double>; 
.... 
SetLength(b, n); 
b[0] := ...; 
.... 
SetLength(x, n); 
// no need to initialise values of x[i] since it is the output 

지금 당신이 함수를 호출 할 수 있습니다 :

var 
    retval: Integer; 
.... 
retval := solve(n, nz, PInteger(Ap), PInteger(Ai), PDouble(Ax), 
    PDouble(b), PDouble(x)); 

마지막으로 포인트를 일반 배열의 사용을 converning. 현대 델파이를 사용하고 있기 때문에 제네릭 동적 배열을 사용하는 것이 좋습니다. 따라서 array of ... 대신 TArray<...>을 사용해야합니다. 그 이유는 제네릭 형식이 구식 동적 배열과 다른 형식 호환성 규칙을 갖고 있기 때문입니다. 위의 코드에서 예를 들어, b과 x은 할당 호환됩니다. 그들은 다음과 같이 선언 된 경우 그러나 :

var 
    b: array of Double; 
    x: array of Double; 

는 그들이 할당 호환되지 않을 것입니다. 유형을 선언하여이 문제를 해결할 수 있습니다. TDoubleArray = array of Double. 그러나 generic 배열을 사용하는 경우 즉시 사용할 수있는 TArray<T> 유형의 반환 값보다 TList<T>과 같은 일반 컨테이너 클래스를 사용할 수 있습니다.

나는 이것이 당신이 물어 꽤 질문이 아니라는 것을 알고 있지만, 나는 당신에게 도움이 될 수 있다는 느낌이 듭니다. 당신이 당신의 배열을하려고 노력하고 정확하게 설명하면