Hi Highriser,
da ich jetzt Delphi installiert habe, habe ich mich nochmals um Dein Problem gekümmert.
Herausgekommen ist nun das:
Delphi-Quellcode:
program Typobot;
{$APPTYPE CONSOLE}
uses
SysUtils, Printers;
var
c: integer;
x: char;
tmp: String;
begin
Writeln('Zeige ISO-Zeichen Nummer: ');
Readln(c);
if (c > 255) or (c < 31) then
writeln('Fehler! Nur Zahlen von 31 bis 255 eingeben')
else
x := Chr(c); //Hier sollte das ISO-Latin 1 Zeichen entstehen...:(
writeln('Das Zeichen Nr. ' + IntToStr(c) + ' ist ' + x + '!');
WriteLn('Drucken? (Y / N)');
ReadLn(tmp);
if (LowerCase(tmp) = 'y') then
begin
Printer.BeginDoc;
Printer.Canvas.TextOut(150, 60, 'Das Zeichen Nr. ' + IntToStr(c) + ' ist ' +
x + '!');
Printer.EndDoc; // Hier wird schon gedruckt.
end;
readln;
end.
Viel Spaß damit
