Hilfestellung: arithmetic exception numeric overflow or string truncation

[Blup]

Noch einmal deutlich obwohl weiter oben bereits beschrieben:
Du reservierst nirgends Speicher, deine Deklaration sagt aber, das der zurückgegebene Speicher freigegeben werden soll.
Der zurückgegebene Zeiger weist auf einen Speicherbereich, den der Delphispeichermanager verwaltet (nähmlich einen String).
Beim Verlassen der Funktion wird dem Speichermanager automatisch mitgeteilt, alle lokalen Stringvariablen werden nicht mehr benötigt.
Der Zeiger Result verweist damit auf einen String, der eigentlich nicht mehr existiert.
Da der Speichermanager freigegebenen Speicher nicht sofort an Windows zurückgibt oder überschreibt, funktioniert das ganze unter glücklichen Umständen manchmal doch.
Zumindest gehört dieser Speicherbereich dem Delphi-Speichermanager und darf auf keinen Fall freigegeben werden!

Bin mir nicht sicher ob Result = nil auch zulässig ist, aber so sollte es funktionieren:

Delphi-Quellcode:

function IB_ExtractBetween(Value, A, B: PAnsiChar): PAnsiChar; cdecl; export;
var
  aPos, bPos: PAnsiChar;
  n: DWord;
begin
  GetMem(Result, 256);
  n := 0;
  aPos := StrPos(Value, A);
  if aPos <> nil then
  begin 
    Inc(aPos, StrLen(A));
    bPos := StrPos(aPos, B);
    if bPos <> nil then
    begin
      n := bPos - aPos;
      StrMove(Result, aPos, n);
    end;
  end;
  Result[n] := #0;
end;

oder so:

Delphi-Quellcode:

function IB_ExtractBetween(Value, A, B: PAnsiChar): PAnsiChar; cdecl; export;
var
  aPos, bPos: PAnsiChar;
  n: DWord;
begin
  Result := Value;
  if Result = nil then
    Exit;

  n := 0;
  aPos := StrPos(Value, A);
  if aPos <> nil then
  begin 
    Inc(aPos, StrLen(A));
    bPos := StrPos(aPos, B);
    if bPos <> nil then
    begin
      n := bPos - aPos;
      StrMove(Result, aPos, n);
    end;
  end;
  Result[n] := #0;
end;

// DECLARE EXTERNAL FUNCTION EXTRACTBETWEEN
// CSTRING(256) CHARACTER SET NONE, 
// CSTRING(256) CHARACTER SET NONE, 
// CSTRING(256) CHARACTER SET NONE
// RETURNS PARAMETER 1 CHARACTER SET NONE
// ENTRY_POINT 'IB_ExtractBetween' MODULE_NAME 'udf_dwfunc';