OpenDialog - загрузка текстового документа в Мемо. Lazarus. (процедура косячит, помогите исправить пожалуйста!!!!)

[Екатерина 123]

подскажите пожалуйста, в чем косяк, если я пишу вот такую процедурку

procedure TForm1.Button3Click(Sender: TObject);
begin
  OpenDialog1.Filter:='Текстовые файлы|*.txt|'+'Bat файлы |*.bat|';
  If  OpenDialog1.Execute and FileExists(OpenDialog1.FileName) then
       Memo1.Lines.LoadFromFile (OpenDialog1.FileName)
end;

по идее должна происходить загрузка текстового документа в Мемо, но у меня мемо остается пустым!!!!
заранее благодарю!!!

[doktor255]

FileExists тут совершенно не нужен. Если произошёл выбор файла через OpenDialog, то файл гарантированно существует, и проверять его наличие бесполезно.

procedure TForm1.Button3Click(Sender: TObject);
begin
OpenDialog1.Filter:='Текстовые файлы|*.txt|'+'Bat файлы |*.bat|';
If OpenDialog1.Execute then
Memo1.Lines.LoadFromFile (OpenDialog1.FileName)
end;

[Екатерина 123]

так ошибку выдает и совсем не запускается

[WorldMaster]

Сообщение от Екатерина 123

так ошибку выдает и совсем не запускается

Ошибку выложить не получается чтоли? Телепаты в отпуске.

[Аватар]

Сообщение от doktor255

Если произошёл выбор файла через OpenDialog, то файл гарантированно существует, и проверять его наличие бесполезно.

Неужели? Для этого еще Options нужно соответственно настроить. А по умолчанию фигвам

[Serge_Bliznykov]

Сообщение от Аватар

Неужели? Для этого еще Options нужно соответственно настроить. А по умолчанию фигвам

Ну и в этом случае объединять Execute и FileExist через AND я бы лично не стал.

Я бы примерно такой код написал

procedure TForm1.Button3Click(Sender: TObject);
begin
  OpenDialog1.Filter:='Текстовые файлы|*.txt|Bat файлы |*.bat|';
  If OpenDialog1.Execute then begin
      if FileExists(OpenDialog1.FileName) then
           Memo1.Lines.LoadFromFile (OpenDialog1.FileName)
      else 
        Application.MessageBox( 'Файл не найден!', 'Ошибка', MB_ICONSTOP or MB_OK);
  end;
end;

[Екатерина 123]

Сообщение от Serge_Bliznykov

MB_ICONSTOP or MB_OK);
[/code]

что это за кусок??

у меня выдало
unit1.pas(203,92) Error: Identifier not found "MB_ICONSTOP"
unit1.pas(203,100) Error: Identifier not found "MB_OK"
unit1.pas(209) Fatal: There were 2 errors compiling module, stopping

как объявить эти переменные???это в var объявляется??

[Stilet]

Application.MessageBox( 'Файл не найден!', 'Ошибка', MB_ICONSTOP or MB_OK);

Можно заменить на

ShowMessage( 'Файл не найден!');

Или подключить в uses модуль windows и писать так:

MessageBox( 'Файл не найден!', 'Ошибка', MB_ICONSTOP or MB_OK);

[Екатерина 123]

ясно, спасибо, а можете объяснить как сделать напоминание о днях рождения друзей??

у меня не открываются даже существующие документы!!!выходит showmessage('документ не найден'), почему так???

[Stilet]

как сделать напоминание о днях рождения друзей??

А это смотря в каком виде и откуда берется инфа о ДР.

у меня не открываются даже существующие документы!

Признайся честно - Лазарус или всетки Делфи у тебя?