Типизированные файлы в delphi

[Ulena]

Пожалуйста, помогите!...
Вот задание(язык delphi). Дан файл вещественных чисел. Вычислить сумму компонент файла, записанных до первого отрицательного. Записать в новый файл суммируемые компоненты. Использовать компоненты с вкладки Dialogs: OpenDialog, SaveDialog. Создать соответствующие фильтры для этих компонентов.

[Grag]

Не вопрос, обращайся, сделаю!
Контакты:
e-mail: skiper@rol.ru
icq: 585281783
Skype: delmas61

[SERG1980]

Вам с таким тех. заданием во фриланс нужно

[Stilet]

Ulena

В принципе тут ниче сложного нет, и выглядеть программа может так:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure Open;
    Procedure Save;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 Save;
end;

procedure TForm1.Open;
var f:file of integer;i:integer;
begin                  tag:=0;
 if not OpenDialog1.Execute then exit;
 AssignFile(f,OpenDialog1.FileName);reset(f);
 while not eof(f) do begin
  read(f,i);tag:=tag+i;
 end;
 closefile(f);
end;

procedure TForm1.Save;
var f:file of integer;i:integer;
begin
 if not SaveDialog1.Execute then exit;
 AssignFile(f,SaveDialog1.FileName);rewrite(f);
 write(f,tag);
 closefile(f);
end;

end.

[Grag]

Ulena писала

Дан файл вещественных чисел.

Зачем же напрягать даму этим?

procedure TForm1.Open;
var f:file of integer

Зачем лишние действия?

if not OpenDialog1.Execute then exit;

Если диалог открыт и файл выбран, то действие выполнится, в противном случае Exit будет выполнен автоматически...

if OpenDialog.Execute then
  begin
    //какие-то операнды...
  end

[Stilet]

Зачем же напрягать даму этим?

Согласен. Извиняюсь.

Зачем лишние действия?

Ниче лишнего я там не писал. Если тебе не нравится exit то это не моя проблема, я не заставляю тебя писать его в программах, я лично не всегда люблю кучу begin end видеть в коде.

[Grag]

А если перед Exit'ом необходимо будет выполнить пару-тройку каких-нибудь операций (вывод сообщения или что другое), то без операторных скобок ну никуда!!! Те же begin...end!

[Stilet]

Не придирайся. Программа работает - и хорошо.
Да и потом я другую стратегию имел ввиду

[Grag]

Да я не придираюсь, не сердись!

[Ulena]

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