Proleme bei Locate

[mkinzler]

Zu welcher Klasse gehören die beiden Eigenschaften?

[himitsu]

Delphi-Quellcode:

  with DM_Buecher.ADS_Buecher do
    if sort = Column.Field.FieldName then
      sort := Column.Field.FieldName + ' DESC'
    else
      sort := Column.Field.FieldName

Wenn alles* unterhalb des WITH zu der Klasse gehört, welche direkt im WITH gekapselt wurde, dann gibt es meistens keinerlei Probleme,
aber wie man bei Umstellungen auf XE2, oder sonstigen Umstellungen oder Erweiterungen von Klassenstrukturen, gesehn hat, gibt es sofort Probleme, wenn sich z.B. Methoden/Property im Scope verschieben, bzw. wenn sich plötzlich Gleichnamiges dazwischenschiebt (im Scope auftaucht).

*) Property, Methoden/Funktionen, Felder und (eingebettete) Typen und Konstanten


WITH kann ein mächtiges Werkzeug sein, womit man sich Arbeit erspart,
aber man sollte es nicht inflationär und mit vorallem mit Bedacht einsetzen.

Und in dem hier vorliegendem Fall war es nunmal vollkommen nutzlos und brachte keinerlei Vorteile.

Zitat:

with ... do anstatt einem .

[Sir Rufo]

Zitat von mkinzler:

Zu welcher Klasse gehören die beiden Eigenschaften?

Das sieht man doch

Column ist ein Parameter der Methode und Sort ist eine Property von DM_Buecher.ADS_Buecher

[himitsu]

Zitat von Sir Rufo:

Das sieht man doch

Sort könnte auch eine globale Variable sein, oder ein Feld/Property von TFRM_Main.
Und was mag wohl passieren, wenn ADS_Buecher auch ein Column besitzt, bzw. in Zukunft mal Eines bekommt?

[Flash68]

Sir Rufio hat schon recht, das gehört alles zu dem DM_Buecher.ADS_Buecher

Damit wird die Tabelle sortiert.

Ich denke mal das in dem Fall wohl das with bleiben muß.

[mkinzler]

Zitat von Flash68:

Sir Rufio hat schon recht, das gehört alles zu dem DM_Buecher.ADS_Buecher

Damit wird die Tabelle sortiert.

Ich denke mal das in dem Fall wohl das with bleiben muß.

Müssen nicht.

[Jumpy]

Zitat von Flash68:

Ich denke mal das in dem Fall wohl das with bleiben muß.

Alles was mit with geht, muss ohne erst recht gehen. Diejenigen, die Beispiele genannt haben sind wohl davon ausgegangen, dass sort eine globale Variable ist. Um mal eines der Beispiele aufzugreifen:

Delphi-Quellcode:

procedure TFRM_Main.DBG_BuecherTitleClick(Column: TColumn);
var
  sort, fieldname: string;
begin
    fieldname := DM_Buecher.ADS_Buecher.Column.Field.FieldName;
    sort := DM_Buecher.ADS_Buecher.sort;
    if sort = fieldname then
      sort := fieldname + ' DESC'
    else
      sort := fieldname;
    DM_Buecher.ADS_Buecher.sort:=sort;
end;

[mkinzler]

Wobei man sort := DM_Buecher.ADS_Buecher.sort; weglassen kann.

[Flash68]

da kommt er wieder nicht mit dem Column.Field.FieldName von

fieldname := DM_Buecher.ADS_Buecher.Column.Field.FieldName; klar

[himitsu]

Delphi-Quellcode:

procedure TFRM_Main.DBG_BuecherTitleClick(Column: TColumn);
begin
  Column.Sort;
end;

Delphi-Quellcode:

type
  TFieldSortMode = (fsmAuto, fsmAsc, fsmDesc);
  TFieldHelper = class helper for TField
    ...
    procedure Sort(aSortMode: TFieldSortMode = fsmAuto);
    ...
  end;

procedure TFieldHelper.Sort(SortMode: TFieldSortMode);
begin
  with DataSet do
    if (aSortMode = fsmDesc) or ((aSortMode = fsmAuto) and (Sort = Self.FieldName)) then
      Sort := Self.FieldName + ' DESC'
    else
      Sort := Self.FieldName; 
end;