求一个简单的方法

Question

一个字符串 “2012-说明部分”怎么写一个方法只得到 “2012”function method(str:string)然后怎么写啊？？

Answer 1

function method(str:string):string
begin
    result:=LeftStr(str,4);
end;

Answer 2

function method(str: string): string;
begin
  Result := Copy(str, 1, Pos('-'))-1);
end;

Answer 3

function Method(str: String):String;
begin
  Result := Copy(str, 1, Pos('-', str) - 1);
end;

Answer 4

function method(str:string):string
begin
    result:=copy(str,1,4);
end;

Answer 5

刚才漏了一个参数
function method(str: string): string;
begin
  Result := Copy(str, 1, Pos('-', str))-1);
end;