Delphi ProjektOptionen immer Englisch Werte werden nicht übernommen

**User11**

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:

markieren

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

Delphi ProjektOptionen immer Englisch Werte werden nicht übernommen

Delphi ProjektOptionen immer Englisch Werte werden nicht übernommen

Forumregeln