StdApp02.pas

{ Programmkopf }
program StpApp02;

{ Deklarationsteil }
uses
{$IFDEF VER70}
       OWindows,
{$ELSE}
       WObjects,
{$ENDIF}
       BWCC;

{$R StPApp.RES}
{$I StPApp.INC}

type
        TStundenplanApplication = object( TApplication )
            procedure InitMainWindow ; virtual;
       end;

{ TStundenplanApplication }
procedure TStundenplanApplication.InitMainWindow;
var Text: array[0..255] of Char;
begin
LoadString(HInstance, str_Anwendung, @Text, SizeOf(Text));
MainWindow := New( PWindow , Init(nil, Text));
end;

var StundenplanApplication : TStundenplanApplication ;

{ Anweisungsteil }
begin
    StundenplanApplication.Init('');
    StundenplanApplication.Run;
    StundenplanApplication.Done;
end.

Copyright by Gesamtschule Zepernick - Informatik 1993 - 1998
überarbeitete Version - Stand: 21. November 1998
geeigneter Einsatz unter TPW 1.0 / TPW 1.5 / BPW 7.0

Benutzer: gast • Besitzer: seminar • Zuletzt geändert am: