Сама по себе красота кода бессмысленна, ведь мы должны не любоваться кодом, а разобраться в нем.
В то же время существуют стандарты стилевого оформления (в т.ч. корпоративные).
Из них вытекает как бы естественная красота.
Для себя я разработал такое оформление:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
//===[ Quest.Code ]===[ Alex : 28 . 06 . 2007 - 28 . 06 . 2007 ]======================
//===[ Quest.Status ]===[ + (решено)
//===[ Quest.Header ]===[ Является ли строка вещественным (или целым) числом
function IsDouble(
myStr: string // Проверяемая строка
): boolean; // Возвращаемое значение (True - является, False - нет)
//===[ Quest.Data ]=============================================================
var
temp: Extended; // Временная переменная
begin //===[ Quest.Body ]======================================================
//---[ + 1.11 ]---[ Начальные присвоения
result := True;
myStr := StringReplace(myStr, '.', ',', [rfReplaceAll]); // Меняем точки на запятые
//---[ + 2.11 ]---[ Обработка значения
try
temp := StrToFloat(myStr);
except
result := False;
end;
//===[ Quest.Directives ]=======================================================
{
ВНЕШНИЕ БИБЛИОТЕКИ: Запрещены!
БЫСТРОДЕЙСТВИЕ : Не критично!
РАСХОД ПАМЯТИ : Ограничен!
ОПИСАНИЕ:
Передать строку. Проверить, является ли она вещественным числом.
В качестве разделителя должны проходить символы и точка, и запятая.
Целые числа также должны проходить без ошибок.
ПРИМЕР: myStr := '4.33' или '4,33';
РЕЗ-АТ: IsDouble(myStr) => True
}
//===[ Quest.Dependences ]======================================================
{
МОДУЛИ: SysUtils, System
ВЫЗОВЫ: нет
КЛАССЫ: нет
ТИПЫ Д: нет
КОНСТ : нет
ГЛ.ПЕР: нет
}
//===[ Quest.Resume ]===========================================================
{
КОММЕНТАРИИ РАЗРАБОТЧИКА:
Подпрограмма будет часто вызываться из других.
РАСШИРЕННЫЕ СНОСКИ:
* 1 * - нет
* 2 * - нет
}
//===[ Quest.Tests ]============================================================
{
28 . 06 . 2007 : Alex
'123n34.455' => False
'4.33' => True
'4.3,3' => False
'.33' => True
'-.33' => True
'+.' => True
'-.' => True
28 . 06 . 2007 : Tester
'0.' => True
'.0' => True
# '4,33' => AV => ERROR
+ '4,33' => True => OK ( 28 . 06 . 2007 : Alex)
'+.33' => True
'.' => True
'.,' => False
}
end; //===[ Quest.End ]========================================================
Страшно и громоздко? Зато функционально!
---
Идеи движут Мир!
