Rechnen mit TRect

TRect zurückgeben

function Rect(Left: Integer; Top: Integer; Right: Integer; Bottom: Integer): TRect;

function Bounds(ALeft: Integer; ATop: Integer; AWidth: Integer; AHeight: Integer): TRect;

Die linke obere Ecke wird um DX und DY verschoben

function OffsetRect(var Rect: TRect; DX: Integer; DY: Integer): Boolean;

.Rect verkleinern / vergrößern

function InflateRect(var lprc: TRect; dx, dy: Integer): BOOL;

list() (ab FB 2.1)

Die neue Aggregatfunktion list() gibt alle nicht leeren Felder als Zeichenkette(Blob) zurück

select list(ID) from kunden


liefert als Ergebnis '1,2,5,7,8' zurück

select list(ID,':') from kunden

liefert als Ergebnis '1:2:5:7:8' zurück

Vergleichen von 2 Variablen

... ist kompliziert, wenn einer der Werte NULL sein kann. Ab Firebird 2.0 (FB2) ist es einfacher

A=B ?

alt:   A = B or (A is null and B is null)

FB2:   A is not distinct from B

A<>B

alt:   A <> B or (A is null and B is not null) or (A is not null and B is null)

FB2:   A is distinct from B

 

Win7, OnBeforePost und DevExpress Grid 6.53

In der Version 6.53 existiert ein Designfehler im cxGrid, wenn in der Event OnBeforePost eine Messagebox aufgerufen wird

 

procedure TForm1.dxMemData1BeforePost(DataSet: TDataSet);
begin
  if MessageDlg('save record?', mtConfirmation,mbYesNo,0) <> mrYes then
    Abort;
end;

 

Der Dialog sollte eigentlich so aussehen:

Ansicht Fehler

 

Durch den Fehler sieht es aber so aus:

Seiten