- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
function HexToInt(s: string): integer;
label
gte;
var
tempt: string;
i: integer;
begin
tempt := '';
if s = '' then
begin
HexToInt := 0;
goto gte;
end;
for i := 1 to Length(s) do
begin
tempt := tempt + IntToHex(Ord(s[i]), 2);
end;
HexToInt := StrToInt('$' + tempt);
gte:
end;
guest 17.05.2011 15:02 # 0
Я бы тоже так написал
guest 17.05.2011 15:03 # −7
yes, тарасик, накажи меня.
guest 17.05.2011 15:27 # 0
TarasB 17.05.2011 15:17 # 0
miLord-Corwin 18.05.2011 08:59 # 0
В прямом - да, работает. Запускается, что-то делает, что-то выдает.
В переносном - нет, не работает. Выдает полный бред.
Lure Of Chaos 17.05.2011 15:47 # 0
фтопку костыли языка!
bugmenot 17.05.2011 18:31 # +1
великолепно
eth0 17.05.2011 21:46 # 0
Govnocoder#0xFF 17.05.2011 23:17 # +1
TarasB 18.05.2011 09:15 # 0
Вообще у дельфи FAQ часто ущербные. Например, когда я искал алгоритм замены подстроки в строке, я надеялся найти что-то нормальное, с Кнутом-Моррисом-Праттом, например, но все время натыкался на решения, написанные на Дельфи в лоб. Ещё меня бесит их концепция "зато работает, и сразу, а ты оптимизатор хренов, будешь час умный алгоритм отлаживать".
bugmenot 18.05.2011 09:25 # 0
ctm 19.05.2011 06:40 # 0
TarasB 19.05.2011 09:20 # +4
Lure Of Chaos 19.05.2011 11:22 # 0
ctm 20.05.2011 06:36 # 0
guest 18.05.2011 09:46 # −6
guest 18.05.2011 10:08 # −6
guest 18.05.2011 10:18 # −6
guest 18.05.2011 10:20 # −7
guest 18.05.2011 12:26 # −7
TarasB 18.05.2011 13:04 # +7
guest 18.05.2011 13:10 # −7
Govnocoder#0xFF 18.05.2011 23:17 # −1
Lure Of Chaos 19.05.2011 11:23 # +1
guest 20.05.2011 09:57 # +2
Такой вайпер может превратить уютненький говнокодик в гнездо порока и развратаодин большой тред зла.
Отсюда вывод - всякая карма противоестественна. Капча 6681 не даст соврать.
istem 23.05.2011 11:10 # 0
Lure Of Chaos 23.05.2011 12:43 # 0
bugmenot 23.05.2011 12:45 # 0
Lure Of Chaos 23.05.2011 12:54 # 0
guest 23.05.2011 13:01 # +3
guest 23.05.2011 12:58 # −4
Hu-hu-hu!
Do you dog it?
guest 18.05.2011 10:13 # +2
guest 18.05.2011 10:22 # −1
TarasB 18.05.2011 09:55 # 0
guest 18.05.2011 10:02 # 0
Только я тупанул немного, там надо 55 ставить. Тогда:
"a" - 55 = 65 - 55 = 10
TarasB 18.05.2011 10:40 # +2
guest 18.05.2011 10:53 # −1
При использовании арифм. операций char автоматически переводится в тип другого операнда (float/int). Точнее, char x - int y определена как x:int - y
TarasB 18.05.2011 11:14 # +7
guest 18.05.2011 11:49 # 0
guest 18.05.2011 12:28 # +1
TheHamstertamer 02.06.2011 21:11 # −1
guest 18.05.2011 11:55 # −4
TarasB 18.05.2011 12:13 # +4
guest 18.05.2011 12:21 # −8
Vindicar 18.05.2011 12:58 # +6
"Ну ты лол" (с) народное
guest 18.05.2011 13:17 # −4
guest 18.05.2011 13:24 # −6
Govnocoder#0xFF 18.05.2011 23:18 # +1
guest 19.05.2011 04:00 # −3
Lure Of Chaos 19.05.2011 11:24 # +1
guest 19.05.2011 12:32 # +4
Lure Of Chaos 19.05.2011 12:39 # 0
guest 19.05.2011 12:48 # +5
Lure Of Chaos 19.05.2011 12:51 # 0
guest 19.05.2011 12:56 # 0
Lure Of Chaos 19.05.2011 12:59 # 0
guest 19.05.2011 13:08 # +3
Уже нет.
Lure Of Chaos 19.05.2011 13:11 # 0
guest 19.05.2011 13:30 # 0
Lure Of Chaos 19.05.2011 19:37 # +2
bugmenot 18.05.2011 13:04 # +3
выходят наружу
akaDElpher 19.05.2011 00:46 # −1
Vindicar 19.05.2011 12:24 # +4
guest 20.05.2011 00:01 # +1
guest 20.05.2011 10:11 # +7
guest 20.05.2011 13:12 # 0
guest 20.05.2011 13:20 # 0
Govnocoder#0xFF 20.05.2011 15:29 # +2
guest 20.05.2011 15:34 # +1
Объект удаляется... удаляется... вот его и совсем не видно.
Govnocoder#0xFF 20.05.2011 15:39 # +1
guest 20.05.2011 16:57 # −7
i dog it
ху-ху-ху
you dog it
ху-ху-ху
dog is funny
dog it with me
will be even funnier
akaDElpher 22.05.2011 21:44 # 0
guest 23.05.2011 10:59 # 0
Уроки математики на govnokod.ru
guest 23.05.2011 14:19 # 0
function HexToInt(value: string): int
begin
result := StrToInt('$' + value);
end;
но на Дельфи уже не пишу давно. Да теперь, смотря на єнтот код действительно смешьно и стьідно :)
SmackMyBitchUp 24.05.2011 14:32 # −1
bugmenot 24.05.2011 17:59 # +1
adli__82 27.05.2011 11:51 # −1
Вот, взято из SysUtils:
function StrToInt(const S: string): Integer;
var
E: Integer;
begin
Val(S, Result, E);
if E <> 0 then ConvertErrorFmt(@SInvalidInteger, [s]);
end;
функции Val как таковой в Delphi нет, Delphi само подставляет нужный вызов из System.pas исходя из типов переменных. Поискав в де-ЖУКЕРЕ находим что реально вызывается _ValLong, листинг смотри ниже:
function _ValLong(const s: String; var code: Integer): Longint;
var
I: Integer;
Negative, Hex: Boolean;
begin
I := 1;
code := -1;
Result := 0;
Negative := False;
Hex := False;
while (I <= Length(s)) and (s[i] = ' ') do Inc(I);
if I > Length(s) then Exit;
case s[i] of
'$',
'x',
'X': begin
Hex := True;
Inc(I);
end;
'0': begin
Hex := (Length(s) > I) and (UpCase(s[I+1]) = 'X');
if Hex then Inc(I,2);
end;
'-': begin
Negative := True;
Inc(I);
end;
'+': Inc(I);
end;
if Hex then
while I <= Length(s) do
begin
if Result > (High(Result) div 16) then
begin
code := I;
Exit;
end;
case s[i] of
'0'..'9': Result := Result * 16 + Ord(s[i]) - Ord('0');
'a'..'f': Result := Result * 16 + Ord(s[i]) - Ord('a') + 10;
'A'..'F': Result := Result * 16 + Ord(s[i]) - Ord('A') + 10;
else
code := I;
Exit;
end;
end
else
while I <= Length(s) do
begin
if Result > (High(Result) div 10) then
begin
code := I;
Exit;
end;
Result := Result * 10 + Ord(s[i]) - Ord('0');
Inc(I);
end;
if Negative then
Result := -Result;
code := 0;
end;
Ты действительно считаеш такой подход хорошим???
bugmenot 27.05.2011 12:21 # 0
adli__82 27.05.2011 12:39 # 0
adli__82 27.05.2011 12:47 # 0
Так лучше?
bugmenot 27.05.2011 14:09 # +2
броланд истратил тыщи макако-часов на то, чтобы сырцы RTL выглядели прилично
хайлайтер жжот, кстати
TheHamstertamer 02.06.2011 21:15 # −1
ROFL
TheHamstertamer 07.07.2011 13:53 # 0
особенность №1:
вызывает срачи в интернетах
guest 07.07.2011 16:04 # −2
guest 06.12.2011 16:39 # −2
guest 06.12.2011 16:40 # −2
guest 06.12.2011 17:18 # −2
guest8 09.04.2019 10:39 # −999