нужно в общем зделать что-то типа базы данных пользователей
надо интерфейс аля excel ... тоесть icon list но с возможностью
редактирования полей ... вопрос - как ?
а то я тут разобрался с unicodом в пурике,
все же хочется добить проект ...
вот моя недо-реализация потдержки unicode
Procedure.s CodeString(string.s)
string_length = StringByteLength(string,#PB_Unicode)/2
out.s = ""
*p_b.BYTE = @string
h.s = ""
For n = 1 To (Len(string)+1)*2
h = h+RSet(Str(*p_b\b),3,"0")
*p_b = *p_b+1
Next n
out = h
ProcedureReturn out
EndProcedure
Procedure.s DeCodeString(string.s)
string_length = StringByteLength(string,#PB_Unicode)/2
out.s = RSet("",string_length/3)
*p_b.BYTE = @out
For i = 1 To string_length Step 6
char1.b = Val(Mid(string,i,3))
char2.b = Val(Mid(string,i+3,3))
*p_b\b = char1
*p_b = *p_b + 1
*p_b\b = char2
*p_b = *p_b + 1
Next
ProcedureReturn out
EndProcedure
кто что может подсказать именно по методу перевода ?
есть ли идеи по лутче ... ?