Conversion for Delphi 2009 unicode issue -

-

I am converting a link from Delphi 7 to Delphi 2009. I found this error: E2010 Incompatible Type: 'Four' and 'Anscher' How can I fix this? I tried to declare the alphabet: Ansistring failed on [AlphabetLength]. 

  const alphabet = 64; Alphabet: String [Alphabet Langghi] = 'ABCDEFGHHLMNOPQRTUVXbackDDFGILMNAPCrustWoxix 0123456789 +/'; Function TBase64.ValueToCharacter (value: byte; var character: char): boolean; Start the result: = true; If (value> alphabet lang -1) result: = false else // compilation error E2010 incompatible type: 'four' and 'AnsiChar' characters: = alphabet (value + 1); End; Function TBase64.CharacterToValue (character: char; var value: byte): boolean; Start the result: = true; Value: = status (character, alphabet); If value = 0 then results: = wrong other value: = value -1; End; Avoid using the excluded shortstring type in Unicode Delphi versions (2009 and later):  

  const alphabet = 64; Alphabet = 'ABCDFGHISHLMNOPQRTUVWXAzBackDFGILMNPCrustWoxix 0123456789 +/';

The above changes must be sufficient. You should also consider changing 2-byte characters from 1-Byte AnsiChars.

Edit (Jeroen Plumeir):

Here.


Comments

Post a Comment

Popular posts from this blog

php - multilevel menu with multilevel array -

-
Just ask someone to solve this problem? I want to create a multilevel menu I can not find the right solution generated with multilevel array, it always gets an array_push error My study came from the original idea But still my Can not match the need. This is my MySQL [code] ----- --------------------- --------------- | ID | PARENT_ID | Name | Link | Seq | 1 | 0 | Dashboad | Dashboard / | 1 | 2 | 0 | Menu 1 | Menu 1 / | 2 | 3 | 0 | Menu 2 | Menu 2 / | 3 | 4 | 0 | Menu 3 | Menu 3 / | 4 | 5 | 2 | Joint Add / | 1 | 6 | 3 | Joint Add / | 1 | 7 | 2 | Edit | Edit / | 2 | 8 | 4 | Joint Add / | 1 ------------------------------------------ [/ Code] I want to do something like this in my array array ('dashboard' = & gt; array ('id' = & gt; '' 'Dame' = & gt; 'Dashboard', 'Title' = & gt; 'Dashboard', 'MatchMin' = & gt; Base_URL (). 'Dashboard /', 'Active' => = & Gt; NULL), &
Read more

c# - TypeConverter in propertygrid only converts from string, not to -

-
When the property grid is reached, only the conversion mechanism (often called) is called "Foo!" Returns the property string in the grid when I click to edit I get an exception Type.oo. Object type can not be changed to type. (Not properly translated,) What is a clue from the convert format, why not? And the error indicates that it is trying to convert to a string, not from. I think that when I want to edit this object, it will have to be converted from foo to string, and when the editing ends. Public class FooTypeConverter: StringConverter {public override object ConvertFrom (ITypeDescriptorContext Reference, CultureInfo Culture, Object Value) {New Foo (string) value); } Convert the public override object (Type the ITE DiskText Contact Reference, CultureInfo Culture, Object Value, Type Type) {Return "Foo!"; } Public override bool CanConvertFrom (ITypeDescriptorContext reference, type source type) {back true; } Public Override Bull CanConvertTo (ITypeDescrip
Read more

jQuery UI: Datepicker month format -

-
I am trying to change the format of the month that shows in the popup (not in the date that the picker actually I do not have any choice anywhere to do this, do I like to use a sub-string () or something else? What I normally display is Trying to change: Class = "ui-datepicker-title"> January & lt; / span & gt; ... & lt; / div & gt; Div>
Read more