Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Lazarus, Free Pascal, CodeTyphon
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.05.2010, 22:44   #1
hen
Пользователь
 
Регистрация: 31.03.2009
Сообщений: 96
По умолчанию [Lazarus\Delphi] Использование информации из текстового файла..

Задание таково:

"Необходимо произвести обработку 15 вещественных чисел: найти среднее арифметическое отрицательных чисел и подсчитать количество чисел, входящих в диапазон от 0...5. Создать меню.. "

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

Проблема такая я не знаю как сделать передачу чисел из текстового файла в ListBox и обратно.. т.е. при нажатии кнопки загрузить на первой форме.. я смог открыть файл.. и передать числа в ListBox.. а потом при нажатии кнопки сохранить.. произошла запись чисел из ListBox в текстовый файл.. Сами кнопки и менюшку я сделал.. а вот сам процесс передачи затрудняюсь..

и еще в первой форме сделал кнопку выхода.. что нужно написать чтобы при нажатии кнопки Выход на второй форме прога вышла со второй формы и перешла обратно на первую..??

если кто сможет помогите\объясните..

TForm1
Код:
unit Unit1; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls, Unit2,
  Menus;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    MainMenu1: TMainMenu;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    MenuItem5: TMenuItem;
    MenuItem6: TMenuItem;
    MenuItem7: TMenuItem;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure MenuItem2Click(Sender: TObject);
    procedure MenuItem3Click(Sender: TObject);
    procedure MenuItem4Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form1: TForm1; 

implementation

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Show;
end;

procedure TForm1.Button2Click(Sender: TObject);
   var a,i,g:integer;
         c,h,k: real;
begin
  a:=0;
  c:=0;
  k:=0;
  g:=0;
  a:=Form2.ListBox1.Count-1;
   for i:=0 to a do
     begin
      if (strtofloat(Form2.ListBox1.Items[i]) < 0) then
       begin
        k:=k+1;
        c:=c+strtofloat(Form2.ListBox1.Items[i]);
       end;
     end;
     h:=c/k;
     Edit1.Text:=FloattoStr(h);
   for i:=0 to a do if ((strtofloat(Form2.ListBox1.Items[i]) > 0) and (strtofloat(Form2.ListBox1.Items[i]) < 5)) then g:=g+1;
     Edit2.Text:=Inttostr(g);
     
end;

procedure TForm1.MenuItem2Click(Sender: TObject);
begin
  if OpenDialog1.Execute Then
   Begin
    Edit1.Text:=OpenDialog1.FileName;
   End;
end;

procedure TForm1.MenuItem3Click(Sender: TObject);
begin
  if SaveDialog1.Execute Then
   Begin
    Edit1.Text:=SaveDialog1.FileName;
   End;
end;

procedure TForm1.MenuItem4Click(Sender: TObject);
begin
  Application.terminate;
end;

initialization
  {$I unit1.lrs}
end.
hen вне форума Ответить с цитированием
Старый 19.05.2010, 22:44   #2
hen
Пользователь
 
Регистрация: 31.03.2009
Сообщений: 96
По умолчанию

TForm2
Код:
unit Unit2; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
  Menus;

type

  { TForm2 }

  TForm2 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Edit1: TEdit;
    ListBox1: TListBox;
    MainMenu1: TMainMenu;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    MenuItem5: TMenuItem;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: char);
    procedure ListBox1Click(Sender: TObject);
    private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form2: TForm2; 

implementation

{ TForm2 }

procedure TForm2.ListBox1Click(Sender: TObject);
begin
   Edit1.Text:= ListBox1.Items[ListBox1.ItemIndex];
end;

procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: char);
begin
  case key of
  'A'..'Z':key:=#0;
  'a'..'z':key:=#0;
  'А'..'Я':key:=#0;
  'а'..'я':key:=#0;
  '!', '@' , '.' , '/', '\', '$', '^', '&', '*', '(', ')':key:=#0;
end;
end;

procedure TForm2.Button1Click(Sender: TObject);
 var d, p, i: integer;
 begin
  d:=0;
  p:=0;
  for i:=1 to length(Edit1.Text) do
    begin
     if Edit1.Text[i]='-' then d:=d+1;
    end;
  for i:=1 to length(Edit1.Text) do
    begin
     if Edit1.Text[i]=',' then p:=p+1;
    end;
  if d>1 then Edit1.Text:='Неверно' else
   if p>1 then Edit1.Text:='Неверно' else
   begin
     ListBox1.Items.Add (Edit1.Text);
     ListBox1.Sorted:= true;
     Edit1.Text:='';
   end;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
  ListBox1.Items[ListBox1.ItemIndex]:= Edit1.Text;
end;

procedure TForm2.Button3Click(Sender: TObject);
begin
  ListBox1.Items.Delete(1);
end;

initialization
  {$I unit2.lrs}
end.

вот ссылка на прогу..
http://narod.ru/disk/start/14.dl5d-n...614d4/prog.rar

делал в LAZARUS..
hen вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Использование информации из текстового файла.. hen Общие вопросы Delphi 10 22.05.2010 13:10
Использование информации атрибута файла для таблицы Excel choky Microsoft Office Excel 5 11.02.2010 16:17
Использование процедур(функций) при обработке экономической информации (delphi) Shadow_rus Помощь студентам 2 12.12.2009 18:11
Связь Delphi и текстового файла TMAX Помощь студентам 0 06.12.2009 17:22
Delphi Редактирование текстового файла Starscream Общие вопросы Delphi 11 18.02.2008 17:15