Скачать: CL | DM;

Перевести значение 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]

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

---

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

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

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

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

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

--
Regards, LVT.

---

← →
Ganda ©   (2007-06-02 11:28) [11]

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

---

← →
Leonid Troyanovsky ©   (2007-06-02 11:37) [12]

> Ganda ©   (02.06.07 11:28) [11]

Сам ты тупость.

--
Regards, LVT.

---

← →
Anatoly Podgoretsky ©   (2007-06-02 12:17) [13]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.013 c