Android 4.2 vs 5.0+

[wschrabi]

Ja danke, aber ich möchte dass der Programmablauf wieder anhaltet solange keine Eingabe getätigt wurde.
Ich hab die ganze Logik darauf aufgebaut.
WIe siehts damit aus? Bin am Knoblen und um jeden Rat dankbar.

Delphi-Quellcode:

function TForm1.MyInputQuery(line1: string; line2: string; var invar: string): boolean;
var
   myResult:integer;
   myVal: string;
begin
myResult:=3;

InputQuery( line1, [line2], [invar],
    procedure(const AResult: TModalResult; const AValues: array of string)
    begin
       //repeat
          if AResult=mrOK then
            begin
            myResult:=1;
            MyVal:=AValues[0];
            ShowMessage(' EIngabe: '+myval);
            end
          else
            begin
            myResult:=2;
            Myval:='';
            end;
       //until ((AResult=mrOK) or (AResult=mrCancel));
    end);
    
 repeat
    case myResult of
      1: begin Result:=true; end;
      2: begin Result:=false; end;
      3: begin Result:=false; end;
    end;  
    if Result  then invar:=myVal else invar:='';
 until myresult <> 3;
 toast(' EIngabe getätigt!');
end;