Кружок нубов(Вопрос-Ответ)

[RayTraceR]

Ребят подскажите пожалуйста функцию конвертации WideString (Unicode) в HEX? Для л2пкх 3.5+
ЗЫ: Чтобы вызывался в скрипте

//Breadfan: StrToHex() ?

Добавлено через 28 минут

Breadfan, нето
Переведи этой функцией привет и получиш:
EF F0 E8 E2 E5 F2
А в вайдстринг тобиш в юникоде:
3F 04 40 04 38 04 32 04 35 04 42 04

//Breadfan: тогда через "ход конем" попробуй просто:

Function WidetoHex(Text:string):string;
begin
    Oldbuf:=buf;
    buf:='';
    WriteS(Text);
    c:=copy(buf,1,(length(buf)-2));
    Buf:=Oldbuf;
    Result:=(c);
end;
..................
b:=WideToHex(s);
....................

Breadfan, ты гений работает! Правда в моем случае олдбуф необязательно юзать т.к. я буф формирую вконце функции, а так большое спасибо!