[Protos1993]

Здравствуйте!! помогите составить программу которая создает файл ’F1.DAT’ из 10 элементов типа Integer. Выведите его на экран. Удалите последние пять элементов и выведите его содержимое на экран.(на форме 2 кнопки "Создать" и "Удалить", и Memo в которое выводятся числа). Ребят выручайте! Заранее благодарен!

[angvelem]

Задача не проста, а ОЧЕНЬ проста. Каков ваш код?

[Protos1993]

Мой код к сожалению не правилен, прогрмма работает но не по нужному алгаритму(нужно было использовать Assignfile и подобные процедуры для работы с файлами в делфи), можете предложить свой вариант?
вот код

Код:

procedure TForm9.Button1Click(Sender: TObject);
var
  List:TStringList;
  i:integer;
begin
  List:=TStringList.Create;
  Randomize;
  for i:=1 to 10 do
      List.Add(IntToStr(Random(100)));
  List.SaveToFile('C:\Новая папка\F1.DAT');
  Elements.Lines.LoadFromFile('C:\Новая папка\F1.DAT');
end;

procedure TForm9.Button2Click(Sender: TObject);
var
  List:TStringList;
  i:integer;
begin
  List:=TStringList.Create;
  List.LoadFromFile('C:\Новая папка\F1.DAT');
  for i:=1 to 5 do
      List.Delete(5);
 Elements.Lines:=List;

[angvelem]

После того как вы привели свой код, могу:

Код:

// создание файла и вывод в Memo
var
  F : TextFile;
  I, J : Integer;
begin
  Memo1.Clear;
  Randomize;
{$I-}
  AssignFile(F, 'f1.dat');
  ReWrite(F, 1);
  for I := 0 to 9 do
  begin
    J := Random(100);
    WriteLn(IntToStr(J));
    Memo1.Lines.Add(IntToStr(J));
  end;
  CloseFile(F);
{$I+}  
end;

// чтение файла и вывод в Memo
var
  F : TextFile;
  I : Integer;
  S : String;
begin
  Memo1.Clear;
{$I-}
  AssignFile(F, 'f1.dat');
  Reset(F, 1);
  for I := 0 to 4 do
  begin
    ReadLn(S);
    Memo1.Lines.Add(S);
  end;
  CloseFile(F);
{$I+}  
end;

На вскидку, примерно так.

[Protos1993]

В какую папку сохраняется файл??

[Protos1993]

ReWrite(F, 1);
в этом месте ругается (Too many actual parameters- вот такую ошибку выдает).Не могли бы вы проверить код на работоспособность ???