Moin Moin liebe DPler
hab folgendes Problem und versteh die Logik momentan grad nicht
Also ich hab eine Routine geschrieben die mir meine Komponenten vom Typ TZQuery (ZEOS) aktiviert.
Da ich zwei Queries habe die ich von der Aktivierung auschliessen möchte, überprüfe ich den
Namen der Komponenten ... ich post euch mal meinen Code ...
Delphi-Quellcode:
...
for I := 0
to frmMain.ComponentCount - 1
do
begin
// Überprüfen ob Komponente vom Typ "TZQuery"
if frmMain.Components[I]
is TZQuery
then
begin
// >>>>>>>>>>>>>>>> Hier passiert die Überprüfung <<<<<<<<<<<<<<<<<
if ((frmMain.Components[I]
as TZQuery).
Name <> '
qryB')
OR
((frmMain.Components[I]
as TZQuery).
Name <> '
qryK')
then
begin
// Log: Versuch Query zu aktivieren
frmDbProgress.mLog.Lines.Append('
Query "' + (frmMain.Components[I]
as TZQuery).
Name +
'
" wird versucht zu aktivieren ...');
// Query aktivieren
try
(frmMain.Components[I]
as TZQuery).Active := True;
frmDbProgress.mLog.Lines.Append('
Query "' + (frmMain.Components[I]
as TZQuery).
Name +
'
" wurde erfolgreich aktiviert ...');
frmDbProgress.prgDb.StepIt;
except on E:
Exception do
begin
Cursor := crDefault;
// Fehlermeldung ausgeben
frmDbProgress.mLog.Lines.Append('
Query "' + (frmMain.Components[I]
as TZQuery).
Name +
'
" konnte nicht aktiviert werden ...');
// Errors um 1 erhöhen
Inc(Errors);
end;
end;
end;
end;
end;
...
Die besagten Queries sind "qryB" und "qryK" ...
// >>>>>>>>>>>>>>>> Hier passiert die Überprüfung <<<<<<<<<<<<<<<<< ...
kennzeichnet den Teil in dem die Überprüfung stattfindet
Der teil dieses Codes wird im AfterConnect Event der Connection ausgeführt ... nur so als info am rande