[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- вот такую ошибку выдает).Не могли бы вы проверить код на работоспособность ???

[angvelem]

Сохраняется в папку проекта.
Писал по памяти мог и ошибиться.

Угу, для TextFile нужно просто ReWrite(F).

[Protos1993]

Почему то при нажатии кнопки "удалить" из мемо удаляются все элементы а не последние 5?

[angvelem]

Первая процедура создаёт 10 рандомных чисел и сохраняет в файл, вторая читает 5 значений и грузит их в Memo. Обе процедуры предварительно очищают Memo.

[Protos1993]

мне нужно чтобы 5 чисел выводилось в мемо т.е их должно быть видно а при нажатии на кнопки "Удалить " у меня мемо пустое

[angvelem]

Код:

// чтение файла и вывод в 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]

Вот программа убедитель в том что 5 элементов не выдает в мемо

[angvelem]

Говорю же, писано на коленке. Мог бы и в справку заглянуть.

Код:

...
    WriteLn(F, IntToStr(J));
...

...
    ReadLn(F, S);
...

[Protos1993]

Спасибо огромное!!!Вы меня реально выручили!!! Вы даже не представляете как я Вам благодарен!!!