Решение проблемы сохранения данных о собаках в проекте по программированию на Delphi

Delphi , Синтаксис , Массивы

В процессе разработки проекта на Delphi, студенты часто сталкиваются с проблемами, связанными с чтением и записью данных. Одной из таких проблем является сохранение информации о собаках в массив и последующая загрузка из него. Рассмотрим подробно, как можно решить проблему доступа к неинициализированным участкам памяти, которая возникла при попытке добавления новых записей о собаках.

Описание проблемы

Студент столкнулся с ошибкой доступа к памяти при попытке сохранить записи о нескольких собаках. Каждая запись содержит информацию о кличке, владельце, породе, поле для указания пола и стерилизации (0/1), а также массивы для веса и оценки кондиции (BCS). Система успешно сохраняет информацию о первой собаке, но при добавлении второй собаки возникает ошибка.

Анализ проблемы

При анализе кода, представленного студентом, можно заметить, что при загрузке данных из файла не происходит корректная инициализация массива dog. В частности, переменные o и z, отвечающие за индексы в массивах веса и BCS, не сбрасываются к нулю для каждой новой записи, что приводит к попытке доступа к неинициализированным элементам массива.

Решение проблемы

Для решения проблемы необходимо изменить процедуру LoadAllData. Перед началом цикла чтения данных из файла следует инициализировать переменные o и z значением 0 и увеличить размер массива dog на единицу. Это позволит корректно обрабатывать данные о нескольких собаках.

procedure LoadAllData(var dog: DogArray);
var
    ident: String;
    i, o, z: Integer;
    StoredData: Text;
begin
    AssignFile(StoredData, '/Users/Nat/Desktop/data.txt');
    Reset(StoredData);
    i := 0;
    o := 0;
    z := 0;

    // Инициализация массива перед чтением данных
    SetLength(dog, 0);
    repeat
        SetLength(dog, Length(dog) + 1);
        o := 0;
        z := 0;
        SetLength(dog[High(dog)].weight, 0);
        SetLength(dog[High(dog)].bcs, 0);

        // Остальной код чтения данных...
    until ident = '~';
    Close(StoredData);
end;

Альтернативный подход

В качестве альтернативного подхода можно использовать запись и чтение данных в файл в бинарном формате, что позволит избежать необходимости вручную разбирать текстовые метки и массивы. Это упростит код и сделает его более надежным.

procedure SaveData(const DogArray: TArray<TDogInformation>; const FileName: string);
var
    File: TextFile;
    i: Integer;
begin
    AssignFile(File, FileName);
    Rewrite(File);
    for i := Low(DogArray) to High(DogArray) do
        BlockWrite(File, DogArray[i], SizeOf(TDogInformation));
    CloseFile(File);
end;

function LoadData(const FileName: string): TArray<TDogInformation>;
var
    File: TextFile;
    Data: TDogInformation;
    i: Integer;
begin
    AssignFile(File, FileName);
    ResetFile(File);
    SetLength(Result, 0);
    repeat
        IncLength(Result);
        BlockRead(File, Data, SizeOf(TDogInformation));
        Dec(Result[High(Result)], Data);
    until eof(File);
    CloseFile(File);
end;

Использование этих процедур позволит записать информацию о собаках в файл и загрузить ее обратно без необходимости вручную управлять размерами массивов и разбирать текстовые метки.

Создано по материалам из источника по ссылке.

Студенты, работающие над проектом на Delphi, сталкиваются с необходимостью корректно сохранять и загружать данные о собаках, в частности, исправляя ошибку доступа к памяти при добавлении новых записей.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Массивы ::