prozeduren auslagern

[SaFu]

Wie meinst du das???

Also dadurch das ich jetzt die Table und die Datasource von der Form10 entfernt habe und alles auf die Form1 umgeleitet (Datasource und Table von Form1) habe.

Ist es jetzt eindeutiger auf welche Table ich zugreife
und der Code sieht jetzt so aus

Delphi-Quellcode:

unit Datenbankerzeugen;

interface

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

  procedure tabelleerst(F1Tabelle1: TTable; Serverpfad: string);// hier ist es auch kürzer

implementation

//======================Benutzertabelle erstellen===============================
procedure Tabelleerst(F1Tabelle1: TTable; Serverpfad:String);
begin
F1Tabelle1.close;
   With F1Tabelle1 Do  //Tabelle erzeugen
     begin
      DatabaseName:= Serverpfad + 'Datenbank\'; //Pfad zur Tabelle
      // hier fällt die Zeile weg
      TableName:= 'Benutzerverwaltung.DB';
      TableType:= ttParadox;
     end;
      if not FileExists( Serverpfad + 'Datenbank\Benutzerverwaltung.DB') then
        begin
          With F1Tabelle1 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
                       F1Tabelle1.Open; //Tabelle öffnen zum Schreiben
                       F1Tabelle1.Edit;
                       F1Tabelle1['Benutzername']:= 'Admin';
                       F1Tabelle1['Passwort']:= '123';
                       F1Tabelle1['Administrator']:= True;
                       F1Tabelle1['Versuche']:= 0;
                       F1Tabelle1['Gesperrt']:= 'Nein';
                       F1Tabelle1.Post;  //Eintrag übernehmen
                       F1Tabelle1.Close; //Tabelle schließen
                      end;
                end;
        end;
     F1Tabelle1.Active:= True; //Tabelle1 auf Form1 aktivieren
 // hier fällt die Zeile weg
end;

Oder hab ich wirklich was falsch verstanden