我写了这个函数,它比较字符串,如果匹配则返回 TRUE,如果不匹配则返回 FALSE。
唯一的问题是,当我编译时,我得到一个错误,说结果可能是未定义的。我知道这不是问题,因为在这种特殊情况下只有两种可能的结果,但我是一个完美主义者,我想变得更好。你们中的任何人都可以启发我吗?
function filterUPC(upc: String): Boolean;
var
i, pos1: integer;
Plano: TStringList;
upcPlano: String;
begin
Plano := TStringList.Create;
if (fmMain.lblPlanook.Visible) and
not (fmMain.lblPlanook.Caption = 'INCOMPATIBLE') then
begin
Plano.LoadFromFile(fmMain.ebPlano.Text);
for i := 0 to Plano.Count - 1 do
begin
pos1:=AnsiPos(';', Plano[i]);
upcPlano := AnsiMidStr(Plano[i], pos1 + 1, 12);
if (upc = upcPlano) then
begin
Result := TRUE;
Break;
end
else if (i = Plano.Count - 1) then
begin
Result := FALSE;
end;
end;
end
else
begin
Result := FALSE;
end;
Plano.Free;
end;