Posted via ActualForum NNTP Server 1.5

Posted via ActualForum NNTP Server 1.5

q.text:='update tbl set t=:t where id=:id';
q.ParamByName('t').asDateTime:=t;
q.ParamByName('id').asInteger:=id;
try
   q.ExecSQL;
except
 ...
end;

library Scripts;

uses
  ComServ,
  SysUtils,
  Scripts_TLB in 'Scripts_TLB.pas',
  ComQuery in 'ComQuery.pas' {ComQuery: CoClass},
  AddSpan in 'AddSpan.pas';

exports
  Create_AddSpan,


............................
............................

function Create_AddSpan(aFile: PAnsiChar; aList: PAnsiChar; aKind: OleVariant; aBars: OleVariant; aHandle: OleVariant; var aSql: OleVariant; var aRecordSet: OleVariant;   [b]RegSetup : PAnsiChar[/b] ): Integer;
  var
    S: String;
    B: TProgressBar;
    Id: Cardinal;
    H:  THandle;
  begin
     /// Вы предлагаете прямо здесь осуществить  установку  рег. стандартов
     //// передав их в качестве параметра  ?
     
    FormatSettings.DecimalSeparator    :=Copy(RegSetup, 1, 1)[1];
    FormatSettings.ThousandSeparator :=Copy(RegSetup, 2, 1)[1];
    FormatSettings.DateSeparator        :=Copy(RegSetup, 3, 1)[1];
    FormatSettings.ShortDateFormat    :=Copy(RegSetup, 4,10);

    /// Это сработает именно в DLL

    Result:=1;
    if (aBars  <>Null)then B:=TProgressBar(Integer(aBars)) else B:=Nil;
    if (aHandle<>Null)then H:=THandle(Integer(aHandle))    else H:=0;
    A:=TAddSpan.Create(iif(Integer(aKind)=0,'[Path]'+vbLine+String(aList),String(aFile)),B,H,aSql,aRecordSet);

    .............
  end;

library Scripts;

uses
  ComServ,
  SysUtils,
  Scripts_TLB in 'Scripts_TLB.pas',
  ComQuery in 'ComQuery.pas' {ComQuery: CoClass},
  AddSpan in 'AddSpan.pas';

exports
  InitFormatSettings,
  Create_AddSpan,
...
procedure InitFormatSettings(const AShortDateFormat,ALongDateFormat:string;const ADecimalSeparator,AThousandSeparator:char.....);
begin
  FormatSettings.DecimalSeparator:=ADecimalSeparator;
  ....
end;