向文本文件写入内容,如何换行?急急急(50分)

  • 主题发起人 主题发起人 sunny_ok
  • 开始时间 开始时间
S

sunny_ok

Unregistered / Unconfirmed
GUEST, unregistred user!
向文本文件写入内容,如何换行?急急急
 
在C++Builder的例子供参考。
char RETURN=0xd;
假设有个Memo控件,要加入的文本在String1中,可以这样;
String1=String1+RETURN;
Memo1->Lines->Add(String1);
 
用Writeln不就行了?
 
写个换行符chr(13)就行了
 
to 林西:
能不能具体点,用WRITE方法,多谢!!!
 
怎么没有人理我?呜呜
 
在文件中换行处加上#13#10
 
在你要写的字符串后面加上13#10
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Add('第一行'+#13#10+'第二行');
end;

可以了吗?
 
如果用vb的话,一个write语句写入一行,多写几个不久可以了吗
 
to sunny_ok:抱歉,上午机房停电了,没有及时回复你
Kule他们提供的方法是对的,#13#10实际上就是回车换行符的键值
在Delphi中,你也可以用chr函数转成ASCII码形式写到文本文件中
如:write(F1,chr(13),chr(10));
 
用键值就实现了!
 
var
aList: TStringList;
begin
aList := TStringList.Create;
try
aList.Add('1st row');
aList.Add('2nd row');
aList.SaveToFile('c:/aa.txt');
finally
aList.Free;
end;
end;
 
参考一下pascal的语法不就行了
 
多人接受答案了。
 
后退
顶部