prozeduren auslagern

[SaFu]

Ok dann glaube ich hab ich das Konzept verstanden

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; F10Tabelle1 :TTable);

implementation

//======================Benutzertabelle erstellen===============================
procedure Tabelleerst(F1Tabelle1: TTable; Serverpfad:String; F10Tabelle1 :TTable);
Var  pfad : string;
begin
F1Tabelle1.close;
   With F1Tabelle1 Do  //Tabelle erzeugen
     begin
      DatabaseName:= Serverpfad + 'Datenbank\'; //Pfad zur Tabelle
      F10Tabelle1.DatabaseName:= Serverpfad + 'Datenbank\';
      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
     F10Tabelle1.Active:= True; //Tabelle1 auf Form10 aktivieren
end;
end.

Danke für den kleinen Crashkurs ist ganz einfach wenn man es so gezeigt bekommt.

Was wären den dies Überarbeitungen ich bin nämlich dabei den Code zu verbessern

Zitat von Matze:

EInfach so erweitern:

Wobei ich fast denke, das grundlegende Konzept sollte komplett überarbeitet werden. Aber besser als so, wie du's bisher hast, ist es.