write (Konsole) immer an der gleichen Stelle?

[br_klaus]

Hallo,
habe ein kleines Konsolenprogramm und möchte da gerne die Ausgabe von write so lenken, daß immer an derselben Stelle geschrieben wird. Geht das? Früher gab es da in der Unit crt die Prozeduren Gotoxy(x,y) u.a. Geht das hier auch? Ich kenne bisher nur write und writeln.
Herzlichen Dank

[Scotty]

Ctrl+Linksklick öffnet die Unit (oder Datei) unter dem Cursor. Aber auch auf anderem Weg kommt man an den Quellcode von crt. Und dort steht u.a.:

procedure ttyGotoXY(x,y:longint);
{
Goto XY on the Screen, if a value is 0 the goto the current
postion of that value and always recalc the ansicode for it
}

Procedure GotoXy(X: tcrtcoord; Y: tcrtcoord);
{
Go to coordinates X,Y in the current window.
}

[br_klaus]

Ctrl+Linksklick öffnet die Unit (oder Datei) unter dem Cursor. Aber auch auf anderem Weg kommt man an den Quellcode von crt. Und dort steht u.a.:

procedure ttyGotoXY(x,y:longint);
{
Goto XY on the Screen, if a value is 0 the goto the current
postion of that value and always recalc the ansicode for it
}

Procedure GotoXy(X: tcrtcoord; Y: tcrtcoord);
{
Go to coordinates X,Y in the current window.
}

Ich habe aber nur da kleine Problem, dass ich gar keine Unit Crt eingebaut habe. Die muesste ich dann wohl erst noch extra angeben. Denn write und writeln funktionieren anscheinend auch ohne diese Unit (zumindest bruacht man sie nicht extra einzubiden, geschieht das vielleicht schon von zuhause aus?)

[Socke]

Ich habe aber nur da kleine Problem, dass ich gar keine Unit Crt eingebaut habe.

Damit du die Funktion(en) (tty)GotoXy nutzen kannst, wirst du das Wohl oder Übel tun müssen.

Die muesste ich dann wohl erst noch extra angeben. Denn write und writeln funktionieren anscheinend auch ohne diese Unit (zumindest bruacht man sie nicht extra einzubiden, geschieht das vielleicht schon von zuhause aus?)

Die Funktionen Write und WriteLn gehören zu der Sprache Pascal; sie sind in der Unit System definiert. Die Unit System wird implizit in jedem Programm/jeder Bibliothek eingebunden (man muss sie nicht angeben).

[Scotty]

Wenn du, warum auch immer, die Unit crt nicht einbinden willst, dann lässt sich vielleicht die Funktionen nachbauen. Im Quellcode findest du ausgehend von gotoxy() irgendwann fpWrite(), mit dem man offensichtlich den Cursor verschieben kann. Vermutlich gibt es auch einfache Assembler-Anweisungen dazu [1].
Ich vertraue Konsolenanwendungen, die eigenartige Dinge machen, nicht unbedingt. Warum muss der Cursor platziert werden?
[1] http://assemblytutorial.blogspot.de/201 ... ursor.html

[br_klaus]

Wenn du, warum auch immer, die Unit crt nicht einbinden willst, dann lässt sich vielleicht die Funktionen nachbauen. Im Quellcode findest du ausgehend von gotoxy() irgendwann fpWrite(), mit dem man offensichtlich den Cursor verschieben kann. Vermutlich gibt es auch einfache Assembler-Anweisungen dazu [1].
Ich vertraue Konsolenanwendungen, die eigenartige Dinge machen, nicht unbedingt. Warum muss der Cursor platziert werden?
[1] http://assemblytutorial.blogspot.de/201 ... ursor.html

Zum Link [1]: Ich dachte, Interrupts würden in Win32 nicht mehr verwendet und statt dessen Win API Funktionen?

Wenn ich gotoxy() oder wherex verwende, gibt es eine Fehlermeldung: unbekannt. D.h. es scheinen nur write und writeln fest implementiert zu sein.

Gibt es denn keine internen Variablen, wo zB das Fensterhandle der Konsole gespeichert wird und man dann mit der Message WM_Gettext bzw WM_Settext u.ä. darauf zugreifen kann? Oder eine Variable, die die letzte Schreibposition sich merkt und die man dann verändern kann?

Ich wollte nur einfach in einer Zeile den Fortschritt einer bestimmten Prozedur in % angeben lassen (mit write() ) und dazu müsste der SchreibCursur (aber nicht der MausCursor) immer wieder an dieselbe Stelle zurückkehren und die jeweilige Zahl schreiben.

[m.fuchs]

Was stört dich denn an der Verwendung der Unit Crt?

Die hat mir immer nur Schwierigkeiten bereitet, wenn es um Konsolenprogramme ging die Daten per Pipe übergeben bekommen. Für ein interaktives Programm (und warum sonst solltest du sonst eine Fortschrittsanzeige verwenden) sehe ich da erst einmal keine Probleme.

[af0815]

Mit BS (Backspace) den Cursor zurückbewegen. BS hat den ASCII Code 08.

[br_klaus]

Mit BS (Backspace) den Cursor zurückbewegen. BS hat den ASCII Code 08.

Und wie schicke ich diese Information (Tastatureingabe) an die Konsole?
mit write(#8)? Werde es gleich auspropieren.

[br_klaus]

Mit BS (Backspace) den Cursor zurückbewegen. BS hat den ASCII Code 08.

Und wie schicke ich diese Information (Tastatureingabe) an die Konsole?
mit write(#8)? Werde es gleich auspropieren.

Hat geklappt! Herzlichen Dank!
Theoretisch könnte man damit wahrscheinlich sogar eine Zeile zurückgehen (80 mal #8).

Jetzt hätte ich nur noch eine Frage. Bei der Assembler-Ausgabe wird immer ein Format genommen, das für mich schwer zu lesen ist, ich bin den Intel gewohnt (wie er auch in MASM und TASM und anderen ASM-Programmen üblich ist). Gib es eine Möglichkeit, die Ausgabe dahingehend umzuändern?

[Socke]

Jetzt hätte ich nur noch eine Frage. Bei der Assembler-Ausgabe wird immer ein Format genommen, das für mich schwer zu lesen ist, ich bin den Intel gewohnt (wie er auch in MASM und TASM und anderen ASM-Programmen üblich ist). Gib es eine Möglichkeit, die Ausgabe dahingehend umzuändern?

Neue Frage => neuer Thread.

• fpc -h
• RTFM: http://www.freepascal.org/docs.var