Autor Beitrag
Klaus Müller
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 36

W2000,XP,W2k2S,W2k3S,S2k7S
Delphi XP
BeitragVerfasst: So 22.07.18 12:38 
Hallo Kollegen,

Ich habe in einem alten Programm "Delphi 7" eine Procedure:
ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
Procedure Ascii2Ansi(var s: string);
var
  s0: string;
begin
  Setlength(s0,length(s));
   if (length(s0)>0)
   then Begin
       OemToChar(Pchar(s),PChar(s0));
    s:=s0;
  End;
end;

Diese läst sich unter XE und höher nicht mehr übersetzen.
Fehler:
Inkompatible Typen: 'PAnsiChar' und 'PWideChar'
Wie kann ich die Typen hier Konvertieren?

Moderiert von user profile iconNarses: Delphi-Tags hinzugefügt


Zuletzt bearbeitet von Klaus Müller am Di 24.07.18 17:04, insgesamt 1-mal bearbeitet
Frühlingsrolle
Ehemaliges Mitglied
Erhaltene Danke: 1



BeitragVerfasst: So 22.07.18 13:14 
- Nachträglich durch die Entwickler-Ecke gelöscht -

Für diesen Beitrag haben gedankt: Klaus Müller
Klaus Müller Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 36

W2000,XP,W2k2S,W2k3S,S2k7S
Delphi XP
BeitragVerfasst: Di 24.07.18 17:10 
Hallo Frühlingsrolle,

Danke für die Info, hilft mir aber leider nicht.
Wenn ich in die Procedure OemToCharA, oder OemToCharW einsetze gibt es auch wieder Fehler.
Das Problem ist ich komme mit einem String in dem Ascii Text drin steht, ein Import von Datanorm.
Den muss ich auf auf Windows Format umwandeln, wegen den Sonderzeichen (ü,ö,ä,ß).

Gruß
Klaus

Moderiert von user profile iconNarses: Komplettzitat des letzten Beitrags entfernt.
Frühlingsrolle
Ehemaliges Mitglied
Erhaltene Danke: 1



BeitragVerfasst: Di 24.07.18 23:20 
- Nachträglich durch die Entwickler-Ecke gelöscht -
Klaus Müller Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 36

W2000,XP,W2k2S,W2k3S,S2k7S
Delphi XP
BeitragVerfasst: Do 26.07.18 17:54 
Hallo Frühlingsrolle,

Danke für die Infos, das ist jetzt ja ziemlich ausführlich.
Ich werde es noch Testen und mich dann noch mal Melden.

gruß
Klaus Müller