Единая база процедур и функций для 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]

Главное, что бы слово не начиналось с буквы А

>Anatoly Podgoretsky
Anatoly - не с A ?
А с какой же ?

Ну ладно, с Владиславом понятно, морозы были в Перми сильные, но ведь кто-то эту "функцию" туда добавил?

>app
А я думал, что теперь не Anatoly Podgoretsky, а
Podgoretsky Anatoly

Рассматривайте данный пример как один из юмористических разделов базы.

Меня вот вопрос мучает: а почему он case не использовал ?

А что будет если ему нужно будет перевести не
StrToChar("A") ,а так StrToChar("a")
а так же русские :)
???
:^))

>Dimka Maslov
Мы так и рассматриваем, но что там за реклама такая ?
Такая база хорошая и с такой рекламой...
Просто обидно.

Единая база процедур и функций для Delphi Найти похожие ветки