Не получается сохранить записи - Free Pascal
Формулировка задачи:
Народ! Помогите, пожалуйста, исправить ошибку в программе. У меня не получается сохранить записи, программа работает, но когда сохраняешь и нажимаешь клавишу Exit, она выходит и когда заходишь она не открывает сохранённые записи. И в программе съехали столбцы, я пыталась их выровнить, в самой программе убирала пробелы, но она ничего она не меняет. Я никак не могу это исправить. А завтра её нужно сдавать! Помогите пожалуйста!!!!
Решение задачи: «Не получается сохранить записи»
textual
Листинг программы
(str:' Clean '; x:1; y:2; res:1), {1-й пункт} (str:' Add '; x:9; y:2; res:2), {2-й пункт} (str:' Del '; x:16; y:2; res:3), {3-й пункт} (str:' Sort '; x:23; y:2; res:4), {4-й пункт} (str:' View '; x:31; y:2; res:5), {5-й пункт} (str:' Viev on query '; x:39; y:2; res:6), {6-й пункт} (str:' Save '; x:56; y:2; res:7), {7-й пункт} (str:' Load '; x:64; y:2; res:8), {8-й пункт} (str:' Exit '; x:72; y:2; res:100), {9-й пункт} .... case MenuVert(MainMenu) of {Вызываем меню и в зависимости от выбранного пункта выполняем соответствующее действие} 1:ClearArray; 2:InsertToArray; 3:DeleteFromArray; 4:SortArray; 5:ViewArray; 6:SaveArray; 7:LoadArray; 8:ViewPartArray; ....
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д