Научите вводить и выводить массив в файл

[Влад-mego]

Научите вводить и выводить массив в файл)

[VVM]

Держи.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    Arr: array of integer;
    procedure FillArray; //заполняет массив;
    procedure SaveArray(A: array of integer); //сохраняет массив;
    procedure LoadArray(A: array of integer); //загружает массив;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
  LoadArray(Arr);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  SaveArray(Arr);
end;

procedure TForm1.FillArray;
var
  I: integer;
begin
  Randomize;
  SetLength(Arr, 100);
  for I := 0 to High(Arr) do
    Arr[I] := random(100);
end;

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

procedure TForm1.LoadArray(A: array of integer);
var
  Ini: TIniFile;
  I: integer;
begin
  Ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Array.ini');
  try
    for I := 0 to High(A) do
      Arr[i] := Ini.ReadInteger('Array', IntToStr(I), 0);
  finally
    Ini.Free;
  end;
end;

procedure TForm1.SaveArray(A: array of integer);
var
  Ini: TIniFile;
  I: integer;
begin
  Ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Array.ini');
  try
    for I := 0 to High(A) do
      Ini.WriteInteger('Array', IntToStr(I), A[i]);
  finally
    Ini.Free;
  end;
end;

end.

[Влад-mego]

Спасибо канечно)Но я ступил мне не в паскале а с++ надо

[Ламер_001]

кто то сжег все книги по с++?

[Влад-mego]

ахахха))))просто проспал лекцию)))терь мучаюсь)))думал здесь кто нить по бырому накатает)