Zugriffsverletzung bei Adresse *** in Modul '*.exe'.

[mädibo]

vieleicht hilft das:

Delphi-Quellcode:

unit UnitAdmin2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, UnitLogin2;

type
  TFormAdmin2 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    edUser: TEdit;
    mePW: TMaskEdit;
    btOK: TButton;
    procedure btOKClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    function isOK: boolean;
  end;

var
  FormAdmin2: TFormAdmin2;
  ok: integer;

implementation

{$R *.dfm}

{ TFormAdmin2 }

function TFormAdmin2.isOK: boolean;
begin
    if ( ok = 1 ) then
        result := true
    else
        result := false;
end;

procedure TFormAdmin2.btOKClick(Sender: TObject);
var user,pw: string;

begin
    user := edUser.Text;
    pw := mePW.Text;

    UnitLogin2.FormLogin2.Table1.Active := false;
    UnitLogin2.FormLogin2.Table1.Filtered := false;
    UnitLogin2.FormLogin2.Table1.Filter := 'User = '+QuotedStr( user );
    UnitLogin2.FormLogin2.Table1.Filtered := true;
    UnitLogin2.FormLogin2.Table1.Open;

    if (pw = UnitLogin2.FormLogin2.dbePW.Text) then
        showmessage('klappt')
    else
        showmessage('klappt nicht');

end;

end.

[Bernhard Geyer]

Zitat:

Zitat von mädibo

was meinst du mit formlogin = nil

Setze einen Breakpoint auf die Zeile:

Delphi-Quellcode:

UnitLogin.FormLogin.TAdmin.Active := false;

und lass dir den Inhalt der Variable FormLogin anzeigen. Und dort wird dir die IDE höchstwahrscheinlich nil anzeigen. Und das heißt das es die Variable FormLogin auf kein erzeugtes Formular zeigt und du in die Falle der automatisch erzeugten Formulare getappt bist.

[mädibo]

:gruebel: hmm.. kannst du das etwas einfach ausdrücken. also wenn ich mit dem cursor auf die zeile gehe, komm 'var UnitLogin2.FormLogin2: TFormLogin2 - UnitLogin2.pas (26)' oder was ist IDE?

dan weiter, wenn ich ctrl+shift+f11 drücke, erscheint formlogin2 mit formadmin2 auf der liste der automatisch erzeugen formulare

[Bernhard Geyer]

Zitat:

Zitat von mädibo

oder was ist IDE?

Schon gesehen was die Delphi-Praxis zu IDE anzeigt?

Zitat:

Zitat von mädibo

dan weiter, wenn ich ctrl+shift+f11 drücke, erscheint formlogin2 mit formadmin2 auf der liste der automatisch erzeugen formulare

Und steht da auch ein FormLogin in dieser Liste?

[mädibo]

nei, ich habe eben 2 neue klassen gemacht, Unitlogi.pas und unitAdmin.pas mit unitLogin2.pas und unitAdmin2.pas ersetzt. dementsprechend sind auch die forms auf formlogin2 und formadmin2 geändert worden.

€: und die stehen beide in dieser liiste

[mädibo]

was bedeutet das eigentlich, wenn in der objekt hierarchie der form bei <?> {Alias} und **.db {Table 1} ein gelbes fragezeichen davor steht?? wahrscheinlich nichts gutes