Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Delphi löscht Quelltext (https://www.delphipraxis.net/43606-delphi-loescht-quelltext.html)

Sven Janssen 6. Apr 2005 18:30

Re: Delphi löscht Quelltext
 
ah ne WAWI auf MDI Technik *lach*
Ich programmiere auch eine Warenwirtschaft unter Windows. Modular.
Ich würde das nie in EIN Programm alles packen. Das wäre auch unmöglich, da kurzfristige Updates bei Kunden dadurch quasi unmöglich werden. Die erhalten auf einen Schlag das ganze Programm neu.
Desweiteren hat die Modularität da noch ganz andere Vorteile ( so Lizenz-Technisch gesehen ;-) )

btw. 150 Form für ne WAWI ist im ganzen wenig. Dennoch ist das Konzept im ganzen verkehrt. Ich kenne da einige Programme die auch so arbeiten und sich damit ganz schön ins Knie ge.... haben.

Aber hier soll ja nicht das Konzept in Frage gestellt werden. Das kann nun eh nicht mehr umgestellt werden.
Mal meinen Hinweis nachgegangen?

Sven

Ferber 6. Apr 2005 19:07

Re: Delphi löscht Quelltext
 
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 !

mschaefer 6. Apr 2005 19:16

Re: Delphi löscht Quelltext
 
Moin, moin,

Das Delphi die If-clause löscht liegt im System und ist nicht abzuschalten.

Also prinzipiell ist es nicht verkehrt bei einer sollchen Anzahl Forms die Nebenforms dynamisch zu erstellen und abzubauen. Einfach um den Speicherbedarf in Grenzen zu halten. Da sowas natürlich nich einfach umzustellen ist würde ich mir in dem Fall verschiedene Projektdateien anlgen und die bei Bedarf ins Quellcodeverzeichnis kopieren.

Grüße // Martin

Speedmaster 6. Apr 2005 19:20

Re: Delphi löscht Quelltext
 
Warum dynamisiert ihr das ganze nicht einfach, dann sind schnelle Updates möglich, und die Anwendung ist Relativ schnell!

150Forms denke ich sind auch bei einer MDI anwendung viel, erinnert mich irgendwie an bestimmte Siemens Programme!

franktron 6. Apr 2005 19:26

Re: Delphi löscht Quelltext
 
Wenn ich wüste wie würd ich das glatt machen.

Ich habs mal mit DLLS Probiert das klappte aber nicht richtig


Alle Zeitangaben in WEZ +1. Es ist jetzt 04:22 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz