prozeduren auslagern

[SaFu]

Ok wäre es so richtig?

Delphi-Quellcode:

unit Datenbankerzeugen;

interface

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls,DB, DBTables, ComCtrls, Buttons, ColorGrd;

  procedure tabelleerst(Table1: TTable);

implementation

Uses Unit1,unit10;

//======================Benutzertabelle erstellen===============================
procedure Tabelleerst(Table1: TTable);
Var  pfad : string;
begin
Table1.close;
  getdir(0,Pfad);
   With Table1 Do  //Tabelle erzeugen
     begin
      DatabaseName:= Form1.Serverpfad + 'Datenbank\'; //Pfad zur Tabelle
      Form10.Table1.DatabaseName:= Form1.Serverpfad + 'Datenbank\';
      TableName:= 'Benutzerverwaltung.DB';
      TableType:= ttParadox;
     end;
      if not FileExists( Form1.Serverpfad + 'Datenbank\Benutzerverwaltung.DB') then
        begin
          With Table1 Do
            begin
              with FieldDefs Do //Datenfelder erzeugen
                begin
                 Clear;
                 Add('Nr.',ftAutoInc,0,True);
                 Add('Benutzername',ftString,30,True);
                 Add('Passwort',ftString,30,False);
                 Add('Administrator',ftboolean,0,False);
                 Add('Versuche',ftInteger,0,False);
                 Add('Gesperrt',ftString,5,False);
                end;
                  with IndexDefs do //Index Schlüssel erzeugen
                   begin
                    Clear;
                    Add('Nr','Nr.',[ixPrimary, ixUnique]); // Primär Index
                   end;
                    CreateTable;
                      begin   //User erzeugen
                       Table1.Open; //Tabelle öffnen zum Schreiben
                       Table1.Edit;
                       Table1['Benutzername']:= 'Admin';
                       Table1['Passwort']:= '123';
                       Table1['Administrator']:= True;
                       Table1['Versuche']:= 0;
                       Table1['Gesperrt']:= 'Nein';
                       Table1.Post;  //Eintrag übernehmen
                       Table1.Close; //Tabelle schließen
                      end;
                end;
        end;
     Table1.Active:= True; //Tabelle1 auf Form1 aktivieren
     Form10.Table1.Active:= True; //Tabelle1 auf Form10 aktivieren
end;
end.

Aufruf in der anderen Unit:

Datenbankerzeugen.tabelleerst(Table1);