Forum: Object-Pascal / Delphi-Language
Delphi
by Martin K,
14. Mai 2006
So, hab mir jetzt so was gebastelt:
procedure Write(const src: string);
var dst: string;
begin
if src='' then
WriteLn('')
else
begin
SetLength(dst,Length(src));
Forum: Object-Pascal / Delphi-Language
Delphi
by Martin K,
14. Mai 2006
Kann man die ändern?
(Also in Delphi, für ein Programm)
Forum: Object-Pascal / Delphi-Language
Delphi
by Martin K,
14. Mai 2006
Hm, ja das ist eine Möglichkeit, finde ich aber nicht sehr gut.
Ich hätte es gerne so:
Weil ich auch noch andere Units eingebunden habe, die auch Strings mit Umlauten in Funktionen/Prozeduren zurückliefern.
Forum: Object-Pascal / Delphi-Language
Delphi
by Martin K,
14. Mai 2006
Okay, so geht's:
{...}
s1 := 'ä';
SetLength(s2, Length(s1));
CharToOEM( PChar(s1), PChar(s2));
WriteLn(s2);
Aber ich würde es gerne mit der anderen Methode machen, dass die Strings im Quellcode direkt im DOS-Zeichensatz formatiert sind.
Also wenn ich eingebe:
Forum: Object-Pascal / Delphi-Language
Delphi
by Martin K,
14. Mai 2006
Und wie geht das? :gruebel:
//Edit:
dieses elende quote-Zeug's... Ich hasse es!
Forum: Object-Pascal / Delphi-Language
Delphi
by Martin K,
14. Mai 2006
Das wusste ich noch gar nicht...
Ich rufe sie so auf:
var s1,s2: string;
{...}
s1 := 'ä';
CharToOEM( PChar(s1), PChar(s2));
WriteLn(s2);