Entwickler-Ecke

Sonstiges (Delphi) - Ascii zu Ansi

Conny Drexler - Mo 20.01.03 19:33
Titel: Ascii zu Ansi

Hallo Leute,

ich hab´ wieder mal ein Problem mit meiner Lieblingssprache.
Ich muss eine Ascii Sequenz an einen Drucker unter windows schicken, damit meine Kassenlade aufgeht. Leider funktioniert das mit der Umwadnlung ascii zu ansi nicht. Kann mir jemand einen Tip geben???

Die Ascii - sequenz: #29#86#49

Conny

Delete - Mo 20.01.03 19:41

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure Ascii2Ansi(var s: string);
var
  s0: string;
begin
  Setlength(s0,length(s));
  if (length(s0)>0) then
    OemToChar(Pchar(s),PChar(s0));
  s:=s0;
end;
procedure Ansi2Ascii(var s: string);
var s0: string;
begin
  Setlength(s0,length(s));
  if length(s0)>0 then
    CharToOem(Pchar(s),Pchar(s0));
  s:=s0;
end;

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!