如何去掉导入txt文本的结束符(#0)?

[azsoft]

手持终端导出的文本文件在调用的时候,只调出第一条纪录(里面纪录多),打开这个文本文件保存一下就好了,试了几遍,都一样.怪!

用LoadFromFile和TMemoryStream都试了!

....
slist:=Tstringlist.create;
slist.LoadFromFile(slist);

.....
//第一种;

...
ms:=TMemoryStream.Create;
Ms.LoadFromFile(tmfile);
RichEdit1.Lines.LoadFromStream(ms);
... //第二种

[Shiyl]

我的测试代码
procedure TForm1.Button1Click(Sender: TObject);
var
FileList: TStringList;
begin
Try
FileList := TStringList.Create;
FileList.LoadFromFile('e:\a.txt');
showmessage(Filelist.Text);
Finally
FreeAndNil(FileList);
End;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
FileMemory: TMemoryStream;
begin
Try
FileMemory := TMemoryStream.Create;
FileMemory.LoadFromFile('E:\a.txt');
Memo1.Lines.LoadFromStream(FileMemory);
Finally
FreeAndNil(FileMemory);
End;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
FileStrm: TFileStream;
begin
Try
FileStrm := TFileStream.Create('E:\a.txt',fmOpenReadWrite);
FileStrm.Position := 0;
Memo1.Lines.LoadFromStream(FileStrm);
Finally
FreeAndNil(FileStrm);
End;
end;
三种方法都可以读出数据，a.txt里面的内容如下
asdfasdfasdfasdf #0
12324112asdfasjklhjk
kjlj
jkasdjf
hgjghj
gsdkglj#0


----------------------------------------------------------------
花自飘零水自流，一种相思，两处闲愁。
此情无计可消除，才下眉头，又上心头。
----------------------------------------------------------------

[azsoft]

文本文件在调用的时候,只调出第一条纪录(里面纪录多),打开这个文本文件保存一下就好了?不理解呀!

[azsoft]

因为是手持终端导出的文本文件,可能是char的格式,那么有可能就是结束符的问题,因为只能读出一条纪录,别的纪录无法读出.将这个文本打开保存一下,就可以打开,用以上三种方法都不行.不知道有没有办法,可以把这个文件发过去,帮我试试,(放心绝对不是病毒!)

[azsoft]

用十六进制打开后是"."

[longtusoft]

用TSTRINGLIST试试.

[WGYKING]

用流操作
读定长CHAR...

var
AStream: TMemoryStream;
Str: String;
begin
try
AStream := TMemoryStream.Create;
AStream.LoadFromFile(tmfile);
AStream.Position := 0;
while AStream.Position + 21 <= AStream.Size do
begin
AStream.Read(Str[1], 21);//长度自己算一下，包括结束符
RichEdit1.Lines.Add(Str);
end;
finally
FreeAndNil(AStream);
end;
end;

[101monster]

呵呵，UP!