{$X-} Result abfragen

[mleyen]

Hi,

wenn {$EXTENDEDSYNTAX OFF} geschaltet ist, muss man den Result immer mit dem Funktionsnamen setzen.
Aber wie fragt man den dann eigentlich ab?

Beispiel:

Delphi-Quellcode:

{$X-}
type
  TShortChar = array[Low(Byte)..High(Byte)] of Char;

function Pos(const Sign: Char; const AStr: TShortChar): Integer;
begin
  Pos := 0;
  while (AStr[Pos] <> #0) and (Pos < High(TShortChar)) do
    if AStr[Pos] = Sign then
      Exit
    else
      inc(Pos);
  Pos := -1;
end;

Der Compiler interpretiert das als wenn ich die Funktion nochmal aufrufen möchte und sagt das Parameter fehlen.
Irgendwie muss man doch da dran kommen, ohne wieder {$X+} zu schalten