Details

Written by: Stanko Milosev

Category: Delphi

Published: 20 January 2010

Last Updated: 20 January 2010

Hits: 6083

TObject(Sender) is unsafe since:

TButton(Edit1).Caption := 'junk code';

will not raise an exception, while:

(Edit1 as TButton).Caption := 'junk code';

will raise an exception.

Taken from here.

Details

Written by: Stanko Milosev

Category: Delphi

Published: 18 January 2010

Last Updated: 18 December 2011

Hits: 8888

if Table.FieldDefs.IndexOf('User1') > -1 then
       ShowMessage('Found')
     else
       ShowMessage('NOT Found');

Taken from here.

Details

Written by: Stanko Milosev

Category: Delphi

Published: 29 September 2009

Last Updated: 18 December 2011

Hits: 5723

Using:

FormatMessage(Format_Message_Allocate_Buffer + Format_Message_From_System, nil, dwResult, 0, @pstrError, 0, nil);

Taken from here.