请教delphi里面有没有可以指定截取一段字符串的一部分的函数啊？

Question

如
edit1.text有很长，
但是我只想用前面一部分，有没有这样的函数啊？

Answer 1

LeftStr(Edit1.Text,10);
取左边10个字符

Answer 2

LeftBStr(Edit1.Text,10);取左边10位字符

Answer 3

copy(Edit1.Text,从第几个,个数)  //在System单元中
  LeftStr(Edit1.Text,个数)    //delphi6中有  要引用 StrUtils单元    是对 WideString
  LeftBStr(Edit1.Text,个数) //delphi6 7中有 要引用 StrUtils单元     是对 AnsiString  {以下是delphi6中的定义。
  function LeftStr(const AText: AnsiString; const ACount: Integer): AnsiString; overload;
  begin
    Result := Copy(WideString(AText), 1, ACount);
  end;  function LeftStr(const AText: WideString; const ACount: Integer): WideString; overload;
  begin
    Result := Copy(AText, 1, ACount);
  end;  function LeftBStr(const AText: AnsiString; const AByteCount: Integer): AnsiString;
  begin
    Result := Copy(AText, 1, AByteCount);
  end;  function RightBStr(const AText: AnsiString; const AByteCount: Integer): AnsiString;
  begin
    Result := Copy(AText, Length(AText) + 1 - AByteCount, AByteCount);
  end;
  }

Answer 4

上边写错了，应该是"以下是delphi7中的定义".