Verwendung der gleiche Komponente an mehr als 100 Stellen

[Karstadt]

Delphi-Quellcode:

  with dm.mqr_TEMP do
  begin
    Close;
    Sql.Clear;
    sql.Add('SELECT * FROM lager ORDER BY lg_bezeichnung ASC');
    open;
    While not Eof do
    begin
      Lagerliste.Add(Fieldbyname('lg_bezeichnung').asstring);
      next;
    end;
    close

Um Irgendwelche Daten zu bekommen. Z.b akkueller Benutzername; Lagername oder sonst was verwende ich immer die Komponente mqr_TEMP (obe ist nur ein Beispiel von 100) soll ich damit rechnen das dieses Vorgehen irgendwann fehlschlägt. Weil z.B. bei einigen Stellen onCalcfield ich auch diese Komponente mqr_TEMP arbeite.

:stupid:

[mschaefer]

Geht,

solange Du nur liest und nicht mit Threads arbeitest. Bei Threads mußt Du jeweils eine eigenen Instanz aufbauen. Bei Schreibzugriffen mit Transaktionen arbeiten

//Grüße Martin

[alzaimar]

Ja, Du sollst damit rechnen. Und deshalb wirst Du Dir keine Events für diese 'DatasetToStringList'-Query dazuschreiben und kein OnCalcFields.

Oder, Du sorgst dafür, das Deine Routinen reentrant sind, also den Laden genauso hinterlassen, wie sie ihn vorgefunden haben, übrigens ein simpler Trick, um robuste Programme zu schreiben:

Delphi-Quellcode:

Procedure SQLToStringList (Const anSQLStmt : String; aStringList : TStrings);
Begin
  SetupEventsAndCalculatedFieldsBlaBla; // Irgendwie die Events setzen und Veränderungen vornehmen
  Try
    With MyDataModule.TempQuery Do Begin
      SQL.Text := anSQLStmt;
      Active := True;
      First;
      While Not Eof Do Begin
        aStringList.Add (Fields[0].Value);
        Next;
      End;
    End;
  Finally 
     ResetEventsAndCalculatedFieldsBlaBla; // Alle Änderungen wieder rückgängig machen
  End;
End;

[Karstadt]

Ja aber beim Auruf leere ich die Tabelle bzw die SQL Anweisung:

Delphi-Quellcode:

with dm.mqr_TEMP do
  begin
    Close;
    Sql.Clear;

[alzaimar]

Delphi-Quellcode:

MyQuery.SQL.Text := 'Select * From Foobar'

ist äquivalent mit

Delphi-Quellcode:

MyQuery.Close;
MyQuery.SQL.Clear;
MyQuera.SQL.Add('Select * From Foobar');