Ergebnis der Suchanfrage

• Forum: Datenbanken

  Re: Funktionsbibiliothek - Objekttypunabhängig machen

    Delphi
    by Flocke, 11. Aug 2005
  Als wenn ich das nicht geschrieben hätte :warn:
  Mache den Test besser mit is und danach einfach einen festen Cast:
  
  
  function tdbf.OpenSql(query1: tDataSet; tabelle, feld: string; wert: integer): boolean;
  var t: string;
  begin
  query1.close;
  t := 'select * from ' + tabelle + ' where ' + feld + ' = ' + inttostr(wert);
  if query1 is TZQUERY then
• Forum: Datenbanken

  Re: Funktionsbibiliothek - Objekttypunabhängig machen

    Delphi
    by Flocke, 11. Aug 2005
  Du willst doch nichts an Query1 zuweisen, darum brauchst du keinen var-Parameter.
  
  Nochwas: ich würde dir trotzdem den Test mit "Query is tzQuery" empfehlen, weil du die Routine dann auch für von tzQuery abgeleitete Klassen benutzen könntest.
• Forum: Datenbanken

  Re: Funktionsbibiliothek - Objekttypunabhängig machen

    Delphi
    by Flocke, 11. Aug 2005
  Classname kann ja auch anders groß-/kleingeschrieben sein.
  Probier's so:
  function tdbf.OpenSql(var query1: tObject; tabelle, feld: string; wert: integer): boolean;
  begin
  if query1 is tzQuery then
  with tzQuery(query1) do begin
  close;
  sql.text := 'select * from ' + tabelle + ' where ' + feld + ' = ' + inttostr(wert);
  open;
  result := not (eof and bof);