OSZ Handel I
Informatik

Karel D. Robot
TProtokollFrm

S. Spolwig

[Delphi | OOP]
Startseite


TProtokollFrm
 

Kurzbeschreibung Attribute Methoden

Klassendiagramm

Die Klasse ist das Formular, das das Gedächtnis-Protokoll von Robots anzeigt.
 


Zur Erläuterung:

Protokollform ist ein Formular, das sich öffnet, wenn das Gedächtnis-Protokoll von Robots angezeigt werden soll.

 

 
unit uProtBox;
(* ******************************************************************** *)
(* K L A S S E : TProtokollFrm  - Karel D. Robot                        *)
(* -------------------------------------------------------------------- *)
(* Version     :  2.2                                                   *)
(* Autor       : (c) 2004, Siegfried Spolwig                            *)
(* Beschreibung: Die Klasse öffnet ein Fenster zur Anzeige der Actions, *)
(*               die Karel nach dem Start ausgeführt hat.               *)
(* Compiler    : Delphi 6.0                                             *)
(* Aenderungen : s. Doc. / 25-JUL-04  TMemo statt TListBox              *)
(*                                                                      *)
(* known bugs  : -                                                      *)
(* ******************************************************************** *)
interface
// =======================================================================
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,
  uRobot;
type
  TProtokollFrm = class(TForm)
    Memo1 : TMemo;

    function  IstAktiv : boolean;
    procedure Aktualisieren(rob : TRobot);
    procedure Speichern(Sender: TObject);
    procedure Laden(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  end;
var
  ProtokollFrm: TProtokollFrm;
(*  ----------------- B e s c h r e i b u n g -------------------------
Oberklasse     : -
Bezugsklassen  : TRobot
Methoden
--------
IstAktiv
  Anfrage: ob das Aktualisieren des Protokoll aufgerufen wurde
  vorher : -
  nachher: true, wenn Aktualisieren gestartet ist
Aktualisieren(rob : TRobot);
  Auftrag: Alte Einträge löschen, das Gedaechtnis von rob an das Protokoll übergeben
  vorher : -
  nachher: done
Laden
  Auftrag: Altes Protokoll aus externer Datei <KDRoute.dat> laden.
  vorher : Die Liste ist initialisiert.
  nachher: Das Protokoll ist in die Listbox geladen.
Speichern
  Auftrag: Aktuell gezeigtes Protokoll in externe Datei <KDRoute.dat> speichern.
  vorher : -
  nachher: Die Liste ist gespeichert. Ist die Liste leer, wird eine Datei mit
           der Länge 0 angelegt. Datei ist geschlossen.
FormClose
  Auftrag: Aktuelles Protokoll bei Programmende speichern
  vorher : -
  nachher: done.
----------------------------------------------------------------------- *)

©  05. April 2006    Siegfried Spolwig

page_top