В чем ошибка!!!

[juden]

Здравствуйте.
Подскажите в чем касяк??

procedure read_spisk_predmet(var list : TList);
var f: TextFile;
    s: string;
begin
AssignFile(f, 'list_predmet.txt');
Reset(f);
while not EOF(f) do
begin
  readln(f, s);
  list.Add(@s);
end;
end;

при выполнении выкидывает:
error.JPG

[KORT]

AssignFile(F,'list_predmet.txt');
var f: TextFile;   
s: string;
begin        
Reset(F);
While not EOF(F) do
begin
Read(F,s);
list.Add(@s); 
end;
CloseFile(F);
end;

должен работать

[alexBlack]

Не надо сохранять адреса локальных переменных. Ни к чему хорошему это не приведет.

procedure read_spisk_predmet(var list : TStringList);   
var f: TextFile;   
    s: string;   
begin  
AssignFile(f, 'list_predmet.txt');   
Reset(f);   
while not EOF(f) do  
begin  
  readln(f, s);   
  list.Add(s);   
end;   
end;

[juden]

KORT
не помагло, делфя ругается именно на:
list.Add(@s);

[_Dmitry]

А объект list у вас создан?
list:=TList.Create;

И alexBlack прав, нужно использовать TStringList

[juden]

пробовал создавать объект всеравно там же ругается, и с TStringList пробовал, ругается там же:
list.Add(s);

[_Dmitry]

Тогда весь код в студию...

[juden]

unit Unit1;

interface

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

type
  Tglav = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    Button4: TButton;
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    list_predmet: TStringList;
    { Public declarations }
  end;

var
  glav: Tglav;

implementation
uses Unit2;
procedure read_spisk_predmet(var list : TStringList);
var f: TextFile;
    s: String;
begin
//list := list.Create;
AssignFile(f, 'list_predmet.txt');
Reset(f);
while not EOF(f) do
begin
  readln(f, s);
  ShowMessage(s);
  list.Add(s);
end;
CloseFile(f);
end;



{$R *.dfm}

procedure Tglav.Button4Click(Sender: TObject);
begin
Close;
end;

procedure Tglav.Button1Click(Sender: TObject);
begin
read_spisk_predmet(list_predmet);

end;

end.

исходник:

[alexBlack]

procedure Tglav.Button1Click(Sender: TObject);   
begin  
  list_predmet := TStringList.Create;
  read_spisk_predmet(list_predmet);   
 
end;

[_Dmitry]

И смени кодировку текстового файла: OEM->Ansi