Proleme bei Locate

[himitsu]

Zitat:

Zitat von Sir Rufo (Beitrag 1182436)

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:

Zitat von Flash68 (Beitrag 1182447)

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:

Zitat von Flash68 (Beitrag 1182447)

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

Delphi-Quellcode:

sort := DM_Buecher.ADS_Buecher.sort;

weglassen kann.

[Flash68]

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

Delphi-Quellcode:

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;

[Flash68]

das sieht ja sehr kompliziert und aufwendig aus und es ist doch wieder ein with drin da könnte ich ja gleich mein altes behalten.

es sei denn man kann damit nach mehreren Spalten sortieren, nach einer lösung dafür bin ich auch noch auf der Suche.

[himitsu]

Das WITH kann man gerne noch rausmachen, wenn man will.

Delphi-Quellcode:

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

Gut, ich hab hier noch einen Fehler drin, denn es müßte

Delphi-Quellcode:

Column.Field.Sort;

heißen und/oder man baut sich dieses auch noch für die TColumn.

Nja, es ist nicht komplizierter, als der andere Code.
Nur die Position des Codes ist halt eine andere.

Man kann sich so ein paar öfters gebrauchte Funktionen schön an einer Stelle zusammenfassen, aber anders, als wenn man sie nur irgendwo als "alleinstehende" Prozedur ablegt, ist sie hier an alle Fields direkt angehangen und somit greift hier auch die Codevervollständigung einem hilfreich unter die Arme.

Ich hab mir da z.B. noch eine kleine Locate mit abgelegt, also

Delphi-Quellcode:

Field.DataSet.Sort := Field.FieldName + ' DESC';
Field.DataSet.Locate(Field.FieldName, Value, [loCaseInsensitive]);

Field.Sort(fsmDesc);
Field.Locate(Value);  // mit optionalem Parameter für TLocateOptions

Das sind natürlich Vereinfachungen, welche man nur nutzten kann, wenn nur nur nach einem Feld sortiert, bzw. nur in Einem gesucht werden soll.

[Medium]

Der einzige mir gerade in den Sinn kommende Fall, in dem man ein with nicht so einfach ersetzen kann, ist so etwas:

Delphi-Quellcode:

with TMyClass.Create do
begin
  try
    Property1 := Value1;
    Property2 := Value2;
    Property3 := Value3;
    Method1(Param1, Param2);
  finally
    Free;
  end;
end;

Das mache ich mit IniFiles ganz gerne so. Ansonsten ist with immer ersetzbar, indem man das was zwischen "with" und "do" steht (plus Punkt am Ende) vor alle Member in dem Block setzt. Bei dem obigen bräuchte man eben eine Variable mehr. Kein Beinbruch, aber hier wäre es zumindest nicht mit einfachem Ausschreiben getan. (Gilt für alle Fälle, in denen das with-Teil frische Instanzen oder Records zurückliefert, d.h. keine einfache Variable oder Referenz auf etwas schon bestehendes ist. Factory und so Dinge.)

Wenn man Komponenten im Code erzeugt kann das recht nett sein, ansonsten vermeide ich es aber auch nach Möglichkeit. Die Codevervollständigung befriedigt meinen Hang zur Schreibfaulheit ausreichend, und ich hab's dann lieber ganz ausführlich da stehen. (Ich denk mir meine sprechenden Bezeichner ja nicht aus, um sie nachher wieder durch sowas zu verklausulieren :mrgreen:)
Mehrfach-Withs gehören allerdings wirklich verboten. Die tun in aller Regel einfach nur weh.