StringReplace geht nicht

[Union]

Zitat von Hansa:

Um das Prozedur-/Funtionsverhalten zu beeinflussen, das wäre jedenfalls {$X-}, standardmässig ist das offensichtlich {$X+}

Und schon wird fast Dein gesamter Code nicht mehr compiliert weil Du auch kein result mehr hast.

Delphi-Quellcode:

// Geht nicht
function IstUngleichNull(AInteger : integer) : boolean;
begin
  result := AInteger <> 0;
end;

// Muss dann so sein
function IstUngleichNull(AInteger : integer) : boolean;
begin
  IstUngleichNull := AInteger <> 0;
end;