请教大家一个record初始值的问题

Question

type TPoint = record
  Name: string;
  X:Double;
  Y:Double;
end;function FindPointByName(points: TPointArray; name: string): TPoint;
var
  i: integer;
begin
  for i:=Low(points) to High(points) do
  begin
    if SameText(points[i].Name,name) then
    begin
      result := points[i];
      break;
    end;
  end;
end;上述代码，如果未找到值，结果用什么判断？（不能用FindPointByName(points,'a')=nil来判断吧？）
请指教，谢谢。

Answer 1

FindPointByName(points, "a ")=''

Answer 2

不会吧？
record 类型，可以与''比较？？？

Answer 3

function   FindPointByName(points:   TPointArray;   name:   string):   TPoint; 
var 
    i:   integer; 
    BFind:Boolean;
begin 
    BFind := False;
    for   i:=Low(points)   to   High(points)   do 
    begin 
        if   SameText(points[i].Name,name)   then 
        begin 
            result   :=   points[i]; 
            BFind := True;
            break; 
        end; 
    end; 
    if (not BFind) then
      result := nil;
end;