ошибка в програми с читанием текстового файла

[Federer]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    mmo1: TMemo;
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var
  inFile: TextFile;
  lastFile: TextFile;
  lastName: string[10];
  examScore: Integer;
begin
  AssignFile(inFile, 'd:\ex.txt');
    while not (Eof(inFile)) do begin
    Readln(inFile, lastName, examScore);
    mmo1.Lines.Add(lastName + '  ' + IntToStr(examScore));
    end;
    CloseFile(inFile);
  end;


end.

програма должна откривать файл ex.txt на диску D и виводить содержимое в поле memo

[denisbrain]

Сообщение от Federer

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    mmo1: TMemo;
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var
  inFile: TextFile;
  lastFile: TextFile;
  lastName: string[10];
  examScore: Integer;
begin
  AssignFile(inFile, 'd:\ex.txt');
    while not (Eof(inFile)) do begin
    Readln(inFile, lastName, examScore);
    mmo1.Lines.Add(lastName + '  ' + IntToStr(examScore));
    end;
    CloseFile(inFile);
  end;


end.

програма должна откривать файл ex.txt на диску D и виводить содержимое в поле memo

 AssignFile(inFile, 'd:\ex.txt');
reset(inFile); // забыли

[Federer]

вискакует ошибка

[Federer]

[Hint] Unit1.pas(30): Variable 'lastFile' is declared but never used in 'TForm1.btn1Click'

[Aleksandr_59]

Сообщение от Federer

[Hint] Unit1.pas(30): Variable 'lastFile' is declared but never used in 'TForm1.btn1Click'

Переменная 'lastFile' не декларирована. Надо определить переменную.
Не, неправильно. Наверное инициализировать.

[denisbrain]

я так понял речь идет о сохранении параметров в ini файл

тогда проще будет пользоваться готовыми решениями от Delphi

var
  inFile: TstringList;
  i:integer;
begin
// запись 
  inFile:=TstringList.Create;
  i:=1;
  inFile.Add('param1='+inttostr(i));
  inFile.SaveToFile('set.ini');
  inFile.free;

// чтение 
  inFile:=TstringList.Create;
  inFile.LoadFromFile('set.ini');
  i:=strtoint(inFile.Values['param1']);
  inFile.free;


end;

[s-andriano]

Сообщение от Aleksandr_59

Переменная 'lastFile' не декларирована. Надо определить переменную.
Не, неправильно. Наверное инициализировать.

Судя по диагностике - удалить.