[MadFatCat]

При открытии формы через ОпенДиалог прочитать текстовый файл с числами.На форме
один многострочный редактор с всплывающим меню.В меню 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.

Получилось только это. Как дальше сделать ?

[lmikle]

Для начала - научиться пользоваться тегами.
Потом - научиться формулировать свои вопросы. Ну ничего не понятно, что надо сделать.

[MadFatCat]

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

Для начала - научиться пользоваться тегами.
Потом - научиться формулировать свои вопросы. Ну ничего не понятно, что надо сделать.

Условие придумал не я, а с тегами конечно немного затупил.

[Alegun]

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

...Получилось только это...

Текстовый файл юзать, это лишне. У mmo1.Lines уже есть процедура LoadFromFile()...

З.Ы. Да, и ещё нужно более понятное определение пунктов меню, что такое значит "Только больше среднего", "В порядке ввода" и "Равные среднему"?

[MadFatCat]

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

Текстовый файл юзать, это лишне. У mmo1.Lines уже есть процедура LoadFromFile()...

З.Ы. Да, и ещё нужно более понятное определение пунктов меню, что такое значит "Только больше среднего", "В порядке ввода" и "Равные среднему"?

В текстовом файле находятся строчки с целыми числами и после открытия файла через всплывающее меню выполняются следующие действия "Все из файла в мемо","Только больше среднего","В порядке ввода", "Равные среднему".

[Alegun]

Да уж, не соскучишься! Выбирать от какого среднего, всех чисел, по порядку, или от конца?

З.Ы. Нужно файл с данными приложить, от чего плясать.

[MadFatCat]

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

Да уж, не соскучишься! Выбирать от какого среднего, всех чисел, по порядку, или от конца?

З.Ы. Нужно файл с данными приложить, от чего плясать.

От среднего всех чисел.
Содержание текстового файла:
12345678 33 -18 0 5
13 18 13 -18 0
25 6775 0 0 25 13
54 896 01 23 45
145 1456 8 654

Числа разделены пробелами, как видишь.

[Alegun]

Может подойдёт.

З.Ы. Сортировку правильно осуществить не удалось, не умею, извнт.

[MadFatCat]

Спасибо и за это.