이 사용

Question

내가 양식의 배열 하나 인 폼에서 전역 변수에 액세스하려고, 나는 시도 전역 변수 (델파이)에 값을 할당 :하지 않습니다 위의

max_forms := 3 

setlength(form_array, max_forms); 

form_array[1] := frm1; 
form_array[2] := frm2; 

if current_form > 0 then 
begin 
    form_array[current_form].fNumber := Number; 
    form_array[current_form].ShowModal; 
end; 

을 분명히 일한다. 어떤 도움이라도 대단히 감사하겠습니다.

Answer 1

문제는 fNumber에 개인 액세스 권한이 있다는 것입니다.

form_array[current_form].Number := Number; 

소개 글로벌 :

property Number: Integer read FNumber write FNumber; 

그런 다음 당신이 임무를 수행 할 수 있습니다이 필드의 목적에 따라

는

, 하나 개의 솔루션은 쓰기 액세스 할 속성을 만들 수 있습니다 변수 :

실제로 문제가있는 경우 FNumber은 "글로벌"변수이며, 잘못된 단어를 사용하고 있습니다. FNumber은 필드이며 양식에 속합니다. 양식 회원은 글로벌 회원이 아닙니다.

양식 원본을 확인하십시오. 이 모든 클래스 단위의 인터페이스와 외부에 존재하기 때문에,

end; // End of TForm1 

var 
    Form1: TForm1; 

implementation 

Form1 실제 전역 변수이고 당신은 할 수 있습니다 : 그것은 델파이 IDE에 의해 생성되어있는 경우는 그 아래에 변수 선언을 찾을 수 있습니다 어디서든 액세스 할 수 있습니다 (일반적으로 좋은 것은 아닙니다). FNumber과 같이 먼저 양식 인스턴스에 액세스해야합니다.

추신 : 정확한 시도가 무엇인지 알 수는 없지만 액티브 폼 목록을 제공하는 Screen.Forms을 살펴 보시기 바랍니다. 그것은 맞춤 목록보다 더 적합 할 수 있습니다.

Answer 2

양식의 Tag 속성을 사용하도록 코드를 변경하십시오. 정수 값을 저장하거나 개체 (.tag : = integer (MyObject)) 및 정수를 저장할 수있는 스크래치 패드 ...

max_forms := 3 

setlength(form_array, max_forms); 

form_array[1] := frm1; 
form_array[2] := frm2; 

if current_form > 0 then 
begin 
    form_array[current_form].Tag:= Number; 
    form_array[current_form].ShowModal; 
end;