При открытии формы через ОпенДиалог прочитать текстовый файл с числами.На форме
один многострочный редактор с всплывающим меню.В меню 5 пунктов ,помеченных
галочками - "Все из файла в мемо","Только больше среднего","В порядке ввода",
"Равные среднему".В соответсвии с нажатием так и заполняется многострочный редактор.
Поля всплывающего меню разделены линиями.Пятый пункт-выход,с собственной картинкой.
Если файл не прочтен,пункты меню недоступны.
Код:
interface
uses
Windows,XPMan, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls;
//Proga #3
type
TForm1 = class(TForm)
pmenu: TPopupMenu;
dlgOpen1: TOpenDialog;
File11: TMenuItem;
File21: TMenuItem;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
mmo1: TMemo;
btn1: TButton;
procedure btn1Click(Sender: TObject);
procedure N3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
var
s:string;
F:textfile;
begin
dlgOpen1.Filter:='Text Files.txt' ;
if dlgOpen1.Execute and FileExists(dlgOpen1.filename) then
begin
AssignFile(f,dlgOpen1.filename);
Reset(f);
mmo1.LineS.clear;
while not Eof(f) do begin
Readln(f,s);
mmo1.Lines.Add(s)
end;
// close(f);
end;
end;
procedure TForm1.N3Click(Sender: TObject);
begin
Close;
end;
end.
Получилось только это. Как дальше сделать ?