D delphi4.0 Unregistered / Unconfirmed GUEST, unregistred user! 1999-04-20 #1 我把一个文本文件放入tmemorystream中处理以后,我想把处理的结果 放入字符串中(不经过文件)请各位执教
茶 茶叶蛋 Unregistered / Unconfirmed GUEST, unregistred user! 1999-04-20 #2 memory.position := 0; memory.Read( buffer, 210 ); for counter := 0 to 200do String1 := String1 + buffer[ counter ]; memory : TMemoryStream buffer : array[1..n] of char;
memory.position := 0; memory.Read( buffer, 210 ); for counter := 0 to 200do String1 := String1 + buffer[ counter ]; memory : TMemoryStream buffer : array[1..n] of char;
Z zhaoyipeng Unregistered / Unconfirmed GUEST, unregistred user! 1999-04-20 #3 var S: String; Memory.Seek(0, soFrombegin ning); SetLength(S, Memory.Size); Memory.Read(S[1], Memory.Size);
var S: String; Memory.Seek(0, soFrombegin ning); SetLength(S, Memory.Size); Memory.Read(S[1], Memory.Size);
D dragonhh Unregistered / Unconfirmed GUEST, unregistred user! 1999-04-22 #4 S:string; Buffer:array[1..MaxLength+1] of char; MemoryStream:TmemoryStream; begin length:=MemoryStream.size; MemoryStream.position:=0; MemoryStream.ReadBuffer(buffer,MemoryStream.size); buffer[MemoryStream.size+1]='0'; s:=Buffer; end;
S:string; Buffer:array[1..MaxLength+1] of char; MemoryStream:TmemoryStream; begin length:=MemoryStream.size; MemoryStream.position:=0; MemoryStream.ReadBuffer(buffer,MemoryStream.size); buffer[MemoryStream.size+1]='0'; s:=Buffer; end;
