BHH>Программистский шедевр на индусском форуме на тему "как узнать завтрашнюю дату" остался непревзойденным:
Это еще что... Я не знаю, проскакивало ли это ЗДЕСЬ, но я сегодня этот тантрический код увидел впервые. И реально залип. Над этим кодом можно медитировать:
if (var == true)
return true;
else if (var == false)
return false;
else
return (!false && !true);
Re[2]: как узнать завтрашнюю дату, или Путь в Вечность
Здравствуйте, KaBoom, Вы писали:
KB>Здравствуйте, BuHHunyx, Вы писали:
KB>Это еще что... Я не знаю, проскакивало ли это ЗДЕСЬ, но я сегодня этот тантрический код увидел впервые. И реально залип. Над этим кодом можно медитировать: KB>
Здравствуйте, KaBoom, Вы писали:
KB>Это еще что... Я не знаю, проскакивало ли это ЗДЕСЬ, но я сегодня этот тантрический код увидел впервые. И реально залип. Над этим кодом можно медитировать: KB>
BHH>>Программистский шедевр на индусском форуме на тему "как узнать завтрашнюю дату" остался непревзойденным:
KB>Это еще что... Я не знаю, проскакивало ли это ЗДЕСЬ, но я сегодня этот тантрический код увидел впервые. И реально залип. Над этим кодом можно медитировать: KB>
int var = 2;if (var == true)
return true;
else if (var == false)
return false;
else
return (!false && !true);// возвращаем false.
Здравствуйте, BuHHunyx, Вы писали:
BHH>Программистский шедевр на индусском форуме на тему "как узнать завтрашнюю дату" остался непревзойденным:
не знаю, при чем тут индусы, но эта шняга уже давно проскакивала на РСДН: http://www.rsdn.ru/Forum/?mid=556381
Здравствуйте, KaBoom, Вы писали:
KB>Это еще что... Я не знаю, проскакивало ли это ЗДЕСЬ, но я сегодня этот тантрический код увидел впервые. И реально залип. Над этим кодом можно медитировать: KB>
procedure TfNastr.FormCreate(Sender: TObject);
begin try if fDmNadz.takod_progr.Active=False then
fDmNadz.takod_progr.Active:=True; except
begin ShowMessage(OnErrorMessage); Close; end; end;
end;
procedure TfNastr.btnOdbClick(Sender: TObject);
var i,j:Integer;filNam,filNam1:String;F:TextFile;rrr:Boolean;
NameOld,NameNew,Izm:String;
begin try i:=fdmNadz.taKod_ProgrKOL_INS.Value; fUdos.DBGrid_Udos.DataSource:=nil;
fUdos.DBGrid_UdosA.DataSource:=nil; fUdos.DBGrid_OUd.DataSource:=nil;
fUdos.DBGrid_OudA.DataSource:=nil;
fUdos.taUd_f.Active:=False; fUdos.taUd_Af.Active:=False;
fUdos.taUdos.Active:=False; fUdos.taUdos_A.Active:=False;
fUdos.taGur_Udos.Active:=False; fUdos.taOUdos.Active:=False;
fUdos.taOUdos_A.Active:=False; if FileExists('c:\nadzor\ondz.gdb') then
begin with Qobl_del do
begin SQL.Clear; SQL.Add('Delete From udos');
ExecSQL; SQL.Clear;
SQL.Add('Delete From UDOS_A');
ExecSQL;
end;// withend// if exiselse
begin
ShowMessage('Создание БД области прекращено.Отсутствует файл ONDZ.GDB');
Exit;
// тут надо или завершить приложение или все восстановить сетки таблend; // not FileExist
// тут новый витокbegin// ShowMessage('Начинаем переименованиие ');
j:=1;
NameNew:='c:\nadzor\ndz.gdb';
//NameNew:='ndz.gdb';
// Добавим все записиwhile j<i+1 do
begin
Izm:=IntToStr(j);
NameOld:='c:\nadzor\'+Izm+'ndz.gdb';
if FileExists(NameOld) then
begin// 3- переименовать 1NDZ.GDB в NDZ.GDBif fdmNadz.DbNadzor.Connected then fdmNadz.DbNadzor.Close;
fdmNadz.DbNadzor.Connected:=False;
DeleteFile(NameNew);
AssignFile(F,NameOld);
Rename(F,NameNew);
fdmNadz.DbNadzor.Connected:=True;
fdmNadz.DbNadzor.Open;
// SQL.Add('Insert INTO ": ODB: UDOS" select * from ": NADZOR: UDOS"');
fUdos.Move_Ud.Execute; // run the batchmove
fUdos.Move_UdA.Execute;
J:=J+1;
end// ifelse J:=J+1;
end;// whileend;//
// новый 3 витокbegin
ShowMessage('Выполнено слияние '+IntToStr(j)+' - БД');
// восстановим табл
fUdos.taUd_f.Active:=True;
fUdos.taUd_Af.Active:=True;
fUdos.taGur_Udos.Active:=True;
fUdos.taUdos.Active:=True;
fUdos.taUdos_A.Active:=True;
fUdos.taOUdos.Active:=True;
fUdos.taOUdos_A.Active:=True;
// восстановим сетки
fUdos.DBGrid_Udos.DataSource:=fUdos.dsUdos;
fUdos.DBGrid_UdosA.DataSource:=fUdos.dsOUdos_A;
fUdos.DBGrid_OUd.DataSource:=fUdos.dsOUdos;
fUdos.DBGrid_OudA.DataSource:=fUdos.dsOUdos_A;
//fUdos.DBGrid_Gur.DataSource:=fUdos.dsGur_Udos;end;
except
MessageDlg('Ошибка!! при слиянии БД!',mtWarning,[mbOk],0);
end; // tryend; // вся процедура -конец
форматирование не менял
icq# 348-436-436 Играет silent
Слова, пустые слова, подумал Стормгрен. Слова, за которые прежде люди дрались и умирали, но никогда больше не станут за них ни умирать, ни драться. И от этого мир станет лучше.
Здравствуйте, volk, Вы писали:
V>А язык какой? true и false --- это настоящие true и false, или некоторые пользовательские константы?
V>Если, скажем, true = 0x1, а false = 0x2, то совершенно нормальный код.
Может код и станет нормальным, но этого "программиста" я точно занесу в чёрный список
Re[2]: как узнать завтрашнюю дату, или Путь в Вечность
Здравствуйте, tangente, Вы писали:
T>Здравствуйте, laconix, Вы писали:
T>=) — смех сквозь слезы?
кстати да)) верно подмечено
принимать за полгода до еды
Re: как узнать завтрашнюю дату
От:
Аноним
Дата:
15.08.06 12:40
Оценка:
Здравствуйте, BuHHunyx, Вы писали:
a че? если ф-ция sleep() работает вне пространсвенно-временного континиума, то... это ж на каких компютерах работают индусы . уж не пришельцы ли они?
BHH>
BHH>Программистский шедевр на индусском форуме на тему "как узнать завтрашнюю дату" остался непревзойденным:
BHH>Code:
Здравствуйте, DSD, Вы писали:
DSD>Здравствуйте, BuHHunyx, Вы писали:
BHH>>Программистский шедевр на индусском форуме на тему "как узнать завтрашнюю дату" остался непревзойденным: DSD>не знаю, при чем тут индусы, но эта шняга уже давно проскакивала на РСДН: http://www.rsdn.ru/Forum/?mid=556381