GLScene installieren

[roboter202]

Hallo,

entweder bin ich zu blöd oder ich hab wirklich einen Fehler

Ich möchte GLScene installieren und alles ist auch importiert und die Pfade stimmen. Jedoch erhalte ich die Fehler

Delphi-Quellcode:

[Fehler] GLCrossPlatform.pas(931): Undefinierter Bezeichner: 'MinsPerHour'
[Fehler] GLCrossPlatform.pas(931): Undefinierter Bezeichner: 'SecsPerMin'
[Fehler] GLCrossPlatform.pas(931): Undefinierter Bezeichner: 'MSecsPerSec'
[Fehler] GLCrossPlatform.pas(1263): Undefinierter Bezeichner: 'ValueFromIndex'
[Fataler Fehler] VectorTypes.pas(38): Verwendete Unit '..\Source\Platform\GLCrossPlatform.pas' kann nicht compiliert werden

Hier die passenden Zeilen code

Delphi-Quellcode:

function GLSTime: Double;
{$IFDEF MSWINDOWS}
var
  SystemTime: TSystemTime;
begin
  GetLocalTime(SystemTime);
  with SystemTime do
    Result := (wHour * (MinsPerHour * SecsPerMin * MSecsPerSec) +
             wMinute * (SecsPerMin * MSecsPerSec) +
             wSecond * MSecsPerSec +
             wMilliSeconds) - vGLSStartTime;
  // Hack to fix time precession
  if Result - vLastTime = 0 then
  begin
    Result := Result + vDeltaMilliSecond;
    vDeltaMilliSecond := vDeltaMilliSecond + 0.1;
  end
  else begin
    vLastTime := Result;
    vDeltaMilliSecond := 0.1;
  end;
end;

Delphi-Quellcode:

function GetValueFromStringsIndex(const AStrings: TStrings; const AIndex: Integer): string;
begin
  {$IFNDEF GLS_DELPHI_5}
  Result := AStrings.ValueFromIndex[AIndex];
  {$ELSE}
  if AIndex >= 0 then
    Result := Copy(AStrings[AIndex], Length(AStrings.Names[AIndex]) + 2, MaxInt)
  else
    Result := '';
  {$ENDIF}
end;

Hab ich jetzt etwas falsch gemacht ?
Ist die Version beschädigt ? => Wo finde ich eine Funktionierende Version ?
Was muss/kann ich ändern ?

Gruß rooter202

[Uwe Raabe]

Mit welcher Delphi-Version compilierst du denn?

[TiGü]

Kann der Compiler die angemeckeren Variabeln auflösen?

[roboter202]

Zitat:

Mit welcher Delphi-Version compilierst du denn?

Delphi6

Code:

Kann der Compiler die angemeckeren Variabeln auflösen?

Result := (wHour * (MinsPerHour * SecsPerMin * MSecsPerSec) + hier sind keine Werte hinterlegt

in der nächsten Zeile erhalte ich auch nur
 wMinute * (SecsPerMin * MSecsPerSec) + var SecsPerMin: erroneous type - GLCrossPlatform.pas(931)
var MSecsPerSec: erroneous type - GLCrossPlatform.pas(931)

[TiGü]

Zitat von roboter202:

Delphi6

Code:

Kann der Compiler die angemeckeren Variabeln auflösen?

Result := (wHour * (MinsPerHour * SecsPerMin * MSecsPerSec) + hier sind keine Werte hinterlegt

Nimm mal das "with Systemtime do" weg und ergänze entsprechend den Record-Namen an den jeweiligen Variabeln.

[roboter202]

Hoffe ich hab das richtig gemacht

Delphi-Quellcode:

begin
  GetLocalTime(SystemTime);
    Result := (SystemTime.wHour * (MinsPerHour * SecsPerMin * MSecsPerSec) +
              SystemTime.wMinute * (SecsPerMin * MSecsPerSec) +
              SystemTime.wSecond * MSecsPerSec +
              SystemTime.wMilliSeconds) -  vGLSStartTime;
  // Hack to fix time precession

geht aber immer noch nicht die Meldungen sind die gleichen

[TiGü]

Fehlt dir vielleicht eine Unit im uses?

Was passiert denn bei den Variabeln, wenn du mit Strg+Linksklick bzw. rechte Maustaste und Find Declaration danach auflöst?

[roboter202]

Zitat:

Was passiert denn bei den Variabeln, wenn du mit Strg+Linksklick bzw. rechte Maustaste und Find Declaration danach auflöst?

Dann passiert gar nichts !

Fehlt dir vielleicht eine Unit im uses? Das weiß ich nicht der Code ist ja nicht von mir.
Und die Dateien scheinen alle eingebunden denn sonst würde ich ja einen Fehler dazu bekommen

[TiGü]

Gibt es in Delphi 6 schon ein "In Verzeichnissen suchen"?
Würde auf der Jagd nach den verschwunden Variabeln so vorgehen. Es liest sich so, als das du vergessen hast eine Unit von GLScene einzubinden.

[roboter202]

Naja

Also ich hab jetzt einen ältere Version genommen und jetzt geht es hoffe das ich nichts wichtiges missen werden.

Vielen Dank
Eine Super Community

Gruß
roboter202