字符串截取

Question

abcd;1
我只要;号前面的abcd 
请问这字符串怎样取出来?谢谢.

Answer 1

先用 Pos 取得;号的位置，然后截取

Answer 2

var
  str,newstr:string;
begin
  str:='abcd;1';
  newstr:=copy(str,1,pos(';',str)-1);
end;

Answer 3

var
  newstr:string;
begin
  newstr:=copy('abcd;1',1,pos(';','abcd;1')-1);
  showmessage(newstr);
end;

Answer 4

function Copy(S; Index, Count: Integer): string;
function Copy(S; Index, Count: Integer): array;

Answer 5

leftstr(str,length)
本例length=4;