Проблема с памятью

[BizCray]

Доброго времени суток!

Второй день не могу понять свою ошибку. Вылетает, при том в разных (как я наблюдал) местах.

Сначала создавал все объекты динамически, думал проблема в этом, но нет. переделал, а ошибка осталась при создании клиента (запись в файл).
Прогал давно (лет 5 назад), сейчас все вспоминаю заново :-(
Прошу помочь и "тыкнуть носом" где моя же ошибка. :-)
Проект см. приложение. (Delphi 7)
Спасибо.

[igh0st]

Навскидку грубых ошибок нет. Убирай по-маленьку функционал и тестируй, когда закоментирешь проблемный участок программа будет работать без ошибок.

[BizCray]

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

Навскидку грубых ошибок нет. Убирай по-маленьку функционал и тестируй, когда закоментирешь проблемный участок программа будет работать без ошибок.

Пробовал уже. Ошибка переходит на другой оператор. :-(
Но, ошибка в корректном построении программы (мне кажется).
Рубает по адресу памяти. Значит не так делаю, хочу понять ЧТО!

[Аватар]

А вы в процедуре StrToOurStr в параметр inputS не пишите и все путем будет
да и вместо функции CdefDataBaseClient не помешает сделать процедуру CdefDataBaseClient(var input : TDataBaseClient)

[BizCray]

Сообщение от Аватар

А вы в процедуре StrToOurStr в параметр inputS не пишите и все путем будет

Хм. В двух словах : почему?
передавать по указалетелю? хотя и так по адресу передается ведь...

Сообщение от Аватар

да и вместо функции CdefDataBaseClient не помешает сделать процедуру CdefDataBaseClient(var input : TDataBaseClient)

Передавать по адресу?
Спасибо, чет задубел совсем. Исправлю.

[Аватар]

Не совсем точно выразился. В процедуре trToOurStr есть такой участок кода

    for i := Length(inputS) + 1 to nLengthFIO do
     inputS[i] := ' ';

Здесь в String пишутся байты за пределы памяти выделенные под строку. Тогда уж inputS:=inputS+' '; или просто inputS:=inputS+StringOfChar(' ',nLengthFIO-Length(inputS)) без цикла

[BizCray]

Мда... =)
Понял ошибку.
Благодарю!