Hallo,
ich hab ein Problem bei meinem Delphi programm. Ich arbeite mir mSuM und möchte ein Programm schreiben, dass verschiedene Dinge kann.....(im Prog ersichtlich) Soweit alles ok aber ich hab einen Fehler wenn ich im gestarteten Prog eine Taste drücke :"Schwerer Programmmierfehler im Umgang mit der Tastatur!" Wie bekomme ich den weg
Hier Teile meines Progs:
Danke
G3n1us
ich hab ein Problem bei meinem Delphi programm. Ich arbeite mir mSuM und möchte ein Programm schreiben, dass verschiedene Dinge kann.....(im Prog ersichtlich) Soweit alles ok aber ich hab einen Fehler wenn ich im gestarteten Prog eine Taste drücke :"Schwerer Programmmierfehler im Umgang mit der Tastatur!" Wie bekomme ich den weg
Hier Teile meines Progs:
Code:
program alles_zusammoen;
uses
mSuM;
// Das Modul mSuM wird benötigt
var derBildschirm : Bildschirm;
meineTastatur : Tastatur;
meineMaus : Maus;
meinBuSti : Buntstift;
begin
// Objekte erzeugen
derBildschirm := Bildschirm.init;
meineMaus := Maus.init;
meineTastatur := Tastatur.init;
meinBuSti := Buntstift.init;
// here we go...
meinBuSti.bewegeBis (meineMaus.hPosition,meineMaus.vPosition);
repeat
if meineTastatur.wurdegedrueckt
then
begin
meinBuSti.hoch;
if
meineTastatur.zeichen ='r'
then
begin
meinBuSti.runter;
meinBuSti.radiere;
meineTastatur.weiter;
end;
meineTastatur.weiter;
end
else ;
if meineMaus.istGedrueckt then
meinBuSti.runter
else
meinBuSti.hoch;
meinBuSti.bewegeBis(meineMaus.hPosition,meineMaus.vPosition);
until meineMaus.doppelklick;
// Aufräumen!
meineTastatur.gibFrei;
derBildschirm.gibFrei;
meineMaus.gibFrei;
meinBuSti.gibFrei;
end.
Danke
G3n1us
Zuletzt bearbeitet von einem Moderator: