wie kann ich diesen code optimieren

[Skyruner2]

Delphi-Quellcode:

procedure TDBform.TableAccessChanging(Sender: TObject;
  var AllowChange: Boolean);
begin
dbnavigator.DataSource.DataSet.Active:=false;
end;

procedure TDBform.testEnter(Sender: TObject);
begin
adoquery_test.Active:=true;
dbnavigator.DataSource:=datasource_test;
end;

procedure TDBform.test2Enter(Sender: TObject);
begin
adoquery_test2.Active:=true;
dbnavigator.DataSource:=datasource_test2;
end;

procedure TDBform.newsEnter(Sender: TObject);
begin
adoquery_news.Active:=true;
dbnavigator.DataSource:=datasource_news;
end;

procedure TDBform.usersEnter(Sender: TObject);
begin
adoquery_useres.Active:=true;
dbnavigator.DataSource:=datasource_useres;
end;

titel sagt schon alles...

[alcaeus]

Du behandelst hier 5 verschiedene Events. Du kannst natürlich auch einen eigenen Eventhandler für alle 5 Events schreiben, und dann mit case arbeiten, aber der Aufwand lohnt sich wirklich nicht.
Um die Frage klipp und klar zu beantworten: GAR NICHT (jedenfalls nicht IMHO)

Greetz
alcaeus

[Smokey]

oder du schreibst ne procedur, der du die querykomponente und die datasource übergibst
und machst in der die anweisungen.
Dann steht in den events nurnoch der Prozeduraufruf mit den entsprechenden Querys/Datasources

Aber viel mehr als ein wenig mehr Übersicht bringt das auch nicht.

[alcaeus]

Zitat von Smokey:

oder du schreibst ne procedur, der du die querykomponente und die datasource übergibst
und machst in der die anweisungen.

Das bringt IMHO gar nichts, denn ein zusätzlicher Prozeduraufruf lässt von Optimierung wohl gar nichts sehen. Das macht das Prog anstatt schneller nur langsamer

[negaH]

Falls dieser Code 1000 mal in deinen Projekten vorkommt, dann würde eine einmalige Komponente eine Optimierung darstellen

Gruß Hagen

[Smokey]

Deshalb sagte ich ja, dass es nichts bringt ausser mehr Übersicht.
Allerdings glaube ich kaum, dass es ihm hier um Geschwindigkeitsoptimierung ging.

[Skyruner2]

hmm ok danke...


der code kommt nur so oft vor wie oben, ist also ok...


danke