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