HStr в Delphi 7 Lite

[supernewbie]

прошу рабочий сабж :)

[QaK]

Чем лайт от обычной семерки отличается?

[supernewbie]

не знаю, прост вдруг)

[QaK]

а что, "стандартный" HStr отказывается пахать?

[supernewbie]

еще хуже, его там нет

[QaK]

Ээ, я в смысле вытащить из исходников пакетхака?

[supernewbie]

эх, ты так говоришь как будто это легко :)

[QaK]

ЭЭээ, ну да, вообще-то, легко ... щас дам

function SymbolEntersCount(s: string): string;
var
i: integer;
begin
Result := '';
for i := 1 to Length(s) do
if not(s[i] in [' ',#10,#13]) then
Result:=Result+s[i];
end;

function HexToString(Hex:String):String;
var
buf:String;
bt:Byte;
i:Integer;
begin
buf:='';
Hex:=SymbolEntersCount(UpperCase(Hex));
for i:=0 to (Length(Hex) div 2)-1 do begin
bt:=0;
if (Byte(hex[i*2+1])>$2F)and(Byte(hex[i*2+1])<$3A)then bt:=Byte(hex[i*2+1])-$30;
if (Byte(hex[i*2+1])>$40)and(Byte(hex[i*2+1])<$47)then bt:=Byte(hex[i*2+1])-$37;
if (Byte(hex[i*2+2])>$2F)and(Byte(hex[i*2+2])<$3A)then bt:=bt*16+Byte(hex[i*2+2])-$30;
if (Byte(hex[i*2+2])>$40)and(Byte(hex[i*2+2])<$47)then bt:=bt*16+Byte(hex[i*2+2])-$37;
buf:=buf+char(bt);
end;
HexToString:=buf;
end;

[supernewbie]

хм, я где-то такое уже видел, ладно, потом попробую

[QaK]

Всегда пожалуйста :)

[supernewbie]

а ну да ну да)

Добавлено через 57 минут
*ля, там нет ловер и апер кейза

[QaK]

supernewbie, что мешает добавить самому? =)

[supernewbie]

точно, я пожалуй щас все функции туда добавлю)