MyBase: Datenlöschen

[DeddyH]

With nutzt immer den "innersten" Scope, d.h. in Deinem Fall sollte es keine Probleme geben. Trotzdem lauern da Fallstricke, die sich u.U. nur sehr schwer finden lassen, so dass einige User (mich eingeschlossen) von der Benutzung von with abraten.

[Kralle]

Hallo,

Zitat von DeddyH:

With nutzt immer den "innersten" Scope, d.h. in Deinem Fall sollte es keine Probleme geben. Trotzdem lauern da Fallstricke, die sich u.U. nur sehr schwer finden lassen, so dass einige User (mich eingeschlossen) von der Benutzung von with abraten.

also doch lieber die Variante mit "ClientDataSet1." - richtig?

Gruß Heiko

[DeddyH]

Damit bist Du zumindest auf der sicheren Seite. Falls es Dir nur um Tipparbeit geht: da kann man auch mit einer Variablen (parallel zu einer vernünftigen Komponentenbenennung) einsparen, z.B.:

Delphi-Quellcode:

var
  CDS: TClientDataset;
begin
  CDS := ClientDataset1;
  CDS.First;
  //usw.

[Kralle]

Hallo,

Zitat von DeddyH:

Damit bist Du zumindest auf der sicheren Seite.

In Ordnung. Habe ich mir notiert.

Zitat von DeddyH:

Falls es Dir nur um Tipparbeit geht: da kann man auch mit einer Variablen einsparen, z.B.:

Delphi-Quellcode:

var
  CDS: TClientDataset;
begin
  CDS := ClientDataset1;
  CDS.First;
  //usw.

Das ich auch einfach für ein ClientDataSet ein Variable definieren kann, war mir nicht bewusst.
Ich habe wieder was gelernt.

Zitat von DeddyH:

(parallel zu einer vernünftigen Komponentenbenennung) einsparen, z.B.:

Die einzigen Komponenten auf de Du hier schliessen kannst, sind TForm1 und lbledt1.
Erstere ist noch unbenannt und zweitere hat seinen Namen durch das "CnPack" erhalten.
Beide Namen sagen mir auch nicht zu, aber da es in diesem Fall nur um ein kleines Testprogramm ging, war mir das egal.

Gruß HEiko

[Dejan Vu]

Zitat von DeddyH:

Trotzdem lauern da Fallstricke, ... von der Benutzung von 'with' abraten.

Der imho einzige nervende Fallstrick ist der, das man den Debugger nicht verwenden kann. Böse und schwer zu findende Fehler hatte ich noch keine. Aber da man den Debugger nicht verwenden kann und 'with' auch keinen Mehrwert bringt, kann (und sollte) man getrost darauf verzichten. Aber da hat so jeder seine eigenen Erfahrungen.

[DeddyH]

Es gehört zwar nicht mehr zum Thema, aber mal ein ganz simples Beispiel:

Delphi-Quellcode:

type
  TUsedClass = class
  strict private
    FProp1: integer;
  public
    property Prop1: integer read FProp1 write FProp1;
  end;

  TUserClass = class
  strict private
    FProp2: integer;
  public
    procedure DoSomeWork;
    property Prop2: integer read FProp2 write FProp2;
  end;

{ TUserClass }

procedure TUserClass.DoSomeWork;
var
  UsedClass: TUsedClass;
begin
  UsedClass := TUsedClass.Create;
  try
    UsedClass.Prop1 := 42;
    with UsedClass do
      Prop2 := Prop1;
    ShowMessage(IntToStr(Prop2));
  finally
    UsedClass.Free;
  end;
end;

Delphi-Quellcode:

procedure TFormTest.btnTestClick(Sender: TObject);
begin
  with TUserClass.Create do
    try
      DoSomeWork;
    finally
      Free;
    end;
end;

Ausgabe: 42, also wie erwartet. Nun stellen wir uns vor, die TUsedClass ist eine gekaufte Klasse/Komponente, und wir spielen uns ein Update ein:

Delphi-Quellcode:

type
  TUsedClass = class
  strict private
    FProp1: integer;
    FProp2: integer;
  public
    property Prop1: integer read FProp1 write FProp1;
    property Prop2: integer read FProp2 write FProp2;
  end;

Was wir denn jetzt ausgegeben, wenn wir den Button anklicken? Gut, man könnte überall, wo die eigene Instanz gemeint ist, vorsichtshalber ein "self." davorschreiben, aber dann ist der Hauptgrund für das with (weniger Tipparbeit) ja auch irgendwie wieder hinfällig.