DELPHI программа с массивом.PLS

[Вася24]

Через процедуры и функции нужно:
1.Распечатать массив
2.Заполнить его случайным числами
3.Сформировать типизированный файл,записть туда всё
4.Прочитать этот типизированный файл.
всё в Delphi сделать...

[BHy4ok]

Массив какой ? Одномерный или Двумерный ?
[syntax='Delphi']
for i := 1 to n do
a := Random(50); // Заполняешь массив
memo1.text:=memo1.text + ' ' + (inttostr(a)); // Выводишь в мемо
[/syntax]
Для работы с файлами используй Open и Save диалоги.
[syntax='Delphi']
// Сохраняем все в файл
If SaveDialog1.Execute then Memo1.Lines.SaveToFile(SaveDialog1.FileName);
// Читаем файл
If OpenDialog1.Execute then Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
[/syntax]

[MOTOCoder]

Массив какой ? Одномерный или Двумерный ?
Для работы с файлами используй Open и Save диалоги.
[syntax='Delphi']
// Сохраняем все в файл
If SaveDialog1.Execute then Memo1.Lines.LoadFromFile(SaveDialog1.FileName);
// Читаем файл
If OpenDialog1.Execute then Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
[/syntax]

Я так понимаю, что файл должен сохраняться не в текстовом, а в бинарном виде, т.е. должен быть File of Integer

[BHy4ok]

2 MOTOCoder: Не факт. Файл понятие растяжимое.
На форму кидаем: 3 батона, Open and Save диалоги, 1 Edit и 2 мемо.
Весь код:
[syntax='Delphi']
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
Memo2: TMemo;
Edit1: TEdit;
Label1: TLabel;
Button2: TButton;
Button3: TButton;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
a:array[0..100] of integer;
begin
if edit1.Text = '' then
begin
showmessage('Input massiv!');
exit;
end;
j:=strtoint(edit1.Text);
memo1.Clear;
for i := 1 to j do
begin
a := Random(50); // Заполняешь массив
memo1.text:=memo1.text + ' ' + (inttostr(a)); // Выводишь в мемо
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
If SaveDialog1.Execute then Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
If OpenDialog1.Execute then Memo2.Lines.LoadFromFile(OpenDialog1.FileName);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Clear;
memo2.Clear;
edit1.Clear;
end;

end.

[/syntax]

[MOTOCoder]

2 MOTOCoder: Не факт. Файл понятие растяжимое.

Просто мне такие задачи попадались(типа "создать типизированный файл и программу для его чтения"), так там нужно использовать именно бинарные файлы. А Memo.Lines.LoadFromFile вообще никакой работы с файлами не предполагает.

[Хыиуду]

Кстати, интересно, как автор задачи собирается СНАЧАЛА распечатать массив, а потом его ЗАПОЛНИТЬ?