提取一个字符串左边，或右变或中间的字符串

uses StrUtils; c:\program files\embarcadero\rad studio\11.0\SOURCE\RTL\SYS\System.SysUtils.pas   function  Trim( const  S:  string ):  string ; function  TrimLeft( const  S:  string ):  string ; function  TrimRight( const  S:  string ):  string ;

LeftStr( '1234567', 3);   MidStr( '1234567', 3, 2); //Copy   RightStr( '1234567', 3);

uses     StrUtils; //返回1个字符在字符串中的位置 *  procedure TForm1.Button3Click(Sender: TObject); begin     ShowMessage(IntToStr( Pos( '*',Edit1.Text)  )); end;   //返回*字符串左边的字符 procedure TForm1.Button1Click(Sender: TObject); begin    ShowMessage( LeftStr(Edit1.Text, Pos( '*',Form1.Edit1.Text) - 1 ) ); end;   //返回*字符串右边的字符 procedure TForm1.Button2Click(Sender: TObject); begin      ShowMessage( RightStr(Edit1.Text, Length(Edit1.text) - Pos( '*',Form1.Edit1.Text)  ) ); end;

来自为知笔记(Wiz)