Konsolenanwendung Zeichensatz

[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.