请教大家一个record初始值的问题
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来判断吧？）
请指教，谢谢。
[解决办法]
FindPointByName(points, "a ")=''
[解决办法]
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;
[解决办法]
楼上正解
