[Protos1993]

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

[angvelem]

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

[Protos1993]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

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]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

// <font color="Red"><b>чтение файла и вывод в Memo</b></font> 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]

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

Код:

1 2 3 4 5 6 7

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

[Protos1993]

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