Re: Konsolenanwendung Zeichensatz
Zitat:
Etwas unpraktikabel vielleicht, aber allemal eine Variante. |
Re: Konsolenanwendung Zeichensatz
Hm, ja das ist eine Möglichkeit, finde ich aber nicht sehr gut.
Ich hätte es gerne so: Zitat:
|
Re: Konsolenanwendung Zeichensatz
Zitat:
|
Re: Konsolenanwendung Zeichensatz
Zitat:
(Also in Delphi, für ein Programm) |
Re: Konsolenanwendung Zeichensatz
Zitat:
Aber ist es denn wirklich so schlimm alle Vorkommen von WriteLN() durch CustomWriteLN() zu ersetzen und dann einfach folgende Funktion zu schreiben?
Delphi-Quellcode:
procedure CustomWriteLN(S: String);
var buf: String; begin SetLength(buf, Length(S)); CharToOEM(PChar(S), PChar(buf)); WriteLN(buf); end; |
Re: Konsolenanwendung Zeichensatz
So, hab mir jetzt so was gebastelt:
Delphi-Quellcode:
Warum funzt das eigentlich net bei leeren Strings ?
procedure Write(const src: string);
var dst: string; begin if src='' then WriteLn('') else begin SetLength(dst,Length(src)); CharToOEM(PChar(src),PChar(dst)); WriteLn(dst); end; end; Bei leeren Strings ist mein Programm immer abgestürzt, deshalb die IF-Abfrage. |
Re: Konsolenanwendung Zeichensatz
ach ja... das Problem mit dem sofortigen schließen... Könnte es sein, dass nach dem Writeln einfach gleich das finale "end." kommt? Das macht nämlich genau das, was man von ihm erwartet. :zwinker:
Die Lösung verrat ich natürlich auch gleich: Ein einfaches "ReadLn" kehrt erst zurück, wenn du die Enter-Taste betätigst. |
Re: Konsolenanwendung Zeichensatz
Hallo,
Zitat:
Gruß xaromz |
Re: Konsolenanwendung Zeichensatz
ich möchte in meinem Programm möglichst die Zeichen ╣║╗╝╚╔╩╦╠═╬ benutzen.
Da hilft aber auch CharToOem() nicht weiter. Aber es scheint irgendwie möglich zu sein. Weiß jemand wie? |
Re: Konsolenanwendung Zeichensatz
Zitat:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:45 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz