我正在尝试使用一个程序将名称和分数保存到文本文件,然后从另一个程序中将其加载。问题在于引用每个名称,而不仅仅是加载整个文件或仅加载名字。
它保存为:
scores = record
name: string[20];
Score: integer;
procedure TForm1.BtnSaveClick(Sender: TObject);
var
scoresFile: file of scores;
begin
scoresrecord.name := EdtName.Text;
scoresrecord.Score := Score;
assignfile(scoresFile, 'Teacher.txt');
rewrite(scoresFile);
write(scoresFile, scoresrecord);
closeFile(scoresFile);
end;
并使用以下命令加载到字符串网格中:
scores = record
name: string[20];
Score: integer;
var
ScoreRecord: scores;
scoresFile: file of scores;
StrGrdScores.Cells[0,0]:='Name';
StrGrdScores.Cells[1,0]:='Score';
assignfile(scoresFile, 'C:\Computing\AlgebraNew\Teacher.txt');
reset(scoresFile);
while not Eof(scoresFile) do
read(scoresFile, ScoreRecord);
closeFile(scoresFile);
for I := 1 to StrGrdScores.Row do
StrGrdScores.cells[0,i]:=ScoreRecord.name;
这是我尝试加载名称的尝试,但是它只是将文件中的名字加载到每一行中。当我确定如何加载名称时,加载分数应该是显而易见的。任何帮助深表感谢。
最佳答案
您的保存过程似乎仅将一条记录保存到文件中。
您的加载过程将每一行读入同一变量,覆盖先前的值。从文件中读取值时,将其写入网格。
i = 0;
while not Eof(scoresFile) do
begin
read(scoresFile, ScoreRecord);
StrGrdScores.cells[0,i]:=ScoreRecord.name;
StrGrdScores.cells[1,i]:=ScoreRecord.Score;
inc(i);
end;
closeFile(scoresFile);
在写入值之前,您可能需要在stringgrid上追加一行。
关于delphi - 在Delphi 7中从文本文件加载信息,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/10175952/