一个关于字符串的问题(70分)

我想问一下如果想比较两个字符串某字符前的字符串是否相同该如何比较？比如比较
“200200-1”和“200200-2”的“-”前的字符串是否相同该如何比较？

procedure TForm1.Button1Click(Sender: TObject);
var
str1,str2:string;
begin
str1:='200200-1';
str2:='200200-2';
str1:=copy(str1,1,pos('-',str1)-1);
str2:=copy(str2,1,pos('-',str2)-1);
if str1=str2 then showmessage('Same');
end;

接受答案了.