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

uses StrUtils;

c:program filesembarcadero ad studio11.0SOURCERTLSYSSystem.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)