Форум: "Потрепаться";
Текущий архив: 2003.04.07;
Скачать: [xml.tar.bz2];
Вниз
Единая база процедур и функций для Delphi Найти похожие ветки
← →
handra (2003-03-21 15:36) [0]http://delphibase.endimus.com/?action=viewfunc&topic=strconvert&id=10421
Сильно?!
← →
Ihor Osov'yak (2003-03-21 15:41) [1]Да уж. Богатая замля Русская. Дураками тоже.
← →
vuk (2003-03-21 15:44) [2]Вот же блин...
← →
handra (2003-03-21 15:44) [3]Ihor Osov"yak © (21.03.03 15:41)
Да уж. Богатая замля Русская. Дураками тоже.
К вопросу о модерировании сего ресурса? ;)
← →
Danilka (2003-03-21 15:46) [4]жаль, только большие буквы. ;))
← →
Игорь Шевченко (2003-03-21 15:46) [5]А что, полезная программа...:-) Бывают хуже. Но реже.
← →
Дмитрий К.К. (2003-03-21 15:49) [6]Зато ГОТОВАЯ база процедур и функций для Delphi стала БОЛЬШЕ!
← →
Ihor Osov'yak (2003-03-21 15:49) [7]2 handra © (21.03.03 15:44)
Почему? Вполне адекватная оценка этого произведения..
Ааа... Вы решили, что я утверждаю, что дураков много в России?
Нет, ваш вывод не верен. Думаю дураков там не больше и не меньше чем в другой части земного шара.
← →
Слесарь Матерящийся (2003-03-21 15:51) [8]LOL!
← →
CAMOBAP (2003-03-21 15:53) [9]:)
← →
Radionov Alexey (2003-03-21 16:01) [10]Однако!
← →
Vlad Oshin (2003-03-21 16:09) [11]
> :)
← →
Васёк (2003-03-21 16:10) [12]
> жаль, только большие буквы. ;))
Там же написано: "Можно добавить свои символы или буквы"
Возможности впечатляют...
← →
Clickmaker (2003-03-21 16:10) [13]Интересно, а почему там символы A и C проигнорированы? А цифр вообще нет...
← →
REA (2003-03-21 16:11) [14]Выдвинуть на премию Винера по аналогии с премией Дарвина.
← →
Clickmaker (2003-03-21 16:26) [15]function FuckToH(const S: string): string;
var i: integer;
begin
Result := "";
for i := 1 to Length(S) do begin
if (S[i] = "F") then Result := Result + "Х"
else if (S[i] = "U") then Result := Result + "У"
else if (S[i] = "C") then Result := Result + "" // а что делать?
else if (S[i] = "K") then Result := Result + "Й"
else Raise Exception.Create("Invalid character"); // да уж, характер у меня, прям скажем, не сахар...
end;
end;
Пример использования:
FuckToH("FUCK");
← →
blackman (2003-03-21 16:33) [16]Ничего особенного, а вот это интереснее:
http://delphibase.endimus.com/?action=viewtopic&topic=fileother
tle.ru - WM OBNAL (812)115-5827
Справочная информация
программирование на Cbuilder, Delphi, исходники Подробнее...
проект Boys TIME
Мальчишки. Юноши. Мужчины. Проект Boys TIME Подробнее...
ОБНАЖЕННЫЕ ДАМЫ
Место сбора обнаженных дам Подробнее...
Другое (Файлы и директории)
Добавить код в данный раздел
Кого добавлять будем ?
← →
Ihor Osov'yak (2003-03-21 16:43) [17]2 Clickmaker © (21.03.03 16:26)
Среди всего прочего, код написан неоптимально...
← →
Anatoly Podgoretsky (2003-03-21 17:20) [18]Главное, что бы слово не начиналось с буквы А
← →
blackman (2003-03-21 17:27) [19]>Anatoly Podgoretsky
Anatoly - не с A ?
А с какой же ?
← →
Mike B. (2003-03-21 17:37) [20]Ну ладно, с Владиславом понятно, морозы были в Перми сильные, но ведь кто-то эту "функцию" туда добавил?
← →
app (2003-03-21 17:51) [21]blackman © (21.03.03 17:27)
С "B" по "Z" можно, остальное, впрочем остальное это филиал орешника.
← →
blackman (2003-03-21 19:48) [22]>app
А я думал, что теперь не Anatoly Podgoretsky, а
Podgoretsky Anatoly
← →
Dimka Maslov (2003-03-21 20:16) [23]Рассматривайте данный пример как один из юмористических разделов базы.
← →
NetBreaker666 (2003-03-21 20:25) [24]Меня вот вопрос мучает: а почему он case не использовал ?
← →
JibSkeart (2003-03-21 20:31) [25]А что будет если ему нужно будет перевести не
StrToChar("A") ,а так StrToChar("a")
а так же русские :)
???
:^))
← →
blackman (2003-03-21 21:57) [26]>Dimka Maslov
Мы так и рассматриваем, но что там за реклама такая ?
Такая база хорошая и с такой рекламой...
Просто обидно.
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2003.04.07;
Скачать: [xml.tar.bz2];
Память: 0.49 MB
Время: 0.009 c
