如何在Delphi中使用Default(T)测试泛型类型变量是否相等？
在Delphi中，使用Default(T)函数可以测试泛型类型变量是否相等。Default(T)函数返回类型T的默认值，例如对于整数类型，默认值为0，对于字符串类型，默认值为空字符串。
以下是一个示例代码，演示如何使用Default(T)函数测试泛型类型变量是否相等：
program TestDefault;
{$APPTYPE CONSOLE}
uses
SysUtils;
function IsEqual<T>(const A, B: T): Boolean;
begin
Result := A = B;
end;
var
A, B: Integer;
S1, S2: string;
begin
A := 1;
B := 1;
WriteLn(IsEqual<Integer>(A, B)); // True
S1 := 'Hello';
S2 := 'Hello';
WriteLn(IsEqual<string>(S1, S2)); // True
S1 := '';
S2 := 'Hello';
WriteLn(IsEqual<string>(S1, S2)); // False
ReadLn;
end.在上面的代码中，我们定义了一个泛型函数IsEqual<T>，它接受两个类型为T的参数，并返回它们是否相等的布尔值。在函数内部，我们使用=运算符来比较两个变量是否相等。
在主程序中，我们定义了两个整数变量A和B，以及两个字符串变量S1和S2。我们使用IsEqual<T>函数来测试它们是否相等，并将结果输出到控制台。
需要注意的是，Default(T)函数只能用于类型T的默认值，而不能用于任何类型的变量。如果需要测试任何类型的变量是否相等，可以使用Equals函数。
相关·内容
我正在尝试转换一些免费的Pascal代码，以便用Delphi10.2编译。
免费的Pascal代码的结构如下：
generic TVolume<T> = class(TObject)
// T has to be a numerical/float type
constructor Create(pSizeX, pSizeY, pDepth: integer; c: T = 0);
constructor Create(Original: TBits; pFalse: T = -0.5; pTrue: T = +0.5);
Delphi不喜欢这样：E2268
浏览 1提问于2018-07-07得票数 1
我正在将一个遗留的Delphi应用程序迁移到Delphi-XE2，我想知道是否有一个很好的理由将定义为Array of MyType的数组替换为TArray<MyType>。所以问题是用TArray<T>代替MyType的阵列有什么利弊呢？
浏览 2提问于2013-01-18得票数 32
回答已采纳
1回答
我一直在研究IEqualityComparer和IEquitable。
从这样的帖子来看，两者之间的区别现在已经很明显了。"IEqualityComparer是对T类型的两个对象执行比较的对象的接口。“
遵循的示例，IEqualityComparer的目的是明确和简单的。
我在上学习了如何使用它的示例，并得到了以下代码：
class clsIEquitable
{
public static void mainLaunch()
{
Person personOne = new Person() { Age = 6, Name = "Eva"
浏览 3提问于2016-06-09得票数 1
回答已采纳
2回答
如何根据泛型类型声明指针？
、、、、
我有一个这样的类：
type A = class
procedure<T> DoStuff(tPtr: ^T);
end;
但是当我尝试编译时，Delphi给出了这个错误：
[DCC Error] RPML.pas(57): E2029 Identifier expected but '^' found
如何在Delphi过程中使用指向参数化类型的指针？我不想让整个类成为模板类。
浏览 0提问于2011-03-18得票数 10
回答已采纳
有没有什么有效的方法来为delphi泛型添加特定类型的代码？例如，如下所示：
function TGT<T>.GetSize(a: T): integer;
begin
{$IF TypeInfo(T)=TypeInfo(String)}
result := Length(A);
{$ELSE}
result := SizeOf(A);
{$IFEND}
end;
function TGT<T>.Compare(a,b: T): integer;
begin
{$IF TypeInfo(T)=TypeInfo(String)}
浏览 2提问于2013-07-08得票数 1
回答已采纳
1回答
在尝试将泛型列表的实例传递给泛型方法时，我遇到了一个奇怪的Delphi (东京)编译器的限制，而将泛型数组传递给方法(1)编译器接受，一切都按预期工作。
(1) class procedure DoSomethingWithDynamicArray<T: class>(AArray: array of T);
(2) class procedure DoSomethingWithGenericArray<T: class>(AArray: TArray<T>);
(3) class procedure DoSomethingWithGenericList&l
浏览 1提问于2018-11-24得票数 0
回答已采纳
1回答
在中，有一个示例用例，然后是描述类型声明含义的解释性句子。我觉得这非常有用。读了几遍解释后，我觉得我明白它的意思了。
<T extends Comparable<? super T>> T max(Collection<T> coll);
有界通配符? super T传递max仅从可比接口调用的反变体方法所传递的信息。
有人能用类似的语言解释一下andThen()函数在java.util.function.Consumer @FunctionalInterface中的类型声明是什么意思吗？
public interface Consumer<T
浏览 1提问于2017-03-14得票数 1
回答已采纳
3回答
我有一个方法，带有从未使用过的泛型：
public struct dummy {}
public static int DoSomething<T1,T2,T3>(int someParameter, T1 a1 = default, T2 a2 = default, T3 a3 = default)
{
someParameter += 4;
return someParameter;
}
public static void Main()
{
var r1 = DoSomething<decimal, decimal, decimal>(
浏览 1提问于2018-07-13得票数 0
1回答
为什么以下内容会在Delphi (XE)中生成一个错误？
unit UTest;
interface
type
TTest = class
public
procedure Foo<T>(A: T);
end;
implementation
{ TTest }
procedure TTest.Foo<T>(A: T);
begin
A.Add('hej');
end;
end.
我认为Delphi中的泛型类型只是插入到泛型函数中，所以只有与没有Add(string)方法的类型一起使用时，它才会出错。
浏览 4提问于2013-08-26得票数 7
回答已采纳
在C++中，您可以显式地为模板化函数定义唯一的专门化，比如(到)
// A generic sort function
template <class T>
void sort(T arr[], int size)
{
// code to implement Quick Sort
}
// Template Specialization: A function
// specialized for char data type
template <>
void sort<char>(char arr[], int size)
{
//
浏览 0提问于2018-05-02得票数 2
1回答
type
TObjA = class
a: string;
end;
type
worker<T> = interface
function step1(v: integer): T;
function step2(s: string): T;
end;
type
ImplA<T> = class(TInterfacedObject, worker<T>)
function step1(v: integer): T;
function step2(s: string): T; virtual; a
浏览 0提问于2013-03-18得票数 1
回答已采纳
考虑以下Delphi 2010中泛型实用程序类的声明：
TEnumerableUtils = class
public
class function InferenceTest<T>(Param: T): T;
class function Count<T>(Enumerable: TEnumerable<T>): Integer; overload;
class function Count<T>(Enumerable: TEnumerable<T>; Filter: TPredicate<T>): Inte
浏览 1提问于2010-04-26得票数 6
回答已采纳
来自
SequenceEqual(IEnumerable，IEnumerable)方法并行枚举两个源序列，并使用默认的TSource ( Default )相等比较器比较相应的元素。默认相等比较器Default用于比较实现IEqualityComparer通用接口的类型的值。
( a)正如我所理解的，这意味着EqualityComparer<T>.Default用于比较实现IEqualityComparer<T>的类型的元素，而实际上Default用于返回调用IEquatable<T>.Equals (假设T可分配给IEquatable<T&g
浏览 8提问于2011-04-19得票数 3
回答已采纳
1回答
使用Delphi框架，可以向GlobalContainter注册泛型类型吗？我想做这样的事：
TMyBaseType = class
protected
FName: string;
function GetName: string; virtual;
procedure SetName(Value: string); virtual;
public
property Name: string read GetName write SetName;
end;
TMyFirstThing = class(TMyBaseType)
protected
function Get
浏览 5提问于2014-03-26得票数 5
回答已采纳
我正在从事Delphi 10.2东京的工作，面临着以下情况： 假设我有以下步骤来验证对象的属性： procedure TGenericUnit.VerifyProps<T>(_AObj: T);
var
AContext: TRttiContext;
AType: TRttiType;
AProp: TRttiProperty;
begin
AType := AContext.GetType(T);
for AProp in AType.GetProperties do
if AProp.PropertyType is TObject t
浏览 37提问于2019-03-21得票数 0
回答已采纳
我有一个自定义HtmlHelper，在这里我试图获取泛型类型属性的值。我的ViewModel具有ChangeRequestFormField类型的属性。我的ViewModel、类/接口和html助手的相关部分如下所示。
在我的助手中，我需要从我的IsRequired属性访问ValueHasChanged和ViewModel属性。这对于ChangeRequestFormField来说很好。但是，当我到达ChangeRequestFormField时，会出现以下错误：
无法将'StaffChanges.Models.ChangeRequestFormField1[System.Nulla
浏览 2提问于2013-10-15得票数 0
回答已采纳
1回答
我正试图在delphi下创建一个名为TRange的泛型类。它的想法是，它可以是一个范围的整数，或范围单一，或加倍，等等.
TRange对象包含一些类型为T的变量(maxValue、minValue、idealValue等)。TRange包含一个函数，让每个函数将它们转换为字符串。但是，由于Delphi是一种强类型语言，我需要指定“如何-来”将不同的变量转换为字符串。
我可以使用typeName (TypeInfo (T))获得T类型的TypeInfo。一旦我知道哪一种类型是T，我想我可以做这样的事情：
if(className = 'single') then
result
浏览 0提问于2011-05-25得票数 2
我正在尝试在Swift中创建一个泛型测试函数，用于测试一个可以改变其参数的函数。但是，我收到一个错误消息，我找不到解决的方法： public func testMutating<T: Comparable>(id: Int, input: T, output: T, testObj: (T) -> Any) {
var inputMutating = input // Make a mutable copy of input
_ = testObj(&inputMutating) // Compiler error: Argument type
浏览 15提问于2019-12-20得票数 1
回答已采纳
5回答
我正在尝试创建一个用于tiOPF ( delphi @www.tiopf.com的对象持久化框架)的泛型列表类。具体地说，我正在尝试获取一个现有的泛型类(TtiObjectList)，并创建一个使用TtiObject后代的泛型版本。
我修改基类的范围有限，因为它们需要在D7 - D2009和Free Pascal下编译。我需要继承TtiObjectList来保持现有的持久化机制正常工作。
// base class
type
TtiObjectList = class(TtiObject)
...
protected
function GetItems(i: integ
浏览 1提问于2009-02-24得票数 2
回答已采纳
我想开始使用泛型和匿名方法，主要是为了了解它们的全部内容以及我为什么想要使用它们。
在Delphi2009中，我经常读到泛型和匿名方法没有完全实现或有buggy，这在Delphi2010中得到了修复。
我不想去怀疑这是我的错还是Delphi2009中的一个bug，每次都有一些东西没有像我期望的那样工作。
我的问题是：
在Delphi2009中使用泛型和匿名方法时，我到底会遇到什么问题？
我应该避免什么？
浏览 0提问于2010-08-07得票数 6
回答已采纳
3回答
我有一个叫做SomeProtocol的协议
我想创建一个函数，获取一个符合此协议的对象，并将其添加到一个数组中。
然后，我有另一个函数从这个数组中删除一个对象。
var allObjs = [SomeProtocol]()
func addObj<T: AnyObject where T: SomeProtocol>(obj: T) {
allObjs.append(obj)
}
func removeObj<T: AnyObject where T: SomeProtocol>(obj: T) {
for someObj in allObjs {
浏览 0提问于2015-07-02得票数 4
2回答
这是我在这里的第一个问题，很高兴找到这个网站。
我的问题涉及到Delphi2009中的新泛型特性。基本上，我尝试为现有的散列映射实现编写一个通用包装器类。现有的实现存储(字符串，指针)对，因此在包装器类中，我必须在泛型参数类型T和指针类型之间进行转换，反之亦然。
type THashMap <T : class> = class
private
FHashList : THashList;
...
end;
我想了一个这样的造型(Value : T)
Value := (TObject (Ptr)) as T
但这不管用。编译器告诉我“运算符不适用于此操作数类型”。
浏览 6提问于2009-02-04得票数 5
回答已采纳
2回答
元组实现
、
我已经实现了一些版本的元组类，我真的想从中学到更多。
你能告诉我在我的实现中我遗漏的一些要点吗？
class My_tuple<T1, T2> : EqualityComparer<My_tuple<T1, T2>>
{
#region Virables
public T1 First { get; private set; }
public T2 Second { get; private set; }
#endregion
#region Constractors
public My_tup
浏览 0提问于2010-08-16得票数 2
回答已采纳
1回答
最好让泛型属性getter/setter对每个访问执行公共任务。
该代码在Delphi XE2 'E2008不兼容类型‘中给出了编译时错误。类似的代码在编译过程中出现内部错误，但从不编译。我是犯了一个错误还是它是编译器的限制？
type TFoo = class
private
function Get<T>: T;
public
property Bar: Integer read Get<Integer>;
end;
function TFoo.Get<T>: T;
begin
Result := 0;
end;
浏览 6提问于2019-12-19得票数 3
回答已采纳
1回答
我发现了静态泛型类，但它不适用于.NET Framework4.7
来源：
public class Wrapper
{
public static Wrapper<T> Create<T>(T wrapped)
{
return new Wrapper<T>(wrapped);
}
}
也发现了，但是它说该类不是泛型类。
浏览 0提问于2019-09-01得票数 0
回答已采纳
1回答
根据我的理解，基于微软的文档。当您实现接口时，您也不得不实现。根据我的理解，这意味着我需要为MoveNext()、Reset()和property current{get;}等方法提供一个定义。
但我遇到了一个不符合我理解的片段：
class Option<T> : IEnumerable<T>
{
private IEnumerable<T> Content { get; }
private Option(IEnumerable<T> content)
{
浏览 1提问于2020-01-01得票数 0
回答已采纳
2回答
在c#中的get属性中使用模板有一些问题。以下课程没有问题：
public class test
{
public T GetDefault<T>()
{
return default(T);
}
}
但是我想使用get属性，然后出现了一个错误
意外使用泛型名称
守则如下：
public class test
{
public T Default<T> => default<T>;
}
浏览 1提问于2019-11-07得票数 2
回答已采纳
3回答
我是德尔福新来的。对于我的公司需要的项目，我需要将一些代码从我们现有的C++类转换到Delphi。其中一些类是模板，例如：
template <class T>
struct APoint
{
T m_X;
T m_Y;
virtual void Add(T value);
};
template <class T>
void APoint<T>::Add(T value)
{
m_X += value;
m_Y += value;
}
我使用它，例如与以下代码一起使用
APoint<float> pt
浏览 1提问于2016-10-15得票数 8
回答已采纳
1回答
我有一个必须返回泛型接口的方法。尝试在delphi中制作该方法。但不确定该怎么写呢？有人能帮我吗？下面是我在Java中所做的一个示例，它可以工作：
public < T extends StandardDataProvider<?>> T GetDataProvider(String dataProviderName) {
if (dataproviders == null)
buildDataProviderMap();
if (dataproviders.containsKey(dataProviderName)) {
浏览 6提问于2013-11-04得票数 3
回答已采纳
1回答
我正在将一个用Delphi2007编写的应用程序迁移到Delphi Prism，哪个是替换TList类的最佳选择？
提前谢谢。
再见。
浏览 5提问于2009-09-09得票数 2
回答已采纳
1回答
Future dioGet<T extends BaseModel>(String path,T model)async{
...asdsasa
}
abstract class BaseModel<T>{
Map<String,dynamic> toJson();
T fromJson(Map<String,Object> json);
}
在上面的dioGet函数中，(T扩展BaseModel).What这样做吗？
函数返回BaseModel对象吗？
或者，需要从BaseModel扩展到函数的对象？
浏览 7提问于2022-04-01得票数 0
我对C#和Dapper相当陌生。我试图为我的项目编写一个通用的Insert数据方法。我来自一个Delphi环境，所以我仍然在C#周围找到我的路。
Dapper似乎相当直接地使用，但我正在经历一些挑战。我试过每一种方法都能正确地使用下面的代码，但是没有成功。
问题似乎围绕着T (我仍然不太明白T是什么)，而且我尝试过的所有组合都不起作用。
public async Task<int> InsertData<T>(T list)
{
string connectionString = _config.GetConnectionString(ConnectionStr
浏览 4提问于2021-07-21得票数 2
回答已采纳
我想把我的C++代码转换成Delphi代码。但是我从Delphi编译器获得了这个错误：Declaration of 'callFunction<T>' differs from previous declaration。
我的C++代码：
class Example
{
public:
template<typename T>
static void callFunction(const T value);
};
template<>
void Example::callFunction<int>(const int v
浏览 5提问于2017-01-18得票数 1
回答已采纳
我最近编写了这段代码，作为Convert.ChangeType的一个更多用途的替代品。我非常最近发布了一个早期版本，为此我收到了一些很好的反馈。我已经整合了这些反馈，并进一步重构，试图简化该方法的流程。
/// <summary>
/// Returns an object of type <typeparamref name="T"/> whose value is equivalent to that of the specified
/// object.
/// </summary>
浏览 0提问于2014-12-23得票数 3
回答已采纳
1回答
最近，我一直在开发一个应用程序，并希望拥有几种类型的集合。我不想为它的类型声明和实现一个新的集合类。因此，我考虑使用泛型，但不确定泛型与普通类型实例相比的性能。性能是我关注的主要内容。我的应用程序是时间关键型的，即使损失100毫秒也是不可取的。
我使用的是Delphi XE3
例如：
ICollectionItem = interface
function GetID : string;
property ID : string read GetId;
end;
TGenericCollection<T: ICollectionItem> = class
functi
浏览 1提问于2013-02-12得票数 9
回答已采纳
这就是我想要达到的目标：
program Project4;
{$APPTYPE CONSOLE}
type
TGenericClass<T> = class
public type
THandler = procedure(aParam: T);
end;
TMyClass = class(TGenericClass<TObject>)
public
procedure DoSomething(aHandler: TMyClass.THandler);
end;
procedure TMyClass.DoSomethin
浏览 2提问于2014-10-02得票数 0
回答已采纳
1回答
给定以下声明
interface Base<A> { }
interface Special<A,B> extends Base<A> { }
<T> void foo(Base<T> b) {}
<T> void foo(Special<?,T> s) {}
为什么我得到以下代码的编译错误：
Special<String, Integer> s = null;
foo(s); // error: reference to foo is ambiguous
顺便说一下，这个问题可以通过将第二个
浏览 0提问于2015-03-23得票数 8
1回答
Delphi是否支持 / 的泛型，例如Scala？
我在Embarcadero的文档中没有找到任何关于它的信息：
此外，在“Generics中的约束”中有一个针对类型界限的隐式提示：
约束项包括：
0、1或多个接口类型
零或一类类型
保留词“构造函数”、“类”或“记录”
可以为约束指定“构造函数”和“类”。然而，“记录”不能与其他保留字结合。多个约束充当一个附加的联合(“和”逻辑)。
示例：
让我们看看下面Scala代码中的行为，它演示了上限类型限制的用法。我发现了这个例子
class Animal
class Dog extends An
浏览 0提问于2018-09-24得票数 10
回答已采纳
2回答
由于某些原因，C#不允许在泛型类中使用==操作符，如下所示：
class Mine<T> where T : struct
{
T val;
public T Value
{
set
{
if (val == value) // Operator '==' cannot be applied to operands of type T and T happens here
{
// .. do something ...
浏览 3提问于2016-12-29得票数 9
回答已采纳
2回答
我有一个generic class GenericClass<T>，因为某种原因，我需要从另一个类型传递泛型类型，比如：
假设我有一些classes，从NormalClass1到NormalClassN，所有这些都有属性，比如prop1和不同的types，我需要这样做
var type1 = typeof(NormalClass1).GetProperty("prop1").GetType();
并将type1发送到GenericClass的新实例，如下所示：
var instance = new GenericClass<type1>();
但是出现
浏览 5提问于2015-05-26得票数 1
回答已采纳
2回答
我正在用C#编写一个通用方法：
private T GetMamConfigurations<T>(IDictionary<string, object> items,
MaMDBEntities maMDBEntities) where T : class
{
T geoConfigs = default(T);
if (typeStr.Equals("MamConfiguration", StringComparison.OrdinalIgnoreCase))
浏览 0提问于2013-04-02得票数 0
回答已采纳
4回答
func myfunc<T>(i:T) -> T {
return i
}
是否有可能使这个泛型函数成为一个闭包？
let myfunc = { <T>(i:T) -> T in
return i
}
这不管用..。
浏览 13提问于2014-08-28得票数 39
回答已采纳
1回答
我正在使用Delphi 2010
我得到一个错误:在接口部分声明的参数化类型的E2506方法不能使用局部符号。
有没有办法完成这项任务？
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Rtti;
type
MyFormType<T: TForm> = class
class procedure SpecialOpen(var FormVar: T; Params
浏览 3提问于2012-08-03得票数 0
1回答
是否有任何方法在运行时创建Task<T>，其中T是仅在运行时已知的类型？我想为Task<T>创建默认值为T，但在获得T的默认值并使用Task.FromResult(default_value)之后，我将获得Task<object>而不是Task<T>，因为在大多数情况下，默认值为null。有办法解决这个问题吗？
static void Main(string[] args)
{
var type = typeof(string); // fin real code type resolved in runt
浏览 0提问于2018-07-12得票数 0
回答已采纳
2回答
泛型定义
、、
我无法理解整个泛型声明，即使在阅读了无数关于Java的文章和条目之后，他们似乎都没有用简单明了的方式来解释它。有人能解释一下吗？：
class Something<T> {...}
我知道T是什么，而且我知道，当我们想要为传入的任何类型的对象编写一个通用定义/方法时，我们使用泛型，而不是为一种类型的对象扩展编写不同类型的方法，我们编写一个泛型方法，它可以包含一个或多个类型(因此是大写T)。但我最喜欢的一件事是下一个声明例子：
public <T extends Comparable<T>> void Something{...}
首先，可比性是一个接口，而不
浏览 3提问于2013-11-07得票数 1
回答已采纳
2回答
T型默认值
、、
我有几种扩展方法，如ParseInt、ParseLong、ParseByte。现在，我尝试为所有这些扩展方法创建一个单独的扩展方法。问题是，要使Default参数可选，我必须给它一个类似于T Default = 0的值，但是它会生成错误：
类型'int‘的值不能用作默认参数，因为没有标准的转换到'T’类型。
如果我像使用T Default = (T)0一样使用它，那么我会得到另一个错误：
无法将'int‘转换为'T’
这是我的扩展方法：
public static T Parse<T>(this string x, T Default
浏览 3提问于2016-11-23得票数 0
回答已采纳
有这些相当精心设计的类型定义
trait Generic<T> {
fn some(&self) -> T;
}
impl<T> Generic<T> for i32
where
T: Default,
{
fn some(&self) -> T {
T::default()
}
}
我想调用some方法显式指定T类型，下面的代码显然不起作用，因为该方法本身并不是泛型的。
fn main() {
let int: i32 = 45;
println!( "s
浏览 1提问于2019-12-25得票数 6
回答已采纳
2回答
Delphi中的编码有关于接口约束的示例：
1 type
2 IStoppable = interface
3 procedure Stop;
4 end;
5
6 TWidget<T: IStoppable> = class
7 FProcess: T;
8 procedure StopProcess;
9 end;
10
11 { TWidget<T> }
12
13 procedure TWidget<T>.StopProcess;
14 be
浏览 1提问于2016-09-12得票数 4
回答已采纳
在编写包含泛型变量的类时
public class ServiceInvoker<TService> : IDisposable
{
private TService _Service;
public ServiceInvoker()
{
_Service = Activator.CreateInstance<TService>();
}
public void Invoke(Action<TService> action)
{
// CAN use null
浏览 2提问于2011-02-23得票数 8
回答已采纳
3回答
嘿，伙计们，我把一些复杂的需求移到了我需要知道的核心。
我想向一个方法发送一个值的集合，在这个方法中，我想对一个实体的一个属性来测试这个值。属性将始终与值具有相同的类型。
我还想测试该值是null还是默认值，这显然取决于该值类型是引用类型还是值类型。
现在，如果发送给该方法的所有值都是相同类型的，那么我可以使用泛型来完成这一任务，非常容易，如下所示：
public static void testGenerics<TValueType>(List<TValueType> Values) {
//test null/default
for
浏览 5提问于2009-06-26得票数 2
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
实时音视频
即时通信 IM活动推荐
腾讯云开发者
