Совместная разработка программ

[execom]

буду рад любой помощи!Пожалуйста, напишите мне по e-mail (alex_soldier@mail.ru) или ICQ 243566833

Вечером отпишусь, возможно то же впрягусь в это дело... Интересно...

[Alex_soldier]

Люди, у меня в выходные может не быть инета.
Подготовил тока 3 задания:

Event004: ... свободно ...
eng.Engine004(); - открыть диалог выбора папки (главный), этот путь занести в соответствующее окно, сделать активными второе окно и кнопку выбора дополнительного маршрута.
act.Action004(); - будет пустым (действий не предусмотрено)

Event005: ... свободно ...
eng.Engine005(); - открыть диалог выбора папки (дополнительный), этот путь занести в соответствующее окно.
act.Action005(); - будет пустым (действий не предусмотрено)

Event006: ... свободно ...
eng.Engine006(); - сделать неактивным поле и кнопку выбора дополнительного маршрута.
act.Action006a(); - сделать поиск всех файлов в папке основного маршрута (с учетом вложенных каталогов). Для каждого файла определить полный путь (string) и дату последнего изменения (longing). Если получится, то и CRC32, но это не так критично. В файл не скидывать, просто присваивать в 2 (3) переменные!

Выбирайте и пишите прямо здесь!

[Квэнди]

Сделаю последнее.
Вопрос1 : названия компонент, которые надо сделать неактивными ?
Напишу код с своими переменными, переименовать, думаю, не сложно будет
Да, код смогу только в понедельник выложить, ибо в выходные интернета нет (

Для файлов не имеют значение расширения ?

[Virtson]

дайте задание алгоритм какой разработать, что-то большее, чем
открыть диалог и вызвать окно- тут 3 строчки


больше пересылать и соединять будем

[Romanus]

Народ а че вы разрабатываете может я тоже помогу

[Alex_soldier]

Все-таки выбрался на минутку!

Квэнди, ок. Найти все файлы с любыми расширениями. Служебный файл хранится в константе ccFILE_BASE
С неактивными объектами отбой - пересмотрены концепции.

Virtson, но ведь кто-то же все равно должен будет это сделать. А без этого шага сложно продвинуться дальше.

Новое задание:
Написать функцию.
На входе 2 параметра Path1, Path2: string;
Path1 - полный путь к папке с проектом
Path2 - полный путь к папке файлу где-то в ее недрах
Получить на выходе относительный путь от корня папки до искомого файла.

Пример:
Path1:= 'c:\Users\alex\';
Path2:= 'c:\Users\alex\Sait\Data\index.html ';
result:= 'Sait\Data\index.html';
* Учесть возможность отсутствия последнего слеша в Path1 !!!

[AVer]

ОК. Сразу беру последнее.

[Alex_soldier]

Проект продвигается.
Спасибо всем, кто присылает решения.
Я чуть-чуть видоизменяю код под общий стиль, так что не удивляйтесь изменениям.

Задания с открытием диалога выбора папки я реализовал сам, правда не очень хорошо. Посмотрите, может быть подскажете лучший вариант.

Теперь два новых задания:

1) Проверить корректность строки даты-времени с функцией исправления и приведения к стандартному виду. Т.е. пользователь мог ошибиться или снебрежничать при изменении текста, а нам нужно получить стандартную строку (только если это возможно):

// ПРИМЕР:
// DateStr:= '4.02.07 9:00';
// result:= '04.02.2007 09:00';
function Action010a(
DateStr: string // Дата и время в виде строки
): string; //===[ Вернуть корректную строку времени



2) Найти разницу в минутах между текущей и новой датой, заданных строками:

// ПРИМЕР:
// DateStr:= '04.02.2007 13:00';
// DateNew:= '01.12.2006 10:47';
// result:= ... кол-во минут между ними (+ или -);
function Action010b(
DateStr, // Дата и время (текущая) в виде строки
DateNew: String // Дата и время (новая) в виде строки
): longint; //===[ Пересчитать поправку в минутах

[Квэнди]

Со своими переменными правда.
Все функции в вложении

[Alex_soldier]

Ну что же, проект продвигается к завершению, осталось не так много заданий.
Если бы у меня не накрылся комп, наверное, уже все завершилось.
Итак, вот что еще нужно сделать:

Action006c - процедура построчного сравнения 2 файлов, поиск непарных строк.

Action009a - добавление строки в опр. место файла (добавление записи о новой версии)

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