delphi-xe7

I have a child form 'frmTest' and a main form 'TfrmMain'. I set the main form as parent for frmTest like this: unit Main; INTERFACE USES System.SysUtils, System.Classes, Vcl.Forms, Test, Vcl.StdCtrls, Vcl.Controls; type TfrmMain = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private public end; IMPLEMENTATION {$R *.dfm} procedure TfrmMain.Button1Click(Sender: TObject); VAR frmTest: TChildForm; begin Application.CreateForm(TChildForm, frmTest); //frmTest:= TForm1.Create(Self); frmTest.Parent:= Self; frmTest.Show; frmTest.SetFocus; end; unit test; { THIS IS THE CHILD }

In Delphi 2009, SysUtils.pas contains this in line 425: EProgrammerNotFound = class(Exception); Is this simply an easter egg or something serious? When should this exception be raised? Does it also exist in Delphi Prism and/or Free Pascal? Q: Is this exception class still declared in Delphi (currently XE7)? A: Yes, and it is even documented ! Nonstandard way to indicate software faults. You can use EProgrammerNotFound as an alternative to indicate software faults detected at run time. It is just the result of a long day and we had gotten a little giddy. For many, many years (ever since I'd

I m just trying to execute a sample given during the installation of Delphi xe7, the MessageAlerts on android platform, unfortunately it does not working, it gives the following error message: Blocking Dialogs not implemented in this platform procedure TMessageAlertsForm.btnMultiButtonAlertClick(Sender: TObject); begin { Show a multiple-button alert that triggers different code blocks according to your input } case MessageDlg('Choose a button:', System.UITypes.TMsgDlgType.mtInformation, [ System.UITypes.TMsgDlgBtn.mbYes, System.UITypes.TMsgDlgBtn.mbNo, System.UITypes.TMsgDlgBtn.mbCancel ], 0)

Somewhere I found this code to convert a BitMap to a string: function Base64FromBitmap(Bitmap: TBitmap): string; var Input: TBytesStream; Output: TStringStream; begin Input := TBytesStream.Create; try Bitmap.SaveToStream(Input); Input.Position := 0; Output := TStringStream.Create('', TEncoding.ASCII); try Soap.EncdDecd.EncodeStream(Input, Output); Result := Output.DataString; finally Output.Free; end; finally Input.Free; end; end; However, this gives back a block of wrapped lines. Is it possible to get one single line without line breaks? XE7 introduces the System.NetEncoding unit which

I have an EurekaLog bug report showing an EEncodingError . The log points to TFile.AppendAllText . I call TFile.AppendAllText is this procedure of mine: procedure WriteToFile(CONST FileName: string; CONST uString: string; CONST WriteOp: WriteOpperation; ForceFolder: Boolean= FALSE); // Works with UNC paths begin if NOT ForceFolder OR (ForceFolder AND ForceDirectoriesMsg(ExtractFilePath(FileName))) then if WriteOp= (woOverwrite) then IOUtils.TFile.WriteAllText (FileName, uString) else IOUtils.TFile.AppendAllText(FileName, uString); end; This is the information from EurekaLog. What can cause

Im having a lot of trouble trying to create a customized item appearance for the TListView firemonkey control for Delphi XE7. What I want is to define my own "design" for what an item should be and use that item. For example : I would like to have an item with a Title(on top) - A Description(Middle) - A Date (Bottom) - Button(Right). I could not find any good documentation about this but i got some samples of how to create an TListView with muti details, but the problem is : that sample is not documented so is very hard to understand whats going on there. I would like to have a link or some

Consider this program: {$APPTYPE CONSOLE} begin Writeln('АБВГДЕЖЅZЗИІКЛМНОПҀРСТȢѸФХѾЦЧШЩЪЫЬѢѤЮѦѪѨѬѠѺѮѰѲѴ'); end. The output on my console which uses the Consolas font is: ????????Z?????????????????????????????????????? The Windows console is quite capable of supporting Unicode as evidenced by this program: {$APPTYPE CONSOLE} uses Winapi.Windows; const Text = 'АБВГДЕЖЅZЗИІКЛМНОПҀРСТȢѸФХѾЦЧШЩЪЫЬѢѤЮѦѪѨѬѠѺѮѰѲѴ'; var NumWritten: DWORD; begin WriteConsole(GetStdHandle(STD_OUTPUT_HANDLE), PChar(Text), Length(Text), NumWritten, nil); end. for which the output is: