[Помогите!] RAD Studio XE 2 работа с текстом.

[Elyez]

Второй день как изучаю программирование.

var a: tstringlist;

begin

begin
opentextfiledialog1.InitialDir:=ExtractFilePath(Ap plication.ExeName);
if opentextfiledialog1.Execute then
begin
a.Create;
a.LoadFromFile(opentextfiledialog1.FileName);
memo1.Text:=('s');
end;

при открытии любого *.txt файла выбивает ошибку памяти.
Где ошибка?

[simsonbart1]

И зачем тут tstringlist?
Можно гораздо проще сделать

begin
OpenDialog1.InitialDir:=ExtractFilePath(Application.ExeName);
if OpenDialog1.Execute then
begin
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;
end;

а в твоем коде ошибка в одной строке
прост нужно заменить a.Create; на a:= TStringList.Create;

[Elyez]

Цитата: Сообщение от simsonbart1 И зачем тут tstringlist? Можно гораздо проще сделать begin OpenDialog1.InitialDir:=ExtractFilePath(Application.ExeName); if OpenDialog1.Execute then begin Memo1.Lines.LoadFromFile(OpenDialog1.FileName); end; end; а в твоем коде ошибка в одной строке прост нужно заменить a.Create; на a:= TStringList.Create;

Спасибо огромное!=) теперь вопрос как это вывести в мемо1?

[simsonbart1]

Цитата: Сообщение от Elyez Спасибо огромное!=) теперь вопрос как это вывести в мемо1?

Эта строчка специально для этого Memo1.Lines.LoadFromFile(OpenDialog1.FileName);

[Elyez]

Цитата: Сообщение от simsonbart1 Эта строчка специально для этого Memo1.Lines.LoadFromFile(OpenDialog1.FileName);

я уже это понял =) но оказывается в корне не то делал. OpenDialog1.FileName вытаскивает только путь до файла а не само его содержимое

[Steam~]

a.LoadFromFile(opentextfiledialog1.FileName);
memo1.Text:=a.text;