Сидел сегодня разбирался с алгоритмом Jaro-Winkler как постучался наш вчерашний студент… Ну ладно, в принципе я ему и не обещал, но все таки. Заодно Дельфи вспомню =)
Ниже идет лог диалога со «студентом»
немного отредактировал, убрал некоторые таймпасты.
show
Lord Nikon, 16.05.2009 15:49:53:
ре — что скажешь по поводу програмулины? поможешь?
W!z@rD, 19:41:48:
да, сделал
W!z@rD, 19:48:45:
тебе надо или как?
Lord Nikon, 23:42:48:
да конечно
W!z@rD, 23:42:58:
на форуме
Lord Nikon, 23:43:53:
а ты сделал и с временем тоже? чтоб можно было от времени ещё отсчитывать (12:23:11 к примеру)?
W!z@rD, 23:44:07:
иди на форуме смотри
Lord Nikon, 23:44:24:
спасибо тебе, очень выручил
чел у меня нет ИДЕ, чтоб собрать это посмотреть работоспособность (конкретно в синтаксисе и алгоритмах делфи 0)
W!z@rD, 23:47:21:
чел твои проблемы
Lord Nikon, 23:47:27:
хех
W!z@rD, 23:47:36:
пишешь курсач, значит он тебе нафиг не сдался
Lord Nikon, 23:47:49:
ну спасибо что откликнулся — очень помог, ололо, похоже это то
я почти все уловил, только не понял с датам и вроде 1.01.2001. как они получаються?
W!z@rD, 23:49:17:
я тебя не понимаю
Lord Nikon, 23:51:16:
хех — так и должно быть (ты думаешь что я идиот, я думаю что ты)… ты меня не можешь понять,а я тебя да — интересно….ладно спасибо тебе чел — очень выручил..
Lord Nikon, 23:53:13:
добавь ещё две переменные — mounth, year, чтоб ещё и месяцы с годами подщитывались
Lord Nikon, 23:53:19:
пожалуйста, что скажешь?
W!z@rD, 23:54:17:
нет слов
Lord Nikon, 23:55:27:
я несу ахинею, верно?_))
W!z@rD, 23:57:15:
да =)
W!z@rD, 23:57:38:
сделаю, за 10 вмз, готов? еще и объясню построчно, скомпилю файл и т.п. я тоже студент и у меня сессия начинается)
Lord Nikon, 23:59:28:
а вот смотри, что чел мне один наваял:
http://d0nald.lviv.bz/course.txt
W!z@rD, 23:59:56:
это все ладно, я тебе могу сделать и все объяснить. ну так?
Lord Nikon, 17.05.2009 0:02:10:
у меня нет денег.. и тебе стоит измениться
W!z@rD, 0:02:21:
ого…
W!z@rD, 0:03:34:
>> и тебе стоит измениться
после этого как-то и не охото отдавать готовое решение, сказал бы просто что нет денег, а тут носом тыкать. желание отбило
Ну например меня зацепило 3 вещи:
- >>чел у меня нет ИДЕ, … ;
- >>ты думаешь что я идиот, я думаю что ты;
- >>и тебе стоит измениться;
Значит нормально, чувак пишет курсач, при этом у него даж компилятора нет. Помогаешь, а он думает что я идиот. Носом меня тыкает…
Ну уж извини, после такого какой нафиг код? Иди сам разбирайся…
А вот и вся его курсовая:
procedure TForm1.Button1Click(Sender: TObject);
var
d, h, m, s: Integer;
d1, d2: TDateTime;
begin
d1:=StrToDateTime(Edit1.Text);
d2:=StrToDateTime(Edit2.Text);
d:=DaysBetween(d1, d2);
h:=HoursBetween(d1, d2);
m:=MinutesBetween(d1, d2);
s:=SecondsBetween(d1, d2);
ShowMessage(Format('Days: %d'#13'Hours: %d'#13'Minutes: %d'#13'Seconds: %d', [d, h, m, s]));
end;
p.s. тут еще 2 переменные + функции добавить: MonthsBetween, YearsBetween
p.p.s не хочешь срать, не мучай жопу
