[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]

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

[Mp3]

я хочу попробовать как я написал через opendialog, но не получается...
твоя программа работает спасибо...а через open не подскажешь как сделать? чтобы была возможность выбирать файлы которые можно открыть..

[angvelem]

Точно так же, только вместо жёстко прописанного файла подставляешь OpenDialog1.FileName.

[Mp3]

вот так примерно не пашет чет%)

procedure TForm1.Button1Click(Sender: TObject);
var s:TStringList;
begin
if OpenDialog1.Execute then
Begin
s:=TStringList.Create;
edit1.Text:=s.Strings[2];
s.Free;
end;
end;
end.

[Kpyc]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var s:TStringList;
begin
if OpenDialog1.Execute 
  then Begin
           s := TStringList.Create;
           s.loadfromfile( opendialog1.FileName );
           edit1.Text := s.Strings[ 2 ];
           s.Free;
         end;
end;

[Mp3]

всем спасибо большое=)