Android: MessageDlg Logik

[amigage]

Hallo,

ich finde die Android Logik nicht ganz sinnvoll, keine blockierenden Meldungen zuzulassen:

Beispiel: Nachfrage, ob eine bestehende Datei überschrieben werden soll.

Windows:

Delphi-Quellcode:

if FileExists() then
begin
   Case MsgDlg('soll die Datei überschrieben werden') of
     mrNo: exit;
    end;
end;

// ab hier wird die Datei überschrieben

Android:

Delphi-Quellcode:

if FileExists() then
begin
  MsgDlg('soll die Datei überschrieben werden') 
     procedure(const AResult: TModalResult)
     begin 
       Case AResult of
          mrNo: exit;
          mrYes: begin
                 // ab hier wird die Datei überschrieben
                 exit;
                 end;
       end;
    end);
  exit;
end;

// ab hier wird die Datei überschrieben

Mich stört hierbei, dass ich die nach der Frage abzuarbeitenden Befehle in eine Funktion auslagern muss, da die Befehle entweder bei einer nicht vorhandenen Datei und bei einem "Ja, du darfst überschreiben" ausgeführt werden sollen.

Wie handhabt ihr diese Logik?

Amigage