Details

Written by: Stanko Milosev

Category: Delphi

Published: 18 January 2010

Last Updated: 18 December 2011

Hits: 8770

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: 5636

Using:

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

Taken from here.

Details

Written by: Stanko Milosev

Category: Delphi

Published: 03 August 2009

Last Updated: 18 December 2011

Hits: 5806

If you want to change regional settings for your application (not globaly for Windows), you can use this code:

function MakeLCID( lgID: Word; srtid: Word ): DWORD;
begin
  Result := MakeLong( lgid, srtid );
end;

function MakeLangID( p, s: Word ): Word;
begin
  Result := (s shl 10) or p
end;

procedure TForm3.btn1Click(Sender: TObject);
begin
  Win32Check( SetThreadLocale(
    MakeLCID(
      MakeLangID( LANG_ENGLISH, SUBLANG_ENGLISH_US), 0)));
  GetFormatSettings;
  Application.UpdateFormatSettings := false;
  ShowMessage(FormatDateTime('ddd, dd mmm yyyy hh:nn:ss +0200', Now));
end;

Taken from here.