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

downkey 2003-12-11 11:08:27

...全文

249 15 打赏收藏转发到动态举报

写回复

用AI写文章

15 条回复

切换为时间正序

请发表友善的回复…

发表回复

nxfbccu 2003-12-11

打赏
举报

Copy(SourceStr, Index, Count)

manfeng 2003-12-11

打赏
举报

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

jmf2000 2003-12-11

打赏
举报

COPY!!!!

gencan 2003-12-11

打赏
举报

copy(trim(memo1.text),1,2);

mbzdh 2003-12-11

打赏
举报

COPY就可以了
如 COPY(原字符, 从第几位开始,取几位);

copy('yourstr',3,2)则返回值为ur

downkey 2003-12-11

打赏
举报

有没有一个函数直接返回子串？

ExploiterSoft 2003-12-11

打赏
举报

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;

应该是这样，直接写的；

downkey 2003-12-11

打赏
举报

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

ExploiterSoft 2003-12-11

打赏
举报

uses
StrUtils

function 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;

downkey 2003-12-11