oop in pascal - help needed! - Article 1454 - go-pugleaf

Article View: alt.msdos.programmer

Article #1454

Back to alt.msdos.programmer Previous Next

oop in pascal - help needed!

#1454

From: Merkosh
Date: Mon, 17 Aug 1998 00:00

33 lines
2027 bytes

Hi,

I want to program an object that allows an easy installation of a keyboard
interrupt handler. The whole thing should look something like this:

Type	PKeyboard	= ^TKeyboard;
	TKeyboard	= Object
		Scan	: Byte;
		Control	: Byte;

		Constructor Init(Scan, Control : Byte);
		Destructor Done;		Virtual;
		Procedure ActionProcedure;	Virtual;
	End;

Were Scan is the scancode of the key which has to be pressed to start the
procedure ActionProcedure and Control is the control key (shift, alt, etc)
which has to be pressed.
The following implementation is invalid:

	Procedure TKeyoard.ActionProcedure; Interrupt;
	Begin
	...
	End;


If anybody has a CLUE how something like this can be implemented with
virtual mehtods or can explain why this is impossible, please contact me:
<merkosh@iwwn.com.na>

Thanx

Uwe

Technical Details

Message-ID: <01bdca19$cb831300$640c1bc4@Merkosh.iwwn.com.na>

Path: arc1-ca.pugleaf.net!unknown!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 110467,87a99d11cf64563f,start
X-Google-Attributes: gid110467,public
X-Google-Thread: 10261c,87a99d11cf64563f,start
X-Google-Attributes: gid10261c,public
X-Google-Thread: 13ed84,87a99d11cf64563f,start
X-Google-Attributes: gid13ed84,public
X-Google-Thread: 111659,87a99d11cf64563f,start
X-Google-Attributes: gid111659,public
X-Google-Thread: 102bfa,87a99d11cf64563f,start
X-Google-Attributes: gid102bfa,public
X-Google-Thread: f8a86,87a99d11cf64563f,start
X-Google-Attributes: gidf8a86,public
X-Google-Thread: f9e32,87a99d11cf64563f,start
X-Google-Attributes: gidf9e32,public
X-Google-Thread: 10cc59,87a99d11cf64563f,start
X-Google-Attributes: gid10cc59,public
From: "Merkosh" <merkosh@iwwn.com.na>
Subject: oop in pascal - help needed!
Date: 1998/08/17
Message-ID: <01bdca19$cb831300$640c1bc4@Merkosh.iwwn.com.na>
X-Deja-AN: 382081646
Cache-Post-Path: admin.iwwn.com.na!unknown@196.27.12.100
Organization: IWWN Winthoek
Newsgroups: alt.msdos.programmer,comp.lang.pascal,comp.lang.pascal.borland,comp.lang.pascal.misc,comp.msdos.programmer,fido.ger.pascal,fido.pascal_ger,fido.pascal-ger,fidonet.pascal