Перевести значение String к типу LongInt

← →
ganda © (2007-06-02 10:06) [0]

весь сабж!

← →
Savek (2007-06-02 10:10) [1]

StrToInt
StrToIntDef
все есть в SysUtils

← →
Ganda © (2007-06-02 10:21) [2]

приведу пример

s:= "Вася пупкин";
вот эту строку надо перевести в ячейку памяти которая имела тип целочисленный

← →
Kolan © (2007-06-02 10:24) [3]

> приведу пример

Как ты себе это представляешь?

← →
Savek (2007-06-02 10:24) [4]

И какое число LongInt равняется "Васе Пупкину"?

← →
Leonid Troyanovsky © (2007-06-02 10:39) [5]

> Ganda © (02.06.07 10:21) [2]

> вот эту строку надо перевести в ячейку памяти которая имела
> тип целочисленный

function HashOf(const Key: string): Longint; var I: Integer; begin Result := 0; for I := 1 to Length(Key) do Result := ((Result shl 2) or (Result shr (SizeOf(Result) * 8 - 2))) xor Ord(Key[I]); end;

--
Regards, LVT.

← →
oxffff © (2007-06-02 10:40) [6]

...........
var a:longint;
b:string;
begin
b:="Some text";
a:=longint(b);

???????????

← →
Kolan © (2007-06-02 10:43) [7]

> Result := ((Result shl 2) or (Result shr (SizeOf(Result)
> * 8  2))) xor
> Ord(Key[I]);

Или Result := Result + Ord(Key[I]);

← →
oxffff © (2007-06-02 10:44) [8]

strToint?

← →
oxffff © (2007-06-02 10:45) [9]

Ваща пупкын нэ пэрэвоытща

> Kolan © (02.06.07 10:43) [7]

> Или Result := Result + Ord(Key[I]);

Строка может быть до 2гб.

А для исходной постановки сгодится и Result := 0 :)

--
Regards, LVT.

Спасибо всем за ответы особая благодарность не кому Savek? за не проходимую тупость ))))))))))))))))

И образование соответствующее.

Перевести значение String к типу LongInt Найти похожие ветки