Einzelnen Beitrag anzeigen

Benutzerbild von paule32.jk
paule32.jk

Registriert seit: 24. Sep 2022
Ort: Planet Erde
356 Beiträge
 
Delphi 11 Alexandria
 
#1

Delphi 7 32-Bit localization of App does not work (Exception)

  Alt 28. Jul 2023, 20:22
Hello,

I have the following Code-Snip from the reinit.pas of the RichEditor Demo of Delphi 7.
I would like to localisize my Application with different Languages.
I get a exception in the inner "try finally" block.
What did I wrong ?

Edit: woops, English, sollte Deutsch sein !!!

Code:
...
  ResStream := TResourceStream.Create(HInst, ResName, RT_RCDATA);
  try
    AsInheritedReader := TAsInheritedReader.Create(ResStream, 4096);
    try
      Instance := AsInheritedReader.ReadRootComponent(Instance);
      // here, exception occur !
    finally
      AsInheritedReader.Free;
    end;
  finally
    ResStream.Free;
  end;
...
Gruß, paule
Frag doch einfach
  Mit Zitat antworten Zitat