[已解](Delphi) - StringToCaseSelect 哪里出錯？？

frankyhui

procedure TForm1.FormCreate(Sender: TObject);

function StringToCaseSelect
(Selector : String;
CaseList : Array of String) : Integer;

var cnt : Integer;

begin
Result := -1;
for cnt := 0 to Length(CaseList) -1 do

begin
if CompareText(Selector, CaseList[cnt]) = 0 then

begin
Result := cnt;
Break;

end;
end;
end;

{
Usage:
case StringToCaseSelect('Delphi',
['About','Borland','Delphi']) of
0:ShowMessage('Youve picked About');
1:ShowMessage('Youve picked Borland');
2:ShowMessage('Youve picked Delphi');
end;
}

end.

问题显示：BEGIN expected but END found 和 Declaration expected but end of file found
==========================================================

[ 本帖最後由 1910X3 於 2010-05-08 09:30 AM 編輯 ]