![]() |
Alte Komponente TGlobe XE fähig machen
hi!
hab mir ne version von TGlobe runtergeladen (einem 3D globus den man frei rotieren kann). dieser hat noch ein paar alte sourcecodes von alten delphiversionen intus leider. versuche das grad zum laufen zu kriegen. hab im sourcecode sämtliche
Code:
in der USES durch "windows" ersetzt. (meines wissens nach sind die steinalt).
WinProcs, WinTypes
nun hab ich das problem bei folgender function:
Code:
meldung:
class function TGlobe4.InstanceCount(iChange : Integer) : Integer;
const iInstanceCount : Integer = 0; begin [B] iInstanceCount := iInstanceCount + iChange;[/B] Result := iInstanceCount; end;
Code:
[DCC Warnung] TGClasses.pas(6377): W1057 Implizite String-Umwandlung von 'ShortString' zu 'string'
sowie:
Code:
meldung:
procedure TGlobeObjectSource.WriteMetaData(Writer : TGlobeStreamWriter);
var idx : integer; begin giFileVersion := TG_METADATA_VERSION; Writer.WriteInteger(Presenters.Count); for idx := 0 to Presenters.Count - 1 do begin [B] Writer.WriteShortString( Presenters[idx].ClassName );[/B] Presenters[idx].WriteProperties( Writer ); end;
Code:
ich kann damit nichts anfangen da meine delphi kenntnisse nicht ausreichen, google wollte nicht wirklich helfen. sind das ebenfalls alte befehle die ich einfach auswchseln kann damit sie dunktionieren oder kann ich den globus in delphi XE vergessen? kann bei bedarf gerne die componente rausrücken(wenn ihr mir helfen möchtet).
[DCC Warnung] TGClasses.pas(6632): W1058 Implizite String-Umwandlung mit potenziellem Datenverlust von 'string' zu 'ShortString'
Bin neugierig auf diesen 3d globus, möchte den für mein Geografie-lerntool benutzen wenn er hält was er verspricht, nur ist die komponente steinalt und wird nicht weiterentwickelt. danke! Robin |
AW: Alte Komponente TGlobe XE fähig machen
Das sind Warnungen durch Unicode. Es kann trotzdem funktionieren. Besser ist aber, alle Funktionen nun auf "String" anzupassen und nicht "Shortstring" zu nutzen.
|
AW: Alte Komponente TGlobe XE fähig machen
Hallo,
und auch ein string[20] ist ein ShortString. Heiko |
AW: Alte Komponente TGlobe XE fähig machen
das programm startet aber nicht..die warnung wird gemeldet nach dem compilieren aber starten tut es nicht..
also darf ich gefahrlos alle shortstrings in Strings ändern? |
Alle Zeitangaben in WEZ +1. Es ist jetzt 13:26 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz