Конкурс "Разработка Windows-приложений в среде Delphi" , Обсуждение

Конкурс: "Разработка Windows-приложений в среде Delphi - взаимодействие с системой, проектирование, кодирование"


Внимание !

Сроки объявления победителя конкурса и публикации решений(и их разбора) переносятся.
(Решений много, причем нетривиальных, что радует )
Ориентровочно до 14.12.2009 (благими намереньями путь в ад выстелен )
Следите за объявлениями. Просьба отнестись с пониманием

Призы
За первое место - 1 DGM. Коробочка Windows Vista Home Premium (Russian).
За второе место - 1 DGM. Рюкзак Centrix Trend серо-черный с надписью "Майкрософт".
За третье место – 1 DGM. Футболка разм. 46/170 желтая, с надписью "Майкрософт Виртуализация".

Выбор победителя
Победа в конкурсе подразумевает 100% правильное решение хотя бы одной задачи.
Победителем будет считаться конкурсант, полностью решивший хотя бы одну задачу
и суммарно набравший максимальное количество баллов.
При отсутствии решений в соответствии с вышесказанным условием конкурс может быть признан
недействительным.
Критерии оценки правильности решения будут указаны в тексте задачи.
По результатам конкурса будет только один победитель. Если решений, которые претендуют на
победу, больше – то, будет проведен второй тур.

Разработчики:
CodeMonkey, Romkin, --Ins--, P.O.D

Состав жюри:
P.O.D, CodeMonkey, --Ins--, Romkin

Состав комисии:
ViktorXP, Riply

Список претендентов на победу:

Демо
osmiy74
Alexander N
Frees
andrew.virus
arj99
Lumen
Profi
mmihaylovich
Rulikkk
THandle
bems
RedCliphAloe
Aristarh Dark
Amphiluke
Lowimuz
MetalFan
Felan
antonn
@!!ex
Наиль
Keeper89
prizrak39
Pavia
kemiisto
Stalker.mg
El Burro
PEAKTOP
Ofer
Maksim V.
ttiger
-darkmamba-
vovksextra
alexeis1
sourceman
Mustitz
Marriage
SergGG

Сообщение отредактировано: P.O.D - 07.12.09, 13:41

THandle, претензия обоснована и будет рассмотрена.
Разработчики... они тоже люди и могут допускать ошибки

Сообщение отредактировано: Riply - 21.12.09, 09:32

В задании помнится отдельно подчёркивалось - никакого юникода.

Добавлено 21.12.09, 10:00

Цитата

Дополнительно:
Можно использовать любые стандартные юниты и ф-ции из версий дельфи, до 7 включительно.
Все строки и символы - Ansi (юникод не встречается).

Из ветки с результатами по поводу Brevity:

Цитата Riply @ 21.12.09, 08:29

Единственное что, я бы еще заменил uint на HDC, а AnsiReplaceStr на ReplaceStr (которая вызывает AnsiReplaceStr).

Увы, в ReplaceStr пришлось бы добавлять ещё четвёртый параметр - [rfReplaceAll].

Добавлено 21.12.09, 11:05
Кстати, никто не воспользовался переменной в стеке?

Такой вариант забракован оказался, но он ещё короче

function d(t:PChar;c:Char;i:uint=0):uint;
begin
  i:=0;
  with TStringList.Create do
  begin
    try
      LoadFromFile(t);
      while Pos(DupeString(c,i+1),Text)>0 do Inc(i);
      while Pos(c+c,Text)>0 do Text:=AnsiReplaceStr(Text,c+c,c);
      SaveToFile(t);
      d:=i
    except
      d:=0
    end;
    Free
  end
end;

Цитата Демо @ 21.12.09, 11:02

Увы, в ReplaceStr пришлось бы добавлять ещё четвёртый параметр - [rfReplaceAll].

не StringReplace, а ReplaceStr.

Упс все неработающие решения я проверю на D7 чуть позже.

Цитата P.O.D @ 21.12.09, 11:42

не StringReplace, а ReplaceStr.

В D6-D7 нет этой функции

Перетестировал на D7, результаты обновлены.

А где результаты то ?

Цитата CodeMonkey @ 25.11.09, 14:42

Интересно, как бы вы отнеслись к такой задаче на конкурсе?

CodeMonkey, где же описание к этой задаче? Месяц прошел...

Цитата arj99 @ 24.12.09, 10:43

CodeMonkey, где же описание к этой задаче? Месяц прошел...

Ключевые слова: "примерно через месяц"

Решение.

К сожалению, последние 5 участников не прошли тесты на следующем файле (символ для поиска a):
assaas asdasda aaaaaaaaaasdasdasda asdas
asdsaas,asd asas-d0a-s asd as aaaaaaaaaaa asda
asda asda aaaaaaaaaaaaa-aa-aaaa,asdm,asaaa
asdasaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa123a

Где-же 5 если всчего 2, у меня решение рабочее и выдает 33 символа для текста выше-приведенного