델파이 : generics and 'is'-operator problem

Question

이전 post을 기반으로 다음 코드를 작성했습니다. 이 게시물의 자세한 내용을 용서해주십시오. 모든 당사자가 전체 코드를 테스트하고 의견을 제시 할 수 있도록하는 것이 더 바람직하다고 생각합니다. 현실 세계에서 TInt 및 TStr의 생성자뿐만 아니라 Low, High: integer 및 Length: integer 매개 변수를 활용하는 것이

는

program sandbox; 
{$APPTYPE CONSOLE} 

uses 
    SysUtils, 
    Generics.Collections; 

type 
    TDataType = class 
    // Stuff common to TInt and TStr 
    end; 

    TInt = class(TDataType) 
    FValue: integer; 
    constructor Create(Value, Low, High: integer); 
    end; 

    TStr = class(TDataType) 
    FValue: string; 
    constructor Create(Value: string; Length: integer); 
    end; 

    TSomeClass = class 
    FIntList: TList<TInt>; 
    FStrList: TList<TStr>; 
    procedure AddToList<T: TDataType>(Element: T); 
    constructor Create(); 
    procedure Free(); 
    end; 

constructor TInt.Create(Value, Low, High: Integer); 
begin 
    inherited Create(); 
    FValue := Value; 
end; 

constructor TStr.Create(Value: string; Length: Integer); 
begin 
    inherited Create(); 
    FValue := Value; 
end; 

procedure TSomeClass.AddToList<T>(Element: T); 
begin 
    if TObject(Element) is TInt then 
    FIntList.Add(Element) 
    else if TObject(Element) is TStr then 
    FStrList.Add(Element); 
end; 

constructor TSomeClass.Create(); 
begin 
    inherited; 
    FIntList := TList<TInt>.Create(); 
    FStrList := TList<TStr>.Create(); 
end; 

procedure TSomeClass.Free(); 
var 
    SomeIntItem: TInt; 
    SomeStrItem: TStr; 
begin 
    for SomeIntItem in FIntList do begin 
    SomeIntItem.Free(); 
    end; 

    for SomeStrItem in FStrList do begin 
    SomeStrItem.Free; 
    end; 

    FIntList.Free(); 
    FStrList.Free(); 
end; 

var 
    Inst: TSomeClass; 

begin 
    try 
    { TODO -oUser -cConsole Main : Insert code here } 

    Inst := TSomeClass.Create; 
    Inst.AddToList(TInt.Create(100, 0, 101)); 
    Inst.AddToList(TStr.Create('Test', 10)); 
    Inst.Free; 

    except 
    on E:Exception do 
    Writeln(E.Classname, ': ', E.Message); 
    end; 
end. 

참고. if TObject(Element) is TInt then에 "E2089 Invalid typecast"가 있고, Delphi 2009를 실행하는 else if TObject(Element) is TStr then에 있습니다. 왜 이런 일이 발생하는지 알고 계십니까?

편집 : TInt 및 TStr은 아마도 10-20 개의 다른 유형 중 2 가지 일뿐입니다. 그렇지 않으면 작업에 대한 공구 인 이 과부하됩니다. :)

Answer 1

디자인을 다시 말하십시오.

procedure Add (SomeString : TString); overload; 
procedure Add (SomeInt : TInt); overload; 

을 아니면 해당 매개 변수에 is를 사용하여, 다형성 Gamecat 제안 일을 사용하고 단지 매개 변수로 기본 유형을 전달하려면 : 당신은 다음과 같이 제네릭 형식 매개 변수 대신에 과부하를 사용할 수 있습니다

procedure Add (Element : TDataType);   

Rob이 이전 질문에 대한 의견에서 지적한 것처럼 Rob은 두 가지 유형 만 허용하고 실제 유형을 기반으로하는 조건을 사용하면 실제로는 일반적이지 않습니다. 따라서 제네릭은 잘못된 도구 일 수 있습니다.

희망이 있습니다.

Answer 2

제네릭에는 문제가 없습니다. TDataType을 TInt 또는 TStr이 필요한 목록에 추가합니다.

procedure TSomeClass.AddToList<T>(Element: T); 
begin 
    if TObject(Element) is TInt then 
    FIntList.Add(TInt(Element)) 
    else if TObject(Element) is TStr then 
    FStrList.Add(TStr(Element)); 
end; 

문제를 해결합니다.

는하지만 사용하지 이유 :

procedure TSomeClass.AddToList(Element: TDataType); 
begin 
    if Element is TInt then 
    FIntList.Add(TInt(Element)) 
    else if Element is TStr then 
    FStrList.Add(TStr(Element)); 
end;