Einzelnen Beitrag anzeigen

Delphi-Laie

Registriert seit: 25. Nov 2005
1.474 Beiträge
 
Delphi 10.1 Berlin Starter
 
#32

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

  Alt 24. Mai 2016, 16: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.
Sortierkino und Sortier-Kino
Ob ein Programm wirklich gute Qualität hat, erkennt man am besten dann, wenn man einen unbedarften darauf losläßt.

Geändert von Delphi-Laie (24. Mai 2016 um 16:52 Uhr)
  Mit Zitat antworten Zitat