CompareMem anders !!

[marabu]

Hallo Nico,

wenn PascalScript Zeiger-Arithmetik beherrscht, dann kannst du den Aufruf von CompareMem() in Hawkeyes Funktion durch eine eigene Funktion unterstützen:

Delphi-Quellcode:

function CompareMem(P1, P2: PChar; Length: Integer): Boolean;
begin
  Result := False;
  while Length > 0 do
    if P1^ = P2^ then
    begin
      Dec(Length);
      Inc(P1);
      Inc(P2);
    end else Exit;
  Result := True;
end;

Grüße vom marabu