До пятницы держал специально...
Короче, помню что где-то 8-10 января приятель у которого работает моя программа попросил кое-что дописать. Не суть важно что... Я пришел, попытался чего-то сделать, но как-то совсем тяжко программировать было. Посидев минут пятнадцать и написав пару строк я сказал что башка не варит совсем, и пошли мы пить пиво... О проблеме как-то забыли совсем. И вот позавчера вспомнили опять. Открыл я то, что тогда написал и поразился глубине своих мыслей. Вот текст процедуры:
Procedure AAA; var FlgExit : boolean; begin if (qrCars.state <> dsBrowse) then FlgExit := True else FlgExit := False; if (FlgExit) then Exit; { не забыть дописать процедуру ...} end; Да, вовремя я тогда остановился :) With b/r. Gleb.