Problem mit FileRead

[Nothine]

moin,
auch wenn ich nicht genau weiß warum dem so ist, kann ich dir zumindest schonmal sagen dass der den fehler produzierende teil deines sources die funktion StrAlloc ist. ersetze sie durch GetMem oder AllocMem, und der fehler dürfte nicht mehr auftreten (zumindest tut er es bei mir nach dem ersetzen nicht mehr).

noch so am rande: wer speicher alloziert sollte ihn auch am ende wieder freigeben (mit StrDispose bzw. bei GetMem und AllocMem mit der Funktion FreeMem)

Delphi-Quellcode:

constructor TXY.Create;
var F: Integer;
    B: PChar;
begin
  inherited Create;
  F := FileOpen('D:\x.txt',fmOpenRead); //leseberechtigung reicht doch, oder?
  B := AllocMem(4);
  try
    FileSeek(F,0,soFromBeginning);
    FileRead(F,B^,3);
    ShowMessage(B+'!'); //StrPas ist eigentlich überflüssig
  finally
    FreeMem(B);
    FileClose(F);
  end;
end;

[Edit] achja und willkommen in der DP [/edit]