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.

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

[DeddyH]

Aus dem MSDN:

Zitat:

The destination buffer, which receives the translated string. If the CharToOem function is being used as an ANSI function, the string can be translated in place by setting the lpszDst parameter to the same address as the lpszSrc parameter. This cannot be done if CharToOem is being used as a wide-character function.

Übrigens:

Zitat:

Using this function incorrectly can compromise the security of your application.

[Uwe Raabe]

Mach es dir doch einfach:

Delphi-Quellcode:

type
  OEMString = type AnsiString(850);

function dosascii(AText:String): OEMString;
begin
  AText := StringReplace(AText,'€','Euro',[rfReplaceAll]);
  AText := StringReplace(AText,'%bslash%','\',[rfReplaceAll]);
  result := OEMString(AText);
end;

[DonManfred]

Sorry für die späte Antwort; ich kam aufgrund der Feiertage erst jetzt dazu das auszuprobieren. Funktioniert super. vielen Dank, Uwe!

Die anderen kleinigkeiten habe ich selber hinbekommen. Lediglich diese Funktion hatte schwierigkeiten bei der Migration gemacht... Eins von 10 Programmen ist nun mit XE3 weiterentwickelbar... Eins von den umfangreicheren allerdings. Ein weiteres umfangreiches und 8 kleine Tools fehlen noch. Das 2. grosse macht vielleicht nochmal ein bissl arbeit aber auch das wird hinhauen denke ich. Bei den kleinen Tools sehe ich keine Probleme.