строка из TStringList в Edit

[adr]

через OpenDialog я записываю строку в TStringlist

path[numb].AddObject(opendialog1.FileName,nil);

при попытке вывести ее в Edit программа падает и выдает ошибку.
пожалуйста помогите разобраться.



заранее спасибо.

[mihali4]

Экстрасенсы спят.
Как и что выводится в Edit ?
Какую выдает ошибку ?
Мы должны все это проинтуичить ???

[W0LF]

Если я правильно понял, то вы пытаетесь загрузить файл в TStringList и затем вывести некоторую строку из него в Edit?

var
  S: TStringList;
begin
  if OpenDialog1.Execute then begin
    S := TStringList.Create;
    S.LoadFromFile(OpenDialog1.FileName);
    Edit1.Text := S.Strings[0]; // 0 - номер строки, или S.Text что бы вывести весь текст
    S.Free;
  end;
end;

[adr]

нет, я добавляю путь файла, чтобы далее его использовать. просто

Edit1.text:=opendialog1.filename

работает, но если сделать так:

path[numb].addobject(opendialog1.FileName,nil);
edit1.text:=path[numb].text

, то выходит ошибка

Access violation at address 0043ea08 in module 'Project1.exe'. Read of address 00000004

[W0LF]

path[numb].addobject(opendialog1.FileName,nil);

Это что вообще такое? Что вы хоть зделать хотели?)

[adr]

Код:


path[numb].addobject(opendialog1.FileName,nil );

Это что вообще такое? Что вы хоть зделать хотели?)

здесь я пытался добавить строчку в path