Bir const dizisinin türlerini ve değerlerini nasıl edinebilirim?

Question

Delphi geliştirmemde, Bir prosedüre bir "const of const" (bu da sınıfı da içerebilir) iletmek istiyorum ve elemanlar üzerinde işlem döngüsünde ve eleman türünü feryat olarak algılamak istiyorum.

Procedure Test(const Args : array of const); 
begin 
end; 

and in my code call it with some variables 

Procedure Test(); 
begin 
    cls := TMyObject.create; 
    i := 123; 
    j := 'book'; 
    l := False; 
    Test([i,j,l, cls, 37.8]) 
end; 

Gönderilen dizi öğeleri nasıl döngülenir ve türünü algılar? Size varsayarsak

Answer 1

for I := Low(Args) to High(Args) do 
    case TVarRec(Args[I]).VType of 
    vtInteger: 
     ... 
    end; 

Answer 2

Unicode Delphi kullanarak edilmektedir (aksi takdirde, dize davayı değiştirmek zorunda):

procedure test(const args: array of const); 
var 
    i: Integer; 
begin 
    for i := low(args) to high(args) do 
    case args[i].VType of 
     vtInteger: ShowMessage(IntToStr(args[i].VInteger)); 
     vtUnicodeString: ShowMessage(string(args[i].VUnicodeString)); 
     vtBoolean: ShowMessage(BoolToStr(args[i].VBoolean, true)); 
     vtExtended: ShowMessage(FloatToStr(args[i].VExtended^)); 
     vtObject: ShowMessage(TForm(args[i].VObject).Caption); 
     // and so on 
    end; 
end; 


procedure TForm4.FormCreate(Sender: TObject); 
begin 
    test(['alpha', 5, true, Pi, Self]); 
end;