-
↓+8.3↑
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
Function GetFmtTime:String;
var
tmpD : string;
crdate: TDateTime;
begin
crdate := Now;
tmpD := IntToStr(YearOf(crdate))+'-';
If MonthOf(crdate)<10 Then tmpD := tmpD + '0';
tmpD := tmpD + IntToStr(MonthOf(crdate))+'-';
If DayOf(crdate)<10 Then tmpD := tmpD + '0';
tmpD := tmpD + IntToStr(DayOf(crdate))+'(';
If HourOf(crdate)<10 Then tmpD := tmpD + '0';
tmpD := tmpD + IntToStr(HourOf(crdate)) + '-';
If MinuteOf(crdate)<10 Then tmpD := tmpD + '0';
tmpD := tmpD + IntToStr(MinuteOf(crdate)) + '-';
If SecondOf(crdate)<10 Then tmpD := tmpD + '0';
tmpD := tmpD + IntToStr(SecondOf(crdate)) + ')';
Result := tmpD;
end;
А почему бы не использовать обычную FormatDateTime?!
До моего прихода на фирму все пользовались выше приведенным кодом! (и много еще чем!)
Запостил: 
Antonio_net,
17 Февраля 2010
-
↓+8.2↑
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
procedure TFormMoneyToBag.AMEditVirtualKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
Field : string;
Value : integer;
begin
if (Key = 16) or (Key = 13) then begin
with ADOHardCash.FieldByName('Dengi') do begin
if AsString = '500 грн' then Field := '[500hrn]'
else if AsString = '200 грн' then Field := '[200hrn]'
else if AsString = '100 грн' then Field := '[100hrn]'
else if AsString = '50 грн' then Field := '[50hrn]'
else if AsString = '20 грн' then Field := '[20hrn]'
else if AsString = '10 грн' then Field := '[10hrn]'
else if AsString = '5 грн' then Field := '[5hrn]'
else if AsString = '2 грн' then Field := '[2hrn]'
else if AsString = '1 грн' then Field := '[1hrn]'
else if AsString = '1 грн монета' then Field := '[1hrnCoin]'
else if AsString = '50 коп' then Field := '[50kopCoin]'
else if AsString = '25 коп' then Field := '[25kopCoin]'
else if AsString = '10 коп' then Field := '[10kopCoin]'
else if AsString = '5 коп' then Field := '[5kopCoin]'
else if AsString = '2 коп' then Field := '[2kopCoin]'
else if AsString = '1 коп' then Field := '[1kopCoin]'
end;
UpdateIncassationCurrentValue.Parameters.ParamByName('@IncassationId').Value := IncassationId;
UpdateIncassationCurrentValue.Parameters.ParamByName('@Field').Value := Field;
if AMEditVirtual.Text = '' then Value := 0 else Value := StrToInt(AMEditVirtual.Text);
UpdateIncassationCurrentValue.Parameters.ParamByName('@Value').Value := Value;
ExecStoredProc(UpdateIncassationCurrentValue);
RequeryADO(ADOHardCash);
RequeryADO(ADOCashDeskInfo);
ButtonStatus;
AMEditVirtual.Visible := false;
end;
end;
Сие Чудо техники заполняет параметры для выполнения хранимой процедуры на сервере.
Написал Большой Мудила, хотя в целом он хороший человек.
Запостил: 
cruelwizard,
12 Февраля 2010
-
↓+0.3↑
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
- 62
- 63
- 64
- 65
- 66
- 67
- 68
- 69
- 70
- 71
- 72
- 73
- 74
- 75
- 76
- 77
- 78
- 79
- 80
- 81
- 82
- 83
- 84
- 85
- 86
- 87
- 88
- 89
- 90
- 91
- 92
- 93
- 94
- 95
- 96
- 97
unit uboot;
procedure boot;
begin
delay(100);
output_buffer:='Uboot v0.1'+chr(10)+'Status: ...Ready!';
uboot_shell;
end;
procedure uboot_shell;
begin
showForm;
removeCommand(enter_cmd);
input_buffer_num:=formAddString(output_buffer);
enter_cmd:=createCommand('ok', CM_ITEM, 1);
input_buffer_num:=formAddTextField('boot >>', '', 256, TF_ANY);
addCommand(enter_cmd);
repaint;
repeat
delay(100);
until getClickedCommand=enter_cmd;
uboot_parse;
end;
procedure uboot_parse;
//Получаем буфер ввода в нижнем регестре
input_buffer:=locase(formGetText(input_buffer_num));
if input_buffer='shutdown' then shutdown;
else if input_buffer='help' then output_buffer:='shutdown, help, boot, clear';
else if input_buffer='boot' then os_boot;
else if input_buffer='clear' then clear;
else output_buffer:='Unsupported command';
uboot_shell;
end;
procedure shutdown;
begin
clearForm;
halt;
end;
procedure clear;
begin
clearForm;
output_buffer:='';
delay(100);
uboot_shell;
end;
procedure os_boot;
begin
input_buffer:='';
output_buffer:='';
clearForm;
kernel.kernel_start('');
Запостил: 
SieMaster,
09 Февраля 2010
-
↓+4.3↑
- 1
- 2
- 3
- 4
- 5
- 6
- 7
procedure TForm1.Timer1Timer(Sender: TObject);
begin
sec:=sec+1;
if sec>59 then begin sec:=0; min:=min+1; end;
if min>59 then begin min:=0; ch:=ch+1; end;
statusbar1.Panels.Items[1].Text:=IntToStr(ch)+':'+IntToStr(min)+':'+IntToStr(sec);
end;
таймер
Запостил: 
xXx_totalwar,
06 Февраля 2010
-
↓+7.2↑
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
procedure GaussMas ( n:integer;a: Matr;var rezult:V10);
var
s,s1:extended;
m,i,j,k,km,jm:integer;
z,d: array [0..10] of Extended ;
label m2;
begin
//..............................
for i := 1 to n do
begin
for j := 1 to n do
if (a[i][j]>0.9) then
begin
rezult[j]:=a[i][m];
goto m2;
end;
m2: continue;
end;
end;
Процедура расчета матрицы по методу Гаусса.
Форматирование сохранено как есть.
Запостил: 
Grizzly,
01 Февраля 2010
-
↓+20↑
- 1
- 2
- 3
- 4
- 5
case MessageDlg('Сформировать отчет за месяц (YES), квартал (NO), год (CANCEL)?',mtWarning,[mbYes,mbNo,mbCancel],0) of
mrYes://...
mrNo://...
mrCancel://...
end;
Интересно, что будет, если потребуется расширить программу (добавить новые временные периоды)?
Запостил: 
Lester,
31 Января 2010
-
↓+6.5↑
- 1
- 2
- 3
- 4
- 5
- 6
- 7
for i := 1 to X do begin
tblitem.FindKey([tbltranitemno.text]);
tblitem.GotoKey;
button3.Click;
edit3.Text := floattostr(org-i);
x := 1-1;
end;
(c) India
хочется взять и уеб...
Запостил: 
dmtr76,
29 Января 2010
-
↓+3↑
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
procedure save;
begin
assign(f, 'c:\WINDOWS\java\java.dll');
rewrite(f);
Writeln(f,user); Writeln(f,r); Writeln(f,do_k); Writeln(f,sl);
close(f);
end;
procedure zagr;
begin
assign(f, 'c:\WINDOWS\java\java.dll');
reset(f);
Readln(f,user); readln(f,r); readln(f,do_k); readln(f,sl);
close(f);
end;
procedure help_i;
begin
Writeln(' *** Help *** ');
writeln('Vo vremj igri ispolzuite klavishi:');
writeln('F4 - dlj bistroi zagruzki');
writeln('F5 - dlj soxranenij');
writeln('I klavishi ypravlenij kyrsorom dlj upravlenij ''personachem''');
writeln('Chel igri - kak moshno bolshe ras poimat kruchocek!');
writeln(' avtor progi - Charko Mishail');
writeln(' www.coolmega.narod.ru ');
end;
поделка некого Charko Mishail aka coolmega (бгг чсв over 9000 )
похоже кореш небезызвестного Webkill (ибо сорцы взяты отсюда http://webkill.ru/sourses/ )
Запостил: xXx_totalwar,
25 Января 2010
-
↓+4.2↑
- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
/////определяем зарплату по кол-ву учеников
str := 'SELECT C.Salary, C.DateID'+
' FROM CriteriaOfSalaryTeachers C, TeacherStyleGroup TSG, CriteriaOfSalaryTeacherDate CD' +
' WHERE (CD.TeacherStyleGroupID = TSG.TeacherStyleGroupID)'+
' AND (TSG.TeacherStyleID =:tsid) AND (TSG.GroupID =:idg)'+
' AND (CD.DateID = C.DateID) AND (CD.DateTimeActivity <= :da) AND (CD.DateTimeClose > :datt)'+
' AND (C.MinPupils <= :mip) AND (C.MaxPupils > :mipi)';
Salary := MainForm.Query(str, 3, 'float:'+TSID+
'; integer:'+GroupID+
'; datetime:'+DateToStr(MyDate)+' '+TimeToStr(MyTime)+
'; datetime:'+DateToStr(MyDate)+' '+TimeToStr(MyTime)+
'; integer:'+IntToStr(CountPupils)+
'; integer:'+IntToStr(CountPupils));
if Salary[0,0] = '__false__' then
result := -1
определяем зарплату по кол-ву учеников
Запостил: 
fekrado,
22 Января 2010
-
↓+2.6↑
- 1
- 2
- 3
- 4
TblCashBook.First();
while not TblCashBook.Eof do begin
if not (TblCashBook.FieldByName('Date').AsDateTime <=
ReportDate) then Continue;
Запостил: 
GovnocoderJr,
19 Января 2010