Manchmal hilft es, wenn man in ganzen Sätzen spricht.
Ein paar Codezeilen aus dem Zusammenhang gerissen sind kein ganzer Satz.
Vermutlich sieht es so aus
Delphi-Quellcode:
function foo() : integer;
begin
if InputQuery(
{} 'Machine ID: ' + MachineID,
{} 'Release Code',
{} CodeStr)
then
begin
HexToBuffer( CodeStr, SpecialCode, SizeOf( SpecialCode ) );
if IsSpecialCodeValid( ModKey, SpecialCode ) then
Result := GetSpecialCodeValue( ModKey, SpecialCode );
end;
end;
Speziell unter Android funktioniert das aber so
generell nicht, denn die Doku sagt ja, dass
InputBox
unter Android
nicht blockierend ist.
Also kommt dein Funktionsaufruf zurück, obwohl die
InputBox
noch angezeigt wird und es ja noch kein Ergebnis gibt.
Und wenn es ein Ergebnis gibt ... wohin soll das Result denn geliefert werden? An einen Funktionsaufruf, der schon längst ein Gewesener ist.
Du musst dein Konzept umstellen.
@Sir Rufo
Wenns weiter Hilft, ich benutze zur Zeit XE8 Trial
Da die Versionen sich schon recht stark unterscheiden (wie man sieht) ist es sehr hilfreich die konkrete Delphi-Version zu wissen um eine konkrete Antwort geben zu können.
Information does matter