delphi在MemoryStream查找字符串


delphi在MemoryStream查找字符串
var
s : string;
mem:TMemoryStream;

begin

mem := TMemoryStream.Create;

setlength(s, mem .size);
copymemory(@s[1], mem.memory, mem.size);
//pos('.....', s);
end;


联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678