在delphi中哪个函数类似SQL中的substring函数？（马上结单）

Question

在delphi中哪个函数类似SQL中的substring函数？（马上结单）

Answer 1

我是想用delphi中的函数,替换SQL中的函数
 if substring(trim(memo1.text),1,2)='解除' then
    ______________________________
画虚线处为SQL中的函数，用delphi函数怎么替换？

Answer 2

uses
  StrUtilsfunction IfThen(AValue: Boolean; const ATrue: string;
  AFalse: string = ''): string; overload;{ Basic-like functions / Left, Right, Mid }function LeftStr(const AText: AnsiString; const ACount: Integer): AnsiString; overload;
function LeftStr(const AText: WideString; const ACount: Integer): WideString; overload;function RightStr(const AText: AnsiString; const ACount: Integer): AnsiString; overload;
function RightStr(const AText: WideString; const ACount: Integer): WideString; overload;function MidStr(const AText: AnsiString; const AStart, ACount: Integer): AnsiString; overload;
function MidStr(const AText: WideString; const AStart, ACount: Integer): WideString; overload;{ Basic-like functions / LeftB, RightB, MidB 
  these functions don't care locale information.
}function LeftBStr(const AText: AnsiString; const AByteCount: Integer): AnsiString;
function RightBStr(const AText: AnsiString; const AByteCount: Integer): AnsiString;
function MidBStr(const AText: AnsiString; const AByteStart, AByteCount: Integer): AnsiString;{ Basic-like functions / Delphi style function name }function AnsiLeftStr(const AText: AnsiString; const ACount: Integer): AnsiString;
function AnsiRightStr(const AText: AnsiString; const ACount: Integer): AnsiString;
function AnsiMidStr(const AText: AnsiString; const AStart, ACount: Integer): AnsiString;

Answer 3

我的意思是返回memo1.text文本中有没有，'解除'两个字？

Answer 4

var
  v : Integer;
  s : String;
  b : Boolean;
begin
  B := False;
  for v := Memo1.Lines.count - 1 downto 0 do
  begin
    s := Memo1.Lines[v].String;
    AnsiReplaceStr(s,#13#10,'');
    if AnsiContainsStr(s,'解除') then
    begin
      B := True;
      Break;
    end 
  end;
  if Not B then
    ShowMessage('没有') else
    ShowMessage('有');
end;应该是这样，直接写的；

Answer 5

COPY就可以了
如 COPY(原字符, 从第几位开始,取几位);copy('yourstr',3,2)则返回值为ur

Answer 6

if copy(trim(memo1.text),1,2)='解除' then

Answer 7

Copy(SourceStr, Index, Count)

Answer 8

function Copy(S; Index, Count: Integer): string;
function Copy(S; Index, Count: Integer): array;