Stack Überlauf...aber warum???

[rumba]

Ahh, sorry...Montag...

Delphi-Quellcode:

procedure TForm51.positionieren(Sdaten : Integer);
var
aktdatensatz : Sdatensatz;

begin
     if (Sdaten<0) or (Sdaten>=Filesize(file3)) then exit
     else begin
          seek(file3, Sdaten);
          read(file3, aktdatensatz);
         edit1.Text := aktdatensatz.SpeichernAls;

     end;
end;