Работа с файлами

[Vitalya_1993]

составьте програму которая создает файл F1.DAT из 10 элементов типа integer.выведите его на экран.удалите последние пять элементов и вывидете его содержимое на экран. Помогите сделать программу!!в Delphi!

[Arigato]

А в чем проблема?

[hon]

Нужен Button и Memo. Лови:

procedure TForm1.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');
  Memo1.Lines.LoadFromFile('C:\F1.DAT');
  ShowMessage('To continue press OK');

  List.LoadFromFile('C:\F1.DAT');
  for i:=1 to 5 do
      List.Delete(5);
  Memo1.Lines:=List;
end;

Только не очень понял, что значит отобразить на экране. И нужно ли записывать пятистрочный массив в файл?

[Mad_Cat]

програму которая создает файл F1.DAT из 10 элементов типа integer.

файл должен быть типизированным ==>

List.SaveToFile('C:\F1.DAT');

не прокатит

 List.LoadFromFile('C:\F1.DAT');

это тоже

[Vitalya_1993]

hon, спасибо большое!!!!слушай я понимаю что многое прошу, но не мог бы ты расшибровать то что написано. какие операторы, спец.слова и почему использовал, мне нужно понять суть задания, т.е как его делать???ты меня очень выручишь!!!

[hon]

Vitalya_1993,

procedure TForm1.Button1Click(Sender: TObject);
var
  List:TStringList; //список строк
  i:integer; //число
begin
  List:=TStringList.Create; //создаем список строк
                            //иногда просто создать var нельзя
  Randomize; {включаем генератор случ. чисел
  иначе при каждом запуске программы будут одни и теже числа}
  for i:=1 to 10 do
      List.Add(IntToStr(Random(100)));
  {Random(100) - генерируем случ. чило в пределах от 0 до 99
   (от 0 до числа-1)
   IntToStr - превращаем integer в String
   List.Add - добавляем строку в конец списка
  }
  List.SaveToFile('C:\F1.DAT'); //Сохраняем содержимое
  //List в Файл C:\F1.DAT
  Form1.Memo1.Lines.LoadFromFile('C:\F1.DAT');
  //загружаем в Memo файл
  ShowMessage('Чтобы продолжить, нажмите ОК'); //пауза

  List.LoadFromFile('C:\F1.DAT'); //загрузить в лист файл
  for i:=1 to 5 do
      List.Delete(5);
  //пять раз удаляем строку с индексом 5
  form1.Memo1.Lines:=List;
  //Memo=List
end;

Доп. комментарии:

• Randomize можно стартовать один раз за программу, например в FormCreate
• Если при сохранении не указать диск и/или папку (например F1.DAT), файл будет создан в каталоге с программой
• А если написать "\123\F1.DAT" (без кавычек), о в папке с программой, в папке 123
• При удалении строки, вставки строки в List, строки переиндексируються, вот почему я удалял 5 раз строку №5 (это каждый раз была другая строка)
• Memo.Lines - это TStrings; TStingsList - это улучшенный TStrings; Для Memo.Lines, можно указывать TStringList, но при этом теряются несколько опций
• Процедура Add возвращает индекс строки, но здесь он не нужен, поэтому мы его не сохраняем
• Вместо функции Add, можно использовать процедуру Append, т.к. Append не возвращает номер строки

И еще:
Memo делай повыше.
В Random(100) - можешь заменить 100, на любое число
!!!!! Я не очень понял смысл вопроса. Вместо того, чтобы использовать List, можно было организовать это дело в Memo.Lines. При этом просто в течении нескольких миллисекунд можно будет видеть удаление строк. Так что, рекомендую, если это важно подправить программу так.

И не забывай ставить +

[Vitalya_1993]

Спасибо за подробное пояснение!!только я не могу найти этот файл!ни в корневой ни где ее нету

[hon]

Сообщение от Vitalya_1993

Спасибо за подробное пояснение!!только я не могу найти этот файл!ни в корневой ни где ее нету

Попробуйте посмотреть через Total Commander при включенном разрешении просмотра скрытых файлов и папок (это можно установить в настройках).

[Vitalya_1993]

Через фар менеджер нашел этот файл, но просто его не могу найти, видно реально скрыт!