[erledigt] VersionInfo

[MacWomble]

Hallo,

vielleicht kann mit jemand einen Tipp geben. Ich setze zum Anzeigen der Versioninfos eine Unit ein, welche ich mal irgendwo herunter geladen habe.
(komplette Unit siehe Dateianhang).
Bisher hat das auch problemlos funktioniert. Seit gestern jedoch habe ich das Problem, dass bei

Code: Alles auswählen

function TVersionInfo.GetWidgetSet: string;
begin
  case InterfaceBase.WidgetSet.LCLPlatform of
   lpGtk:    result := WIDGETSET_GTK;
   lpGtk2:   result := WIDGETSET_GTK2;
   lpWin32:  result := WIDGETSET_WIN;
   lpWinCE:  result := WIDGETSET_WINCE;
   lpCarbon: result := WIDGETSET_CARBON;
   lpQT:     result := WIDGETSET_QT;
   lpfpGUI:  result := WIDGETSET_fpGUI;
  else
    result := WIDGETSET_OTHER;
  end;
end;     

die lpGtk etc nicht gefunden werden (Identifier not found)

Was mich verwirrt ist, dass am Programmcode absolut nichts verändert wurde seit ich das letzte mal kompilierte.
Kann es möglicherweise an Kompilereinstellungen liegen?

PS: Zufällig gefunden. Die Quelle war glaube ich http://www.lazarusforum.de/viewtopic.php?t=3893

Gruß
Klaus

[Socke]

Füge die Unit lclplatformdef zur Uses-Klausel (im Implementation-Teil) hinzu.
Der Aufzählungstyp TLCLPlatform wurde am 17.12.2016 in diese Unit verschoben.

[MacWomble]

Danke Socke!

Jetzt findet er die Definition von GetLocaleFormatSettings nicht ...

Was mich wundert, ist dass bisher alles lief. Könnte es sein, dass die kompilierte VersionSupport vorlag und deswegen der Fehler nicht eher aufgetreten ist?

Was ich geändert habe, war die Kompiler-Optionen von Stufe 0 auf Stufe 1 ...

[Soner]

Öffne Lazarus gehe zu Menü:
[Suchen > In Dateiein suchen ..]
Schreibe in das Feld: [Suchtext]
GetLocaleFormatSettings

Klicke bei:[Wo]
Suche in Verzeichnissen

In das Feld [Verzeichnisse]:
..Lazarus\fpc\3.0.0\source\rtl\

[Unterverzeichnissen einbeziehen] Markieren
und [Suchen] - Klicken klicken.
Schon hast du dein Antwort.

Man kann auch LCL, FCL-Verzeichniss suchen.
Es ist sehr gute Funktion ich verwende es für viele Zwecke.

[MacWomble]

Danke, das habe ich bereits gemacht.

SysUtils wurde gefunden und war und ist auch in den uses.

Dennoch bekomme ich den Fehler:

versionsupport.pas(206,3) Error: Identifier not found "GetLocaleFormatSettings"

Wie gesagt - vorgestern ging es definitiv noch - es wurde nichts verändert.
Ich habe Codetyphon inzwischen komplett neu installiert und bekomme den Fehler noch immer ...

[Soner]

Ich habe jeztzt die versionsupport.pas-Datei heruntergeladen, es wurde ohne Fehler kompiliert. (Windows-Platform)
Es gibt dort keine GetLocaleFormatSettings-Funktion.

[MacWomble]

Doch:

Code: Alles auswählen

 
function TVersionInfo.GetCompilatonTime: string;
var
  fs: TFormatSettings;
  dt: TDateTime;
begin                                       
  GetLocaleFormatSettings(2057, fs);    // HIER
  fs.TimeSeparator := ':';
  fs.DecimalSeparator := '.';
  fs.ShortDateFormat := 'yyyy"/"mm"/"dd';
  fs.LongTimeFormat := 'hh":"nn":"ss';
  fs.DateSeparator := '/';
  dt := StrToDateTime({$I %DATE%} + ' ' + {$I %TIME%}, fs);
  result := FormatDateTime('ddd, dd mmm yyyy hh:nn:ss', dt);
end;                                     

[Soner]

In der datei VersionSupport.pas vom ersten Beitrag hast du es nicht, aber ich habe die Funktion von deinem letzten Beitrag hinzugefügt, es kompiliert fehlerfrei.

[marcov]

getlocaleformatsettings ist eine Windows only Funktion. (das erste Argument ist eine Windows Lokale identifier)

[MacWomble]

Sorry, vorhin konnte ich im Forum nichts posten, sonst hätte ich das bereits aufgeklärt:

Aus mir nicht verständlichen Gründen hat mein Projekt die VersionSupport.pas aus einem anderen Verzeichnis geladen. Diese Version ist aber fehlerhaft.
Inzwischen geht wieder alles.

Vielen Dank für eure Hilfe und Hinweise
Klaus

@markov
ich habe das irgendwo gefunden und eingesetzt - es funktioniert jedenfalls.

Ich hänge mal die 'richtige' Datei hier an, falls jemand Interesse hat.