在 Delphi 7 中从文本文件加载信息

Question

我正在尝试使用一个程序将姓名和分数保存到一个文本文件中，然后从另一个程序中的文件加载它。问题在于引用每个名称，而不是仅加载整个文件或仅加载第一个名称。

这样保存：

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;

这是我加载名称的尝试，但它只是将文件中的第一个名称加载到每一行中。当我弄清楚如何加载名称时，加载分数应该很明显。非常感谢任何帮助。

Answer 1

您的保存过程似乎只将一条记录保存到文件中。

您的加载过程将每一行读入同一个变量，覆盖之前的值。从文件中读取值时将值写入网格。

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);

在写入值之前，您可能需要在字符串网格中追加一行。

Answer 2

assignfile/write/rewrite/closefile 是非常老式的 Pascal。在 Object Pascal 中，特别是在 Delphi 中，有 TFileStream 对象可供使用。但在这种特定情况下，我建议使用 TStringList 对象。它有 LoadFromFile 和 SaveToFile 方法，还有一个索引属性 Value，它将值存储在“Name=Value”的行中。