[MAC] MessageDlg führt zu "Out of Memory"

[Sir Rufo]

Zitat von Darlo:

Zitat von Sir Rufo:

Ich würde hier ganz stumpf eine Exception werfen -> Look and Feel bleibt dabei gleich (weil du die Rückgabe nicht auswertest)

Delphi-Quellcode:

    if dsListe.Count = 0 then
      raise Exception.CreateFmt('Unter dem Suchbegriff %s wurde kein Nachname gefunden.',[suchwort]);

Führt leider zum selben Ergebnis....

Also mit XE5 Update 2 funktioniert das einwandfrei ...

Delphi-Quellcode:

unit FormMain;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls;

type
  TForm1 = class( TForm )
    Button1 : TButton;
    Button2: TButton;
    procedure Button1Click( Sender : TObject );
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1 : TForm1;

implementation

{$R *.fmx}

procedure TForm1.Button1Click( Sender : TObject );
begin
  MessageDlg( 'Test', TMsgDlgType.mtError, mbOKCancel, 0 );
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  raise Exception.Create('Test');
end;

end.