Migration von Quelltext Delphi 2006 -> XE3

**DonManfred**

Moin zusammen,

ich habe hier ein grösseres Projekt von Delphi 2006 auf XE3 umzustellen und hänge an einer Stelle.

Ich habe hier nun kein XE3 zur Verfügung und kann keine Fehlermeldungen mitteilen, reiche diese aber gerne heute abend nach.

zusammenfalten · markieren

Delphi-Quellcode:

			function dosascii(AText:String):String;

const MaxLength = 16384;

var PText : PChar;

begin

  AText := StringReplace(AText,'€','Euro',[rfReplaceAll]);

  AText := StringReplace(AText,'%bslash%','\',[rfReplaceAll]);

  PText:=StrAlloc(MaxLength);

  StrPCopy(PText,AText);

  {$IFDEF WIN32}

  CharToOEM(PText,PText); {32Bit}

  {$ELSE}

  AnsiToOEM(PText,PText); {16Bit}

  {$ENDIF}

  Result:=StrPas(PText);

  //Result := AText;

  StrDispose(PText);

end;

Problematisch ist der Aufruf CharToOEM(PText,PText); {32Bit} Was muss ich bei einer Umstellung von Delphi 2006 auf Delphi XE3 beachten? Gibt es da irgendwelche FAQs oder ähnliches?

Wenn ich das richtig im Kopf habe dann habe ich versucht PText und FText auf Ansistring umzustellen aber dann kam wieder ein neuer Fehler. Genaue Fehlermeldungen/Compilermeldung reiche ich heute abend nach.

Vielen Dank im vorraus für jegliche Hinweise die zur ergreifung des schuldigen beitragen

Edith: In dem Dropddown bei erzeugung des Threads kann ich XE3 nicht auswählen; die Liste geht nur bis XE2

Migration von Quelltext Delphi 2006 -> XE3

Migration von Quelltext Delphi 2006 -> XE3

Forumregeln