OpenDialog и Edit

[misher]

При открытии файла .txt прописывает в Memo только первую строку...Как сделать так чтобы октрывалась все?

procedure TForm1.sButton3Click(Sender: TObject);
var

  F: TextFile;
  S:  string;

begin
  if sOpenDialog1.Execute then
  begin
    AssignFile(F, sOpenDialog1.FileName);
    Reset(F);
    Readln(F, S);
    sMemo1.Text := S;
    CloseFile(F);
  end;


end;

Простите, в названии темы перепутал Edit с Memo

[Alex Cones]

While not Eof(F)

И как Вы собираетесь написать в edit многострочный текст? Юзайте Memo. А у него есть LoadFromFile.

[misher]

я перепутал с Memo

[Alex Cones]

Достаточно грамотный код:

OpenDialog1.FileName := '';
OpenDialog1.Execute;
If OpenDialog1.FileName <> '' Then
Begin
 If FileExists(OpenDialog1.FileName) Then
  Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
End
 Else
//Ничего не выбрано, диалог был завершен жмаканьем по CANCEL

[misher]

Достаточно грамотный код:
Код:

OpenDialog1.FileName := '';
OpenDialog1.Execute;
If OpenDialog1.FileName <> '' Then
Begin
If FileExists(OpenDialog1.FileName) Then
Memo1.Lines.LoadFromFile(OpenDialog 1.FileName);
End
Else
//Ничего не выбрано, диалог был завершен жмаканьем по CANCEL

Спасибо, ещё вопросик: я писал похожий даже сильно похожий на этот код и когда запускал прогу почему-то вот эта строка

Memo1.Lines.LoadFromFile(OpenDialog 1.FileName);

не срабатовала(она такае же была)...К сожалению код представить не могу, но вдруг похожие вопросы были и вы знаете из-за чего это могло случиться?

[Alex Cones]

Как вариант - вы не вызвали OpenDialog перед этим.

[misher]

вы не вызвали OpenDialog перед этим

если я правильно понял, то я его добавил на форму. Или вы что-то другое имели ввиду?

[dmitriegorovih]

Можно и так

OpenDialog1.FileName:='';
if OpenDialog1.Execute then begin
memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;

если я правильно понял, то я его добавил на форму

нет имелось в веду имхо OpenDialog1.Execute;

[misher]

нет имелось в веду имхо OpenDialog1.Execute;

Вроде тоже было...

[artemavd]

Строчка

if OpenDialog1.Execute then

по-русски означает: "Если диалог открыт(или вызван), то...". А эта строчка

OpenDialog1.Execute;

не делает то, что надо