Некорректная работа с файлами

[Serge_Bliznykov]

var 	f: file of integer;  
     	g: file of integer;

Числа хранятся как обычный текстовый файл: "1 2 3 4 5 " к примеру.

Эти цитаты - ПРОТИВОРЕЧАТ друг другу!

Потому что даже Memo.Lines.LoadFromFile мне чушь выдает

что, в мемо вместо строки читается слово "чушь" ? Или в чём это проявляется?

p.s. думаю, что выложив архив с примерам файлов + исходники проекта + полный текст задания - что Вам дано и что надо получить - Вы гораздо быстрее получите конкретную помощь!

[Gapro]

Эти цитаты - ПРОТИВОРЕЧАТ друг другу!

А как выглядит file of integer?

что, в мемо вместо строки читается слово "чушь" ? Или в чём это проявляется?

вместо Появлении в поле мемо цифры 1 (файл состоит из 1 и пробела и все, расширение txt) появляется "ая1"

p.s. думаю, что выложив архив с примерам файлов + исходники проекта + полный текст задания - что Вам дано и что надо получить - Вы гораздо быстрее получите конкретную помощь!

В проекте кроме одной кнопки и этой функции, которая вызывается нажатием на кнопку ничего нету

[Johnson]

Уважаемый ТС, а не посмотреть ли Вам в сторону TIniFile, и не взрывать нам мозг?.. Если всё что Вам нужно - просто сохранить/прочитать цыхферки с диска - то идеальный метод это Ини файлы... Но ежели Вы хотите изобрести пятиколесный велосипед без руля - то не смею мешать, продолжайте...

PS: ну почему в каждом 10-м топике приходится указывать на ИниФайлы или другие стандартные методы дельфяки... Учите свою РАД, ребята, и не придется задавать глупых вопросов и получать непонятные ответы...

[Serge_Bliznykov]

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

Уважаемый ТС, а не посмотреть ли Вам в сторону TIniFile, и не взрывать нам мозг?.. Если всё что Вам нужно - просто сохранить/прочитать цыхферки с диска

Johnson, да не надо ему смотреть в сторону tinifile... Вы ещё не поняли?! У TC же обычная учебная задача. А учебные задачи надо решать согласно заданному условию. И никак не иначе!

вместо Появлении в поле мемо цифры 1 (файл состоит из 1 и пробела и все, расширение txt) появляется "ая1"

Очень сильно похоже, что файлик у Вас в формате Unicode... сохраните его как обычный текстовый - тогда всё получится!

А как выглядит file of integer?

файл записан так:

procedure TForm1.Button1Click(Sender: TObject);
var f : file of integer;
    i : integer;
begin
  AssignFile(f, 'D:\Test1.INT');
  Rewrite(f);
  for i:=1 to 5 do Write(f, i);
  CloseFile(f);
end;