SaveToFile(beliebige Variable);

[Flo.Hoe]

Delphi-Quellcode:

Type THeld = class(Tobject)

  Procedure Anfangswerte;

  procedure ausrichten(Richtung:integer);
  Procedure links_drehen (A,R:integer);
  Procedure Zufall_drehen(A,R:Integer);
  Procedure rechts_drehen(A,R:integer);
 
  Procedure laufen;

  Procedure SchrittRechtsGehen(z:integer);
  Procedure Bewegungsperiode_rechts;
  Procedure Abschluss_rechts;

  Procedure SchrittLinksGehen(z:integer);
  Procedure Bewegungsperiode_links;
  Procedure Abschluss_links;

  Procedure Schrittzurueckgehen(z:integer);
  Procedure Bewegungsperiode_zurueckgehen;
  procedure SchrittVorGehen(z:integer);
  Procedure Bewegungsperiode_Vor;




  function  ScheinH(Entfernung:Real):Real;
  function  Scheinb(Entfernung:Real):Real;
  function  ScheinV(Entfernung:Real):Integer;
  function  getSchrittlaengeX(Entfernung:Real):Integer;
  function  getSchrittlaengeY(Entfernung:Real;R:Integer):Integer;
  function  getBmpUY(Entfernung:Real):Real;

  Function  Frei(R:integer):Boolean;

  Procedure save;             // Held soll gespeichert werden
  Procedure load;             // Held soll durch die gespeicherte Datei ersetzt werden

  private
     { Private declarations }
  public

     
    Bild: TBitmap;
    Frame,Ausgang,NBXPeriode,NBYPeriode:integer;
    xPos,yPos,zPos,Bildnummer,Breite,Hoehe,v,sBezug,ScheinHoehe,HBVerhaeltnis,Sicht: real;
    rechts,links,unten,oben,weiter,Prozess,XBewegung:boolean;
    Pfad:String;

     { Public declarations }
  end;

var Held : THeld;