delphi 字符串截取，SubString

字符串截取，SubString

procedure TForm12.btn1Click(Sender: TObject);
var
  wokao: string;
begin
  wokao := 'abcde_fgdcdc';
  ShowMessage(IntToStr(wokao.IndexOf('_')));//5
  ShowMessage(wokao.Substring(0,wokao.IndexOf('_')));//abcde
  ShowMessage(wokao.Substring(wokao.IndexOf('_') , length(wokao)-)-wokao.IndexOf('_') );//取'_'后面的数据
  copy(wokao,pos('_',wokao) , length(wokao)-)-wokao.IndexOf('_') );

end;