Работа с файлами в Delphi 7

[NeAlSe]

Заполнить файл f натуральными числами полученными с помощью генератора случайных чисел. Найти количество квадратов нечетных чисел среди компонентов.

Вот что я налепил, поможете дальше?

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    Edit2: TEdit;
    Panel1: TPanel;
    Label2: TLabel;
    Label1: TLabel;
    Label3: TLabel;
    Edit3: TEdit;
    Button3: TButton;
   
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

VAR

  Form1: TForm1;
  f: textfile;

implementation

{$R *.dfm}

PROCEDURE TForm1.Button1Click(Sender: TObject); //Создание и заполнение файла
var
fName: String [80];
i,n: integer;

begin
n:= strtoint (Edit2.Text);
fName:= Edit3.Text + Edit1.Text + '.txt';
AssignFile(f, fName);
Rewrite(f);

for i:=1 to n do
begin
writeln (f, Random(999));
end;

CloseFile(f);

end;

PROCEDURE TForm1.Button3Click(Sender: TObject); //нахождение количества квадратов нечетных чисел среди компонентов (как??)
var
begin 

Reset(f);

for a=1 to b do
readln(f, b);

CloseFile(f);
end;

PROCEDURE TForm1.Button2Click(Sender: TObject); //выход из программы и удаление созданного файла
begin
DeleteFile (Edit3.Text + Edit1.Text + '.txt');
Close;
end;

end.

Код вставляем в тег [CОDE][/СОDЕ] или пользуемся кнопкой # (расширенный режим). Модератор.

[Tayfun]

Первое что бросилось в глаза

PROCEDURE TForm1.Button3Click(Sender: TObject); //нахождение количества квадратов нечетных чисел среди компонентов (как??)
var
begin 

Reset(f);

for a=1 to b do
readln(f, b);

CloseFile(f);
end;

Надо исправить...

PROCEDURE TForm1.Button3Click(Sender: TObject); //нахождение количества квадратов нечетных чисел среди компонентов (как??)
var
t,b:integer;
fName: String [80];
begin 
t:=0;
fName:= Edit3.Text + Edit1.Text + '.txt';
AssignFile(f, fName);// Желательно тоже писать
Reset(f);
while not eof(f) do begin
readln(f, b);
for i:=1 to b do
if (sqr(i)=b) and (i mod 2<>0) then t:=t+1;
end;
CloseFile(f);
//t-количество квадратов нечетных чисел среди компонентов
end;

Пишу on-line не проверяя...

[puporev]

for i:=1 to b do
if (sqr(i)=b) and (i mod 2<>0) then t:=t+1;

Я это тоже не проверял, но это как-то не связано с массивом.
Вот это я проверял, раборает

for i:=1 to n do
if (sqr(int(sqrt(a[i])))=a[i]) and (round(sqrt(a[i]))mod 2=1) then t:=t+1;

В этом случае массив объявить типа of comp; (вещественные числа без дробной части).

[NeAlSe]

Спасибоооо! ! ! все ok!

[execom]

Господа, не советую использовать в делфи паскальный ф-ии для работы с файлами...

[Tayfun]

Господа, не советую использовать в делфи паскальный ф-ии для работы с файлами...

Интересно... А можно узать почему-?

[rpy3uH]

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

Интересно... А можно узать почему-?

лично я не знаю почему. к слову: я сам стандартные паскалевские функции просто не выношу!!!
зачем пользоваться старыми функциями, если можно пользоваться нормальными API функциями, либо оболочками вокруг них.
API функции
CreateFile (универсальна: создание и открытие)
ReadFile
WriteFIle
CloseHandle
родные чисто-дельфийские аналоги API функций (вызывают соответствующие API)
FileOpen (всего 2 параметра, не надо париться с аргументами, для создания FileCreate)
FileRead (нет 5 параметра)
FileWrite (нет 5 параметра)
FileClose
для работы с текстовыми файлами лучше использовать TStringList, и вообще дельфисты рекомендуют использовать для работы с файлами класс TFileStream

[zetrix]

У меня уже было пару раз, когда Blockread, blockWrite не пашут, а ReadFile, WriteFIle работают. Хотя по сути разницы нет.

[NeAlSe]

Почему не выводит сообщение?

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    Edit2: TEdit;
    Panel1: TPanel;
    Label2: TLabel;
    Label1: TLabel;
    Label3: TLabel;
    Edit3: TEdit;
    Button3: TButton;
    l4: TLabel;
    Bevel1: TBevel;
    Bevel2: TBevel;
   
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

VAR

  Form1: TForm1;
  f: textfile;

implementation

{$R *.dfm}

PROCEDURE TForm1.Button1Click(Sender: TObject); ////Создание и заполнение файла
var
fName: String [80];
i,n: integer;

begin
n:= strtoint (Edit2.Text);
fName:= Edit3.Text + Edit1.Text + '.txt';
AssignFile(f, fName);
Rewrite(f);

for i:=1 to n do
begin
writeln (f, Random(100));
end;
CloseFile(f);
end;

PROCEDURE TForm1.Button3Click(Sender: TObject); //нахождение количества квадратов нечетных чисел среди компонентов  
var   
var   
t,b,i: integer;
fName: String [80];

begin
t:=0;
fName:= Edit3.Text + Edit1.Text + '.txt';
AssignFile(f, fName);
Reset(f);
while not eof(f) do begin
readln(f, b);

for i:=1 to b do
if (sqr(i)=b) and (i mod 2<>0) then t:=t+1;
end;
CloseFile(f);

begin
ShowMessage('Количество квадратов нечетных чисел среди компонентов : '+IntToStr(t));
end;
//t-количество квадратов нечетных чисел среди компонентов
end;

PROCEDURE TForm1.Button2Click(Sender: TObject); //выход из программы и удаление созданного файла

begin
DeleteFile (Edit3.Text + Edit1.Text + '.txt');
Close;
end;

end.

[Tayfun]

Почему не выводит сообщение?

Странно... Но ваш код, у меня, прекрастно работает...
Возможно когда вы вводите имя файла вы там-же вводите расширение, я тоже сперва ввел расширение и результат не появился, потом ввел имя файла без расширения и программа сработала корректно.