字符串截取,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;