var s:string; begin s:=frreport1.FindObject('memo1').Memo.Text; showmessage(inttostr(pos(#13,s))) end;
var len, i:integer; strtmp:string; buf:array [0..100] of char; begin strtmp:=memo1.Lines.Text; len:=length(strtmp); zeromemory(@buf, sizeof(buf)); CopyMemory(@buf, PChar(strtmp),len); for i:=0 to len-1 do begin if buf[i]=#13 then showmessage('Enter Key Found!'); end; end;
begin
s:=frreport1.FindObject('memo1').Memo.Text;
showmessage(inttostr(pos(#13,s)))
end;
len, i:integer;
strtmp:string;
buf:array [0..100] of char;
begin
strtmp:=memo1.Lines.Text;
len:=length(strtmp);
zeromemory(@buf, sizeof(buf));
CopyMemory(@buf, PChar(strtmp),len);
for i:=0 to len-1 do
begin
if buf[i]=#13 then
showmessage('Enter Key Found!');
end;
end;