Klassen selber schreiben

[Schuster]

Hier hast du ein Beispiel wie eine eigene Klasse ausschaut:

Diese befindet sich z.b. in einen eigenen Unit daher mußt du dieses Unit auch einbinden.

Code:

unit SQL;

interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
     Dialogs, Menus, ComCtrls, StdCtrls, Datenmodul;



type SQL_Befehle = class(TObject)
public
     procedure SQL_Sel_Abfragen (Table : String; Field : String; Zu_Suchen: String); //Procedure der Klasse
end;

implementation

uses ZDataset, DB, ZAbstractRODataset,Start;


   procedure SQL_Befehle.SQL_Sel_Abfragen(Table : String; Field : String; Zu_Suchen: String);
   var SQLText:String;
   begin
        SQLText:='Select * from '+Table+' where '+ Field +' like''' + Zu_Suchen + '%'' ;';
        with DataModule1.ZQuery_Haupt do
        begin
          SQL.Clear;
          SQL.Add(Sqltext);
          Open;
        end;
   end;
end.

Im HauptUnit kann das dann so ausschauen:

Code:

implementation

uses SQL;  //Unit mit der erstellten Klasse einbinden

var MEINSQL : SQL_Befehle;  //Erstellen des Objectes (Initialisierung)

und verwenden dann so:

Code:

MeinSQL.SQL_Sel_Abfragen('Table','Field','ZuSuchen');