//写入基本信息到文本文件中,并进行显示
FileAddress:=filepath+'baseinfo.txt'; with TMemoryStream.Create do begin
fPath := ExtractFilePath( Application.ExeName );
fn := fPath + 'baseinfo.txt';
LoadFromFile( fn );
这部分也不会改啊,我都嫌自己笨了,再帮我一下吧