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