Zitat von
FAlter:
[edit] ReadKey? [/edit]
dieses scheint (unter Windows) zu laufen ... hab ich quasi von sakura
ReadKey
Delphi-Quellcode:
// initialisieren
H := GetStdHandle(STD_INPUT_HANDLE);
FlushConsoleInputBuffer(H);
// abfragen
CI.EventType := KEY_EVENT;
Repeat
Until ReadConsoleInput(H, CI, 1, Cardinal(i)) and (i = 1)
and (CI.Event.KeyEvent.bKeyDown) and (CI.Event.KeyEvent.AsciiChar <> #0);
M[MP] := CI.Event.KeyEvent.AsciiChar;
FlushConsoleInputBuffer(H);
Zitat von
FAlter:
[edit=2] Aber achte bitte auf die Umlaute!
[edit=3] Und heute bezahlt niemand mehr mit DM [/edit]
Hatte das Script "nur" aus einem anderem BF-Dialekt übersetzt und versucht es in diesem Dialekt zum Laufen zu bekommen und bezüglich der Textinhalte nichts geändert.
