--> 如何从 ReadFile 按行读出文本？

[sunbn]

源代码如下：
Repeat
BytesRead := 0;
ReadFile(ReadPipe,Buffer[0],ReadBuffer,BytesRead,nil);
Buffer[BytesRead]:= #0;
OemToAnsi(Buffer,Buffer);
AMemo.Text := AMemo.text + String(Buffer);
until (BytesRead < ReadBuffer);
怎么样才能使读到AMemo中的文本，按原来格式的分行显示呢？

[netlib]

amemo.lines.savetofile//保存到文件
amemo.lines.loadfromfile//从文件读出

[ihihonline]

嘻嘻，河外孤星，比俺快了一步，不过，现在它有 #10 and #13

[ihihonline]

嘻嘻，河外孤星，比俺快了一步，不过，现在它有 #10 and #13

[ihihonline]

嘻嘻，河外孤星，比俺快了一步，不过，现在它有 #10 and #13

[sunbn]

没懂我的意思。
我是想从命名管道里读出PChar，然后判断是否是换行符。
如果是则换行。不想从文件中读取！！

[sunbn]

up

[sunbn]

算了，这个问题自己搞定了。

大家参考这里：
http://marten.hypermart.net/examples/redirect.htm