До пятницы держал специально...

Короче, помню что где-то 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.


Ответить