Konsolenanwendung Zeichensatz

[Olli]

Zitat von Martin K:

Aber ich würde es gerne mit der anderen Methode machen, dass die Strings im Quellcode direkt im DOS-Zeichensatz formatiert sind.

Kein Problem. Öffne ein DOS-Fenster, gib ein 'EDIT' und öffne aus dem DOS-Editor heraus deine Datei. Nun kannst du deinen Delphi-Source mit dem DOS-Editor bearbeiten.

Etwas unpraktikabel vielleicht, aber allemal eine Variante.

[Martin K]

Hm, ja das ist eine Möglichkeit, finde ich aber nicht sehr gut.

Ich hätte es gerne so:

Zitat von Martin K:

Kann man denn nicht allgemein, irgendwo am Anfang bei der Deklaration den Zeichensatz eines Strings festlegen?

Weil ich auch noch andere Units eingebunden habe, die auch Strings mit Umlauten in Funktionen/Prozeduren zurückliefern.

[Olli]

Zitat von Martin K:

Kann man denn nicht allgemein, irgendwo am Anfang bei der Deklaration den Zeichensatz eines Strings festlegen?

Nein. Und die benutzte Codeseite entspricht den Einstellungen deines Systems (oder deines Benutzers, je nachdem).

[Martin K]

Zitat von Olli:

Zitat von Martin K:

Kann man denn nicht allgemein, irgendwo am Anfang bei der Deklaration den Zeichensatz eines Strings festlegen?

Nein. Und die benutzte Codeseite entspricht den Einstellungen deines Systems (oder deines Benutzers, je nachdem).

Kann man die ändern?
(Also in Delphi, für ein Programm)

[Frickeldrecktuxer_TM]

Zitat von Martin K:

Kann man die ändern?
(Also in Delphi, für ein Programm)

Laut http://www.uwe-sieber.de/codepage_e.html mit CHCP. Eine passende Codepage sollte laut Google 1252 sein, sofern die in cmd.exe verfügbar ist. Falls nicht, weiß ich auch nicht, welche CP du da am besten nimmst.
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;

[Martin K]

So, hab mir jetzt so was gebastelt:

Delphi-Quellcode:

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;

Warum funzt das eigentlich net bei leeren Strings ?

Bei leeren Strings ist mein Programm immer abgestürzt, deshalb die IF-Abfrage.

[DGL-luke]

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.

Die Lösung verrat ich natürlich auch gleich: Ein einfaches "ReadLn" kehrt erst zurück, wenn du die Enter-Taste betätigst.

[xaromz]

Hallo,

Zitat von Martin K:

Warum funzt das eigentlich net bei leeren Strings ?

Bei leeren Strings ist mein Programm immer abgestürzt, deshalb die IF-Abfrage.

Weil der String "dst" mindestens ein Zeichen lang sein muss, sonst mag CharToOEM nicht. Steht leider auch nicht im PSDK.

Gruß
xaromz

[implementation]

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?

[mjustin]

Zitat von Frickeldrecktuxer_TM:

die ASCII-Zeichen sind identisch mit den 128 ersten Unicode-Zeichen

Nicht direkt. Bei UTF-16 und UCS-2 ist jedes Unicodezeichen in (mindestens) zwei Bytes kodiert, bei UCS-4 und UTF-32 sogar in 4 - auch die Zeichen, die den ASCII Zeichen entsprechen, belegen also mehrere Bytes. Bei UTF-8 stimmt gibt es die Übereinstimmung mit ASCII bei der Kodierung der ersten 128 Zeichen. Weitere Unicode Zeichen benötigen in UTF-8 bis zu vier Bytes ...