File compare

[value is NULL]

dh mit:

 Stream := TFileStream.Create('c:\Temp\StreamTest.Datei', fmOpenRead); auslesen und dann zB mit folgender funktion vergleichen:

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;

?

LG