Einzelnen Beitrag anzeigen

hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.275 Beiträge
 
Delphi 10.4 Sydney
 
#15

Re: TQuery function umstellen auf FibPlus

  Alt 28. Jul 2009, 18:09
Hallo,

Zitat:
Bist Du sicher? Was nimmst Du denn für irgendwelche insert/update Statements?
TXDataSet kann das auch.
Aber in der Tat ist die TXQuery schneller.


hier die Alias-Routine




Delphi-Quellcode:
uses
  SysUtils,

  DB, DBTables,
{ Pfad der Datenbank auf dem Server ermitteln
  der Servername selber wird NICHT übergeben }

function GetServerPath(const theAlias: String): String;
var
  AliasParams: TStringList;
  iCountParam: Integer;
  sCurParam : String;
begin
  Result:= '';

  try
    AliasParams:= TStringList.Create;

    try
      Session.GetAliasParams(theAlias, AliasParams);

      for iCountParam:=0 to AliasParams.Count-1 do
      begin
        sCurParam:= AliasParams[iCountParam];
        if Pos('SERVER NAME', sCurParam)=1 then
        begin
          Result:= Copy(sCurParam, Length('SERVER NAME')+2,
            Length(sCurParam));
        end;
      end;
    finally
      AliasParams.Free;
    end;
  except
    on E: Exception do
    begin
     {$IFDEF DEBUG}
      MBDebug(GetServerPath'+#13#10+E.message);
{$ENDIF}
end;
end;
end; { GetServerPath }

Heiko
Heiko
  Mit Zitat antworten Zitat