K kingdom Unregistered / Unconfirmed GUEST, unregistred user! 2001-06-01 #1 将文本文件用loadfromfile 至Tmemorystream,我想将字符串从中读出, 用TStringStream,该怎么做?有没有BinaryToText这样的东东?
T TYZhang Unregistered / Unconfirmed GUEST, unregistred user! 2001-06-01 #2 Var L:TStringList; ; ; F:TFileStream; ; ; I:Integer; begin ; ; L:=TStringList.Create; ; ; F:=TFileStream.Create(fileName,fmOpenRead); ; ; Try ; ; ; L.LoadFromStream(F); //此处可得到任意行的字符串 // ; ; ;For I:=0 To L.Count-1 do // ; ; ; ;Memo1.Lines.Add(L.Strings); ; ; Finally ; ; ; L.Free; ; ; ; F.Free; ; ; end; ; end; end;
Var L:TStringList; ; ; F:TFileStream; ; ; I:Integer; begin ; ; L:=TStringList.Create; ; ; F:=TFileStream.Create(fileName,fmOpenRead); ; ; Try ; ; ; L.LoadFromStream(F); //此处可得到任意行的字符串 // ; ; ;For I:=0 To L.Count-1 do // ; ; ; ;Memo1.Lines.Add(L.Strings); ; ; Finally ; ; ; L.Free; ; ; ; F.Free; ; ; end; ; end; end;