delphi - 返回属性值的类的Delphi静态方法

Question

我正在制作一个Delphi VCL应用程序。我有一类TStudent，其中有两个静态函数：一个从TStudent数组返回姓氏，另一个返回学生的名字。他们的代码类似于：

class function TStudent.FirstNameOf(aLastName: string): string;
var i : integer;
begin
  for i := 0 to Length(studentsArray) - 1 do begin
    if studentsArray[i].LastName = aLastName then
    begin
       result := studentsArray[i].FirstName;
       Exit;
    end;
  end;
  result := 'no match was found';
end;

class function TStudent.LastNameOf(aFirstName: string): string;
var i : integer;
begin
  for i := 0 to Length(studentsArray) - 1 do begin
    if studentsArray[i].FirstName = aFirstName then
    begin
       result := studentsArray[i].LastName;
       Exit;
    end;
  end;
  result := 'no match was found';
end;

我的问题是如何避免编写几乎相同的代码两次。有什么方法可以将属性作为函数的参数传递。

Answer 1

我还没有测试过，但是我相信这可能是一种解决方案。

uses TypInfo;

class function TStudent.GetProperty( propertyName: string, searchValue : Variant ) : Variant ;
var i : integer;
begin
  for i := 0 to Length(studentsArray) - 1 do begin
    if GetPropValue( studentsArray[i], propertyName ) = searchValue 
       result :=  GetPropValue( studentsArray[i], propertyName );
  end;
  // your code in case of not finding anything

end;