Delphi 7のテキストファイルから情報をロードする

Question

名前とスコアを1つのプログラムでテキストファイルに保存し、ファイルから別のプログラムにロードしようとしています。問題は、単にファイル全体または最初の名前を読み込むのではなく、各名前を参照することです。

それは、このようなとして保存されます。

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

保存手順では、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は非常に古いスタイルのパスカルです。 Object Pascal、特にDelphiには、使用するTFileStreamオブジェクトがあります。しかし、この具体的なケースでは、TStringListオブジェクトを提案します。これにはLoadFromFileとSaveToFileメソッドがありますが、 "Name = Value"の行に値を格納するインデックス付きプロパティValueもあります。