Einzelnen Beitrag anzeigen

User11

Registriert seit: 7. Jan 2008
9 Beiträge
 
Delphi 10.1 Berlin Professional
 
#1

Delphi ProjektOptionen immer Englisch Werte werden nicht übernommen

  Alt 28. Okt 2016, 19:18
Hallo zusammen,
ich bin jetzt auf Rad Studio 10.1 Update1 umgestiegen und habe Probleme mit den Projektoptionen Versionsinformationen. Egal was ich dort eintrage, diese Werte werden in meinen neu erstellten Programmen nicht angezeigt. Als Sprache ist auch immer Englisch eingetragen. Ich lese die Werte wie folgt aus:

Code:
// Code hier aus dem Netz
// Uses JclFileUtils
var
  FileName: TFileName;
  I: Integer;
begin
  //FileName := FileListBox1.FileName;
  Form1.hide;
  Form4.Show;
  filename := ( ParamStr(0) );
  Form5.Memo1.Lines.BeginUpdate;
  try
    Form5.Memo1.Lines.Clear;

    if VersionResourceAvailable(FileName) then
      with TJclFileVersionInfo.Create(FileName) do
      try
        for I := 0 to LanguageCount - 1 do
        begin
          LanguageIndex := I;
          Form5.Memo1.Lines.Add(Format('[%s] %s', [LanguageIds[I], LanguageNames[I]]));
          Form5.Memo1.Lines.Add('');
          //Form4.Memo1.Lines.Add(StringOfChar('-', 80));
          Form5.Memo1.Lines.AddStrings(Items);
          Form5.Memo1.Lines.Add(BinFileVersion);
          Form5.Memo1.Lines.Add(OSIdentToString(FileOS));
          Form5.Memo1.Lines.Add(OSFileTypeToString(FileType, FileSubType));
          Form5.Memo1.Lines.Add('');
        end;
        Form5.Memo1.Lines.Add('Translations:');
        for I := 0 to TranslationCount - 1 do
          Form5.Memo1.Lines.Add(VersionLanguageId(Translations[I]));
        //Memo1.Lines.Add(BooleanToStr(TranslationMatchesLanguages));
      finally
        Free;
      end;

  finally
    Form5.Memo1.Lines.EndUpdate;
  end;
end;
Die eingetragenen Werte sind nach dem Speichern des Projektes in der IDE auch da, siehe Anhang, aber nicht in meinem Programm.

Hat jemand einen Tipp für mich.

Gruß Rainer
Miniaturansicht angehängter Grafiken
programm.jpg   optionen.jpg  
  Mit Zitat antworten Zitat