Einzelnen Beitrag anzeigen

Spectre

Registriert seit: 29. Jan 2013
Ort: Hamburg
65 Beiträge
 
Delphi XE2 Architect
 
#1

Alte Komponente TGlobe XE fähig machen

  Alt 10. Feb 2013, 00:57
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
  Mit Zitat antworten Zitat