양식을 동적으로 전송하십시오.

Question

작성된 모든 adoquery를 닫고 (임의의) 양식에서 열려는 절차를 작성 중입니다. 문제는 구성 요소를 식별하기 위해 양식에 대한 형변환을해야한다는 것입니다. 예제와 같이 동적 캐스트를 만들려면 어떻게해야합니까?

나는이 코드입니다이

Procedure OpenADODataSets(Form:TForm;FormType:TClass); 
... 
... 
(Form as FormType).ComponentCount 

또는

Procedure OpenADODataSets(Form:TForm;FormType:TClass); 
... 
... 
FormType(Form).ComponentCount 

뭔가를해야합니다. (내가 주석으로) 당신이 (FormType 같은 양식) 필요합니까 왜 @Edelcom

Procedure OpenADODataSets(Form:TForm); 
var 
    i: integer; 
begin 

    for i:=0 to Form.ComponentCount-1 do 
    if Form.Components[i].ClassType=TADOQuery then 
     if not TADOQuery(Form.Components[i]).Active then 
     TADOQuery(Form.Components[i]).Open; 

end; 

Answer 1

의 대답 해결

Procedure OpenADODataSets(Form:TForm;FormType:TClass); 
var 
    i: integer; 
begin 

    for i:=0 to (Form as FormType).ComponentCount-1 do 
    if (Form as FormType).Components[i].ClassType=TADOQuery then 
     if not TADOQuery((Form as FormType).Components[i]).Active then 
     TADOQuery((Form as FormType).Components[i]).Open; 

end; 

UPDATE

문제.

procedure TProgSettingsVisual.FillStandardSaveFilesForForm(const pForm: TForm;); 
var i : integer; 
    x : string; 
    thisComponent : TComponent; 
begin 
    With pForm do 
    begin 
     for i := 0 to ComponentCount-1 do 
     begin 
     thisComponent := Components[i]; 

     x := LowerCase(Components[i].ClassName); 


     if x = 'tovcinifilestore' 
     then begin 
      TOvcIniFileStore(Components[i]).IniFileName := FormSaveFile(pForm); 
     end; 

     if x = 'tovdformstate' 
     then begin 
      ... 
     end; 

     if x = 'tovccomponentstate' 
     then begin 
       ... 

Answer 2

타입 캐스팅의 목적이 그 식별자를 사용하여 올바른 코드를 생성 할 수 있도록 컴파일러에게 식별자의 종류를 이야기하는 것입니다 잘 작동 내 자신의 코드의 일부를 보았다. 원하는 형식이 변수에 저장되면 컴파일러는 형식 검사를 수행 할 수 없습니다. FormType의 런타임 값이 Components 속성을 가진 형식이므로 코드를 컴파일 할 수 없음을 확인할 수 없습니다.

유형이 무엇인지 모르는 경우 유형을 유형 변환 할 수 없습니다. 그렇게 할 필요가 있음을 알게되면, 당신은 잘못된 행동을하고있는 것입니다. 당신이 정말로하려고하는 것에 관한 질문을 게시하십시오. ("XY 문제."를 참조하십시오.)

귀하의 경우, 여러 가지 형태로 작동하는 함수를 작성하는 것이 좋습니다. 그러나 양식 객체에서 사용중인 모든 속성은 TForm 또는 이전에 소개 된 속성이기 때문에 모든 양식 유형에서 실제로 사용할 수 있습니다. 실제로 사용하는 속성은 TComponent에 있으며 모든 구성 요소는 다른 구성 요소를 소유 할 수 있으므로 모두 Components 및 ComponentCount 속성을가집니다. 코드가 구성 요소 유형과 동일하게 작동 할 수 있으므로 양식의 특정 유형을 알 필요가 없습니다. 델파이 2005 년

procedure OpenADODataSets(Owner: TComponent); 
var 
    i: Integer; 
begin 
    for i := 0 to Owner.ComponentCount - 1 do 
    if Owner.Components[i] is TADOQuery 
     and not TADOQuery(Owner.Components[i]).Active then 
     TADOQuery(Owner.Components[i]).Open; 
end; 

심지어 :

procedure OpenADODataSets(Owner: TComponent); 
var 
    comp: TComponent; 
begin 
    for comp in Owner do 
    if comp is TADOQuery 
     and not TADOQuery(comp).Active then 
     TADOQuery(comp).Open; 
end; 

데이터 세트가 이미 그들 자신을 열기 전에 활성있어 여부를 확인하기 때문에, 당신은 정말 먼저 확인하지 않아도 :

if comp is TADOQuery then 
    TADOQuery(comp).Open;