procedure TForm1.Button5Click(Sender: TObject); //载入文本数据
var
i:Integer;
s:string;
filename:string;
a:TStringList;
begin
if OpenDialog1.Execute then
begin
filename:=OpenDialog1.FileName;
a:=TStringList.Create;
a.LoadFromFile(filename);
s:=a.Text;
showmessage(s);//这里正确读出了我的文本
a.Delimiter:='@';
a.DelimitedText:=a.Text;
for i:=0 to 23 do
begin
Edit5.Text:=a[0];
Memo.Text:=a[16];
要载入的文本有很多回车，或者说换行。我想要以@ 这个符号来分割，但是实际上它除了用@ 来分割，还用回车来分割，怎么让它不要用回车来分割？

删除文本中的回车换行符

loadfromfile后获取text，再替换0d0a为@

有个属性是严格分隔符，strict什么的，你百度一下。