Pokusavam nesto nauciti. Dodjem do serijala ali nije pravi:
10041 txtRegIme_LostFocus
10042 txtRegIme.Text
10043 Len(String:"amela") returns LONG:5
10044 txtRegIme.Text
10045 Mid(VARIANT:String:"amela", long:1, VARIANT:Integer:1)
10046 Asc(String:"a") returns Integer:97
10047 txtRegIme.Text
10048 Mid(VARIANT:String:"amela", long:2, VARIANT:Integer:1)
10049 Asc(String:"m") returns Integer:109
10050 txtRegIme.Text
10051 Mid(VARIANT:String:"amela", long:3, VARIANT:Integer:1)
10052 Asc(String:"e") returns Integer:101
10053 txtRegIme.Text
10054 Mid(VARIANT:String:"amela", long:4, VARIANT:Integer:1)
10055 Asc(String:"l") returns Integer:108
10056 txtRegIme.Text
10057 Mid(VARIANT:String:"amela", long:5, VARIANT:Integer:1)
10058 Asc(String:"a") returns Integer:97
10059 Str(VARIANT:Double:262144)
10060 LblSerNum.Caption <-- " 262144" (String)
10061 txtRegIme_LostFocus
Hoce neko pomoci?
Hvala.
Link:
http://www.inet.hr/~mban/abeceda.htm