![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() При открытии формы через ОпенДиалог прочитать текстовый файл с числами.На форме
один многострочный редактор с всплывающим меню.В меню 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, 25.03.2013 в 05:40. |
#2
|
|||
|
|||
![]() Для начала - научиться пользоваться тегами.
Потом - научиться формулировать свои вопросы. Ну ничего не понятно, что надо сделать. |
#3
|
|||
|
|||
![]() Цитата:
Условие придумал не я, а с тегами конечно немного затупил. |
#4
|
||||
|
||||
![]() Цитата:
З.Ы. Да, и ещё нужно более понятное определение пунктов меню, что такое значит "Только больше среднего", "В порядке ввода" и "Равные среднему"? Я не понял Вашего вопроса, но всё же Вам на него отвечу! Последний раз редактировалось Alegun, 25.03.2013 в 22:53. |
#5
|
|||
|
|||
![]() Цитата:
В текстовом файле находятся строчки с целыми числами и после открытия файла через всплывающее меню выполняются следующие действия "Все из файла в мемо","Только больше среднего","В порядке ввода", "Равные среднему". |
#6
|
||||
|
||||
![]() Да уж, не соскучишься!
![]() З.Ы. Нужно файл с данными приложить, от чего плясать. Я не понял Вашего вопроса, но всё же Вам на него отвечу! Последний раз редактировалось Alegun, 25.03.2013 в 23:09. |
#7
|
|||
|
|||
![]() Цитата:
От среднего всех чисел. Содержание текстового файла: 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 Числа разделены пробелами, как видишь. |
#8
|
||||
|
||||
![]() Может подойдёт.
З.Ы. Сортировку правильно осуществить не удалось, не умею, извнт. Я не понял Вашего вопроса, но всё же Вам на него отвечу! Последний раз редактировалось Alegun, 26.03.2013 в 09:28. |
Этот пользователь сказал Спасибо Alegun за это полезное сообщение: | ||
MadFatCat (28.05.2013)
|
#9
|
|||
|
|||
![]() Спасибо и за это.
|