Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Alte Komponente TGlobe XE fähig machen (https://www.delphipraxis.net/173158-alte-komponente-tglobe-xe-faehig-machen.html)

Spectre 10. Feb 2013 00:57

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:
WinProcs, WinTypes
in der USES durch "windows" ersetzt. (meines wissens nach sind die steinalt).

nun hab ich das problem bei folgender function:

Code:
class function TGlobe4.InstanceCount(iChange : Integer) : Integer;
const
  iInstanceCount : Integer = 0;
begin
 [B] iInstanceCount := iInstanceCount + iChange;[/B]
  Result := iInstanceCount;
end;
meldung:
Code:
[DCC Warnung] TGClasses.pas(6377): W1057 Implizite String-Umwandlung von 'ShortString' zu 'string'


sowie:
Code:
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;
meldung:
Code:
[DCC Warnung] TGClasses.pas(6632): W1058 Implizite String-Umwandlung mit potenziellem Datenverlust von 'string' zu 'ShortString'
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).

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

zeras 10. Feb 2013 06:41

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.

hoika 10. Feb 2013 08:14

AW: Alte Komponente TGlobe XE fähig machen
 
Hallo,

und auch ein string[20] ist ein ShortString.


Heiko

Spectre 10. Feb 2013 12:01

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 22:25 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz