Crt32
Delphi 32 Version von Pascal CRT-Unit.
Autor: FRANK ZIMMER
Implementierung von Turbo Pascal CRT-Unit für Win32
Console-Subsystem
&&& __ Machen CRT32.inf Datei &&& __
Dateiname = Crt32
Ersatz =
Fileversion = 1.0.0127
FileDescription = Umsetzung von Turbo Pascal-Unit CRT für Win32-Console-Subsystem
Ziel = Delphi 2.0
Name des Autors = Frank Zimmer
Autor [email protected]
Es liest URL =
Datei Status = Freeware
kompletter Quellcode =
Kategorie Verschiedenes =
&&& __ Machen CRT32.int Datei &&& __
{$APPTYPE CONSOLE}
Einheit crt32;
{# Freeware}
{# Version 1.0.0127}
{# Datum 18.01.1997}
{# Autor Frank Zimmer}
{# Beschreibung
Copyright © 1997, Frank Zimmer, [email protected]
Version: 1.0.0119
Datum: 18.01.1997
eine Implementierung des Turbo Pascal CRT-Unit für Win32-Console-Subsystem
getestet mit Windows NT 4.0
Beim Start erhalten Sie den Fokus auf die Konsole!!!
Durchführung jetzt (* sind nicht in der ursprünglichen Crt-Unit):
Prozedur und Funktion:
ClrScr
ClrEol
WhereX
WhereY
GotoXY
InsLine
DelLine
HighVideo
LowVideo
NormVideo
TextBackground
TextColor
Verzögerung / / keine Processtime verwenden
KeyPressed
ReadKey / / keine Processtime verwenden
Ton / / mit Windows NT Ihr können die Variablen SoundFrequenz, SoundDuration
NoSound
* TextAttribut / / Set TextBackground und TextColor gleichzeitig nützlich für Lastmode
* FlushInputBuffer / / spülen die Tastatur und alle anderen Ereignisse
* ConsoleEnd / / Ausgabe von 'Eine beliebige Taste drücken' und warten Sie Schlüssel eingeben, wenn nicht Rohr
* Rohr / / True, wenn die Ausgabe auf ein Rohr oder eine Datei umgeleitet wird
Variablen:
WindMin / / min.-WindowRect
WindMax / / die Max. WindowRect
* ViewMax / / Max. ConsoleBuffer beginnen bei (1,1);
TextAttr / / Actual Attribute nur durch diese Routinen ändern
LastMode / / Last nur durch diese Routinen ändern Attribute
* SoundFrequenz / / mit Windows NT Ihr Thise Variablen verwenden könnte
* SoundDuration / / wie lange Glocken den Lautsprecher-1 bis??, Standard =-1
* HConsoleInput / / der Input-Griff;
* HConsoleOutput / / Ausgabe-Griff;
* HConsoleError / / Fehler-Griff;
Diese Quelle ist Freeware, die viel Spaß :-)
Geschichte
23.01.97 Sound, Verzögerung, Codepage eingefügt und Setfocus auf der Konsole
24.01.97 Status weitergeleitet
}
Schnittstelle
verwendet Windows, Nachrichten;
{$ifdef win32}
const
Schwarz = 0;
Blau = 1;
Grün = 2;
Cyan = 3;
Rot = 4;
Magenta = 5;
Braun = 6;
LightGray = 7;
DarkGray = 8;
Hellblau = 9;
Hellgrün = 10;
LightCyan = 11;
LightRed = 12;
LightMagenta = 13;
Gelb = 14;
Weiß = 15;
Funktion WhereX: Integer;
Funktion WhereY: Integer;
Prozedur ClrEol;
Verfahrens ClrScr;
Prozedur InsLine;
Verfahren DelLine;
Verfahren GotoXY (const x, Y:integer);
Prozedur HighVideo;
Prozedur LowVideo;
Prozedur NormVideo;
Procedure TextBackground (const Farbe: Wort);
Verfahren TextColor (const Farbe: Wort);
Verfahren TextAttribut (const Farbe, Hintergrund: Wort);
Verfahren zu verzögern (const Ms:integer);
Funktion KeyPressed:boolean;
Funktion ReadKey:Char;
Verfahren-Sound;
Verfahren-NoSound;
Prozedur ConsoleEnd;
Prozedur FlushInputBuffer;
Funktion Leitung: Boolean;
var
HConsoleInput:thandle;
HConsoleOutput:thandle;
HConsoleError:Thandle;
WindMin:tcoord;
WindMax:tcoord;
ViewMax:tcoord;
TextAttr: Word;
LastMode: Word;
SoundFrequenz: Integer;
SoundDuration: Integer;
{$endif win32}
Umsetzung
&&& __ Machen CRT32.pas Datei &&& __
{$APPTYPE CONSOLE}
Einheit crt32;
{# Freeware}
{# Version 1.0.0127}
{# Datum 18.01.1997}
{# Autor Frank Zimmer}
{# Beschreibung
Copyright © 1997, Frank Zimmer, [email protected]
Version: 1.0.0119
Datum: 18.01.1997
eine Implementierung des Turbo Pascal CRT-Unit für Win32-Console-Subsystem
getestet mit Windows NT 4.0
Beim Start erhalten Sie den Fokus auf die Konsole!!!
(mit * sind nicht in der ursprünglichen Crt-Unit):
Prozedur und Funktion:
ClrScr
ClrEol
WhereX
WhereY
GotoXY
InsLine
DelLine
HighVideo
LowVideo
NormVideo
TextBackground
TextColor
Verzögerung / / keine Processtime verwenden
KeyPressed
ReadKey / / keine Processtime verwenden
Ton / / mit Windows NT Ihr können die Variablen SoundFrequenz, SoundDuration
NoSound
* TextAttribut / / Set TextBackground und TextColor gleichzeitig nützlich für Lastmode
* FlushInputBuffer / / spülen die Tastatur und alle anderen Ereignisse
* ConsoleEnd / / Ausgabe von 'Eine beliebige Taste drücken' und warten Sie Schlüssel eingeben, wenn nicht Rohr
* Rohr / / True, wenn die Ausgabe auf ein Rohr oder eine Datei umgeleitet wird
Variablen:
WindMin / / min.-WindowRect
WindMax / / die Max. WindowRect
* ViewMax / / Max.
Crt32
Crt32 : Mehreren tausend Tipps, um Ihr Leben einfacher machen.
Delphi 32 Version von Pascal CRT-Unit.
Autor: FRANK ZIMMER
Implementierung von Turbo Pascal CRT-Unit für Win32
Console-Subsystem
&&& __ Machen CRT32.inf Datei &&& __
Dateiname = Crt32
Ersatz =
Fileversion = 1.0.0127
FileDescription = Umsetzung von Turbo Pascal-Unit CRT für Win32-Console-Subsystem
Ziel = Delphi 2.0
Name des Autors = Frank Zimmer
Autor [email protected]
Es liest URL =
Datei Status = Freeware
kompletter Quellcode =
Kategorie Verschiedenes =
&&& __ Machen CRT32.int Datei &&& __
{$APPTYPE CONSOLE}
Einheit crt32;
{# Freeware}
{# Version 1.0.0127}
{# Datum 18.01.1997}
{# Autor Frank Zimmer}
{# Beschreibung
Copyright © 1997, Frank Zimmer, [email protected]
Version: 1.0.0119
Datum: 18.01.1997
eine Implementierung des Turbo Pascal CRT-Unit für Win32-Console-Subsystem
getestet mit Windows NT 4.0
Beim Start erhalten Sie den Fokus auf die Konsole!!!
Durchführung jetzt (* sind nicht in der ursprünglichen Crt-Unit):
Prozedur und Funktion:
ClrScr
ClrEol
WhereX
WhereY
GotoXY
InsLine
DelLine
HighVideo
LowVideo
NormVideo
TextBackground
TextColor
Verzögerung / / keine Processtime verwenden
KeyPressed
ReadKey / / keine Processtime verwenden
Ton / / mit Windows NT Ihr können die Variablen SoundFrequenz, SoundDuration
NoSound
* TextAttribut / / Set TextBackground und TextColor gleichzeitig nützlich für Lastmode
* FlushInputBuffer / / spülen die Tastatur und alle anderen Ereignisse
* ConsoleEnd / / Ausgabe von 'Eine beliebige Taste drücken' und warten Sie Schlüssel eingeben, wenn nicht Rohr
* Rohr / / True, wenn die Ausgabe auf ein Rohr oder eine Datei umgeleitet wird
Variablen:
WindMin / / min.-WindowRect
WindMax / / die Max. WindowRect
* ViewMax / / Max. ConsoleBuffer beginnen bei (1,1);
TextAttr / / Actual Attribute nur durch diese Routinen ändern
LastMode / / Last nur durch diese Routinen ändern Attribute
* SoundFrequenz / / mit Windows NT Ihr Thise Variablen verwenden könnte
* SoundDuration / / wie lange Glocken den Lautsprecher-1 bis??, Standard =-1
* HConsoleInput / / der Input-Griff;
* HConsoleOutput / / Ausgabe-Griff;
* HConsoleError / / Fehler-Griff;
Diese Quelle ist Freeware, die viel Spaß :-)
Geschichte
23.01.97 Sound, Verzögerung, Codepage eingefügt und Setfocus auf der Konsole
24.01.97 Status weitergeleitet
}
Schnittstelle
verwendet Windows, Nachrichten;
{$ifdef win32}
const
Schwarz = 0;
Blau = 1;
Grün = 2;
Cyan = 3;
Rot = 4;
Magenta = 5;
Braun = 6;
LightGray = 7;
DarkGray = 8;
Hellblau = 9;
Hellgrün = 10;
LightCyan = 11;
LightRed = 12;
LightMagenta = 13;
Gelb = 14;
Weiß = 15;
Funktion WhereX: Integer;
Funktion WhereY: Integer;
Prozedur ClrEol;
Verfahrens ClrScr;
Prozedur InsLine;
Verfahren DelLine;
Verfahren GotoXY (const x, Y:integer);
Prozedur HighVideo;
Prozedur LowVideo;
Prozedur NormVideo;
Procedure TextBackground (const Farbe: Wort);
Verfahren TextColor (const Farbe: Wort);
Verfahren TextAttribut (const Farbe, Hintergrund: Wort);
Verfahren zu verzögern (const Ms:integer);
Funktion KeyPressed:boolean;
Funktion ReadKey:Char;
Verfahren-Sound;
Verfahren-NoSound;
Prozedur ConsoleEnd;
Prozedur FlushInputBuffer;
Funktion Leitung: Boolean;
var
HConsoleInput:thandle;
HConsoleOutput:thandle;
HConsoleError:Thandle;
WindMin:tcoord;
WindMax:tcoord;
ViewMax:tcoord;
TextAttr: Word;
LastMode: Word;
SoundFrequenz: Integer;
SoundDuration: Integer;
{$endif win32}
Umsetzung
&&& __ Machen CRT32.pas Datei &&& __
{$APPTYPE CONSOLE}
Einheit crt32;
{# Freeware}
{# Version 1.0.0127}
{# Datum 18.01.1997}
{# Autor Frank Zimmer}
{# Beschreibung
Copyright © 1997, Frank Zimmer, [email protected]
Version: 1.0.0119
Datum: 18.01.1997
eine Implementierung des Turbo Pascal CRT-Unit für Win32-Console-Subsystem
getestet mit Windows NT 4.0
Beim Start erhalten Sie den Fokus auf die Konsole!!!
(mit * sind nicht in der ursprünglichen Crt-Unit):
Prozedur und Funktion:
ClrScr
ClrEol
WhereX
WhereY
GotoXY
InsLine
DelLine
HighVideo
LowVideo
NormVideo
TextBackground
TextColor
Verzögerung / / keine Processtime verwenden
KeyPressed
ReadKey / / keine Processtime verwenden
Ton / / mit Windows NT Ihr können die Variablen SoundFrequenz, SoundDuration
NoSound
* TextAttribut / / Set TextBackground und TextColor gleichzeitig nützlich für Lastmode
* FlushInputBuffer / / spülen die Tastatur und alle anderen Ereignisse
* ConsoleEnd / / Ausgabe von 'Eine beliebige Taste drücken' und warten Sie Schlüssel eingeben, wenn nicht Rohr
* Rohr / / True, wenn die Ausgabe auf ein Rohr oder eine Datei umgeleitet wird
Variablen:
WindMin / / min.-WindowRect
WindMax / / die Max. WindowRect
* ViewMax / / Max.
Crt32
By Wiezutun
Crt32 : Mehreren tausend Tipps, um Ihr Leben einfacher machen.
