- 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
begin
if not directoryexists('input') then createdir('input');
if not directoryexists('output') then createdir('output');
if not directoryexists('temp') then createdir('temp');
if not directoryexists('temp\temp') then createdir('temp\temp');
if not directoryexists('temp\temp_') then createdir('temp\temp_');
if not directoryexists('temp\temp__') then createdir('temp\temp__');
if not directoryexists('temp\temp___') then createdir('temp\temp___');
if not directoryexists('temp\temp____') then createdir('temp\temp____');
if not directoryexists('temp\temp_____') then createdir('temp\temp_____');
if not directoryexists('temp\temp______') then createdir('temp\temp______');
if not directoryexists('temp\temp_______') then createdir('temp\temp_______');
if not directoryexists('temp\temp________') then createdir('temp\temp________');
if not directoryexists('temp\temp_________') then createdir('temp\temp_________');
if not directoryexists('temp\temp__________') then createdir('temp\temp__________');
if not directoryexists('temp\temp___________') then createdir('temp\temp___________');
if not directoryexists('temp\temp____________') then createdir('temp\temp____________');
if not directoryexists('temp\temp_____________') then createdir('temp\temp_____________');
if not directoryexists('temp\temp______________') then createdir('temp\temp______________');
if not directoryexists('temp\temp_______________') then createdir('temp\temp_______________');
if not directoryexists('temp\temp________________') then createdir('temp\temp________________');
print_('Вас приветствует программа для сортировки слвоарей True Sort');
print_('Если у вас есть какие-то вопросы по её работе - нажмите Help');
turbo:=false;
end;
bugmenot 23.07.2010 08:16 # +4
*придавливает Help булыжником*
Lure Of Chaos 23.07.2010 10:22 # +4
*загипнотизировался лесенкой кода*
Dreyk 23.07.2010 15:20 # +2
bugmenot 23.07.2010 16:39 # 0
BlincAttack 23.07.2010 16:47 # +1
Мистер Хэнки 23.07.2010 17:24 # +1
хочется взять и... выучить дельфи
Говногость 23.07.2010 18:52 # +1
ReallyBugMeNot 23.07.2010 22:45 # +3
(Ударение ставить по вкусу.)
ganja_boy 28.07.2010 12:13 # −1
outlaw42 31.10.2010 16:56 # 0
Олицетворение ООП-подхода(юнит с формой):
Правильно, зачем добавлять методы в класс формы если можно все делать на глобальных подпрограммах и на форму ссылаться через Form1:
А тут вообще ноу комментс: