[Mp3]

Люди подскажите плиз в делфи,

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Edit1.Lines.LoadFromFile(OpenDialog1.FileName);


end.

end;

end.

вот код...мне надо чтобы он считал из файла 3 строку и вывел её в edit1..вот что то я начал а не понимаю как закончить%)
p.s. заранее спасибо

[YVitaliy]

Edit1.Lines

WTF ???
Загружай или в стринглист, или в текстовый файл, так быстрее.

[Mp3]

то есть??? в стринг лист??вот так чтоли?

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Edit1.stringlist.LoadFromFile(OpenDialog1.FileName );

[YVitaliy]

Код:

var s:TStringList;
begin
s:=TStringList.Create;
s.LoadFromFile('D:\txt.txt');
edit1.Text:=s.Strings[2];
s.Free;
end;

[Mp3]

не совсем понял кода%)
а ты почему не используешь opendialog???
у тебя код получается на отдельный файл

s.LoadFromFile('D:\txt.txt');

,если я правильно понял...а я хотел бы что бы у меня у самого был выбор какой файл открыть

[YVitaliy]

И в чем проблема? Зделай как хочешь.