[dobrosyn]

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

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

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

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

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
SaveDialog1: TSaveDialog;
OpenDialog1: TOpenDialog;
SAve: TButton;
Open: TButton;
TEXTOVE: TMemo;
Button1: TButton;
Button2: TButton;
procedure OpenClick(Sender: TObject);
procedure SAveClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;

implementation

uses Unit2;
{$R *.dfm}

procedure TForm1.OpenClick(Sender: TObject);
begin
if OpenDialog1.Execute then
TEXTOVE.Lines.LoadFromFile(OpenDialog1.FileName);
end;
procedure TForm1.SAveClick(Sender: TObject);
begin
if SAveDialog1.Execute then
TEXTOVE.Lines.SaveToFile(SaveDialog1.FileName+'.tx t');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
AboutBox.Show;
end;

end.

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

[dobrosyn]

Большое спасибо mav_c. Быстро помог мне.