Delphi7 mit nur einer Unit Unicode fähig machen

Thema durchsuchen

Ansicht

Themen-Optionen

Delphi7 mit nur einer Unit Unicode fähig machen

Ein Thema von derMischka · begonnen am 10. Jun 2013 · letzter Beitrag vom 22. Okt 2019

Vorheriger Beitrag

Nächster Beitrag

Delphi-Laie

Registriert seit: 25. Nov 2005
1.474 Beiträge

Delphi 10.1 Berlin Starter

#11

AW: Delphi7 mit nur einer Unit Unicode fähig machen

24. Mai 2016, 15:30

Mit folgenden Änderungen ist die Unit bei Delphi 6 & 7 compilierbar:

Zeile 30: //{$define CamSpy} //my own logging

Zeile 1719: addlog('Exception in DispatchMessageUniCode(MsgNum='+inttostr(lpMsg.mes sage)+') '+e.ClassName+' '+e.Message{,cst_Exception});//letzter Parameter zuviel?

Zeile 1746: Result := windows.GetCharacterPlacementW(DC,@wsbuf[0],boolean(ii),boolean(p4),p5,p6);//mit Boolean-Konvertierung klappt es

Bei Delphi 7 kommen zudem unzählige Warnungen.

Geändert von Delphi-Laie (24. Mai 2016 um 15:52 Uhr)