Delphi löscht Quelltext

[Ferber]

Hi !
Auch Delphi 5 löscht Einträge aus der Projektunit.
Ist mit bei einem Splash als Intro aufgefallen.
Mögliche Abhilfe: Formular aus dem Projekt entfernen und im Haupformular (oder anderem) in die 'Uses Klausel' aufnehmen.
Nur die allerwichtigsten Formulare automatisch erzeugen lassen.

Vielleicht ist folgendes hilfreich (beschleunigt Programmstart und ist aus Unit Forms abgeleitet)

Delphi-Quellcode:

unit UShowForm; 

interface 

uses Classes, Forms; 

type 
  TShowMode = (smModal, smShow); 

function ShowForm(InstanceClass: TComponentClass; var Reference; aShowMode:TShowMode):TModalResult; 

implementation 

procedure CreateForm(InstanceClass: TComponentClass; var Reference); 
begin 
  if Pointer(Reference)=nil 
     then Application.CreateForm(InstanceClass, Reference); 
end; 

function ShowForm(InstanceClass: TComponentClass; var Reference; aShowMode:TShowMode):TModalResult; 
begin 
  CreateForm(InstanceClass, Reference); 
  if aShowMode = smModal 
     then TForm(Reference).ShowModal 
     else TForm(Reference).Show; 
  Result:=TForm(Reference).ModalResult;  // macht nur bei modalem Aufruf Sinn 
end; 

end.

Manchmal gibt's halt Programme mit vielen Formularen !