[mav_c]

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

Всем привет. Прошу помочь мне в написании программы на Делфи.
Суть:
Надо сделать среду открытия файла и эго сохранения. (только на текстовых файлов!). А если открываеться не текстовый файл, то выводить сообщения о не верном формате.

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

Прошу помощи. Буду очень благодарен.

Вот то что у меня есть:

Код:

uses StrUtils;
...
procedure TForm1.OpenClick(Sender: TObject);
begin
 if OpenDialog1.Execute then
 begin
  if (AnsiLowerCase(ExtractFileExt(OpenDialog1.FileName)) <> '.txt') then
  begin
   MessageBox(Handle, 'Error', 'Error', MB_OK or MB_ICONERROR);
   Abort;
  end;
  TEXTOVE.Lines.LoadFromFile(OpenDialog1.FileName);
 end;
end;