一定要指针试试: var p:pchar; i:integer; begin p:='abcdef'+#13; for i:=0 to strlen(p)-1 do if (p+i)^=#13 then showmessage('warp'); end;////////////////////////////////// var p:pchar; begin p:='abcdef#13'; if StrPos((p+i),'#13')<>nil then showmessage('warp'); end;
一定要指针试试: var p:pchar; i:integer; begin p:='abcdef'+#13; for i:=0 to strlen(p)-1 do if (p+i)^=#13 then showmessage('warp'); end;////////////////////////////////// var p:pchar; begin p:='abcdef#13'; if StrPos(p,'#13')<>nil then showmessage('warp'); end;
var
p:pchar;
i:integer;
begin
p:='abcdef'+#13;
for i:=0 to strlen(p)-1 do
if (p+i)^=#13 then
showmessage('warp');
end;//////////////////////////////////
var
p:pchar;
begin
p:='abcdef#13';
if StrPos((p+i),'#13')<>nil then
showmessage('warp');
end;
var
p:pchar;
i:integer;
begin
p:='abcdef'+#13;
for i:=0 to strlen(p)-1 do
if (p+i)^=#13 then
showmessage('warp');
end;//////////////////////////////////
var
p:pchar;
begin
p:='abcdef#13';
if StrPos(p,'#13')<>nil then
showmessage('warp');
end;