delphi-xe6

i have a problem to access into websites whit utf8 charset, for example when i try to accesso at this www Click for example all utf8 characters are not correctly codified. This is my access routine: var Web : TIdHTTP; Sito : String; hIOHand : TIdSSLIOHandlerSocketOpenSSL; begin Url := TIdURI.URLEncode(Url); try Web := TIdHTTP.Create(nil); hIOHand := TIdSSLIOHandlerSocketOpenSSL.Create(nil); hIOHand.DefStringEncoding := IndyTextEncoding_UTF8; hIOHand.SSLOptions.SSLVersions := [sslvTLSv1,sslvTLSv1_1,sslvTLSv1_2,sslvSSLv2,sslvSSLv3,sslvSSLv23]; Web.IOHandler := hIOHand; Web.Request.CharSet :=

I have a panel inside another: The inner panel is aligned alTop : And the outer panel is set to AutoSize=true : And everything sizes. If i changes the height of the inner panel at design time, the outer panel auto sizes to accommodate it: And now runtime Now i need to change the height of the inner panel at runtime : procedure TForm2.Button1Click(Sender: TObject); begin pnlInner.Height := pnlInner.Height + 50; lblPointer.Top := pnlOuter.Top + pnlInner.Height; end; Except when i change the height of the inner panel at runtime , the autosize panel does not autosize : This of course worked in

Using Delphi XE6, I am creating a TdateTimePicker-like control, but for a couple of reasons, I am using a TButtonedEdit which has a TMonthCalendar "embedded" within it. A full bare-bones demo is: I have got it going as desired with the month calendar being SHOWn when the right button is clicked ( with Style=WS_POPUP ) and I HIDE it when a selection is made, the user navigates away, ESCapes etc. unit DateEditBare1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.ImgList, Vcl

Based on this link Conditional compilation (Delphi) CPUARM conditional if should be false for Simulator and true for device, the problem is it's not working for me. I am using Delphi XE6, iOS Simulator 7.1 This is my code {$IFDEF CPUARM} s := 'iOS device'; {$ELSE} s := 'iOS Simulator'; {$ENDIF} p.s iOS Simulator is running in a VMWare virtual machine. Checking for CPUARM is the correct solution. iOS binaries compiled for the simulator are not ARM, they are actually x86. Just make sure to wrap your iOS code with {$IFDEF IOS} : {$IFDEF IOS} {$IFDEF CPUARM} s := 'iOS device'; {$ELSE} s := 'iOS

I want some way to write a function in delphi like the following procedure Foo<T>; begin if T = String then begin //Do something end; if T = Double then begin //Do something else end; end; ie: I want to be able to do different things based on a generic type I've tried using TypeInfo in System but this seems to be suited to objects rather than generic types. I'm not even sure this is possible in pascal TypeInfo should work: type TTest = class class procedure Foo<T>; end; class procedure TTest.Foo<T>; begin if TypeInfo(T) = TypeInfo(string) then Writeln('string') else if TypeInfo(T) = TypeInfo