procedure TForm12.btn1Click(Sender: TObject);var wokao: string;begin wokao := 'abcde_fg'; ShowMessage(IntToStr(wokao.IndexOf('_')));//5 ShowMessage(wokao.Substring(0,wokao.IndexOf('_')));//abcdeend;
本文共 251 字，大约阅读时间需要 1 分钟。
procedure TForm12.btn1Click(Sender: TObject);var wokao: string;begin wokao := 'abcde_fg'; ShowMessage(IntToStr(wokao.IndexOf('_')));//5 ShowMessage(wokao.Substring(0,wokao.IndexOf('_')));//abcdeend;
转载于:https://www.cnblogs.com/del88/p/5484468.html