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.
----------------------------------------------------------------------- *)
|