Fehler bei Übernahme von Text aus Edit

[WM_CLOSE]

Ich glaube eher, du verwendest die falsche Instanz von TfrmTitel:
ersetze das frmTitel.Edit1.Text; durch self.Edit1.Text;

[KPBecker]

Hallo, Luckie,

das darf nicht wahr sein:

Delphi-Quellcode:

procedure TfrmTitel.btnAnmeldenClick(Sender: TObject);
//  Benutzer anmelden
var
  ben, pw: string;
begin
  ben:= Edit1.Text;
  pw := ledPasswort.Text;
  BenAnmelden(ben, pw);
end;

Das geht !
Warum auch immer ???

Vielen dank allen Diskutanten
KP

[stahli]

Lade mal Dein Projekt als Zip hoch, dann können wir es Dir sicher erklären...

[WM_CLOSE]

Son Quatsch, ich kann es so erklären:

frmTitel ist eine globale Variable (oder fast)
Das Formular wird in dem dpr-file erzeugt: CreateForm(frmTitel, TfrmTitel) Dann kommt der programmierer und erzeugt in irgendeiner seiner funktionen ein anderes Formular. Das hat zwar den selben Typ, aber es ist ein seperates Formular.

Greift jetzt der programmierer auf die globale Varible zu, erhält er eben nur die Variablen der ersten Instanz.

Deshalb muss in Methoden einer Klasse immer auf die aktuelle
Instanz zugegriffen werden. Das erreicht man indem man self davorschreibt, oder es komplett weglässt.

[stahli]

Ich hatte 2 Ideen:

- 2 Formularinstanzen
- ein dynamisch erzeugtes Edit1 in der frmTitel.pas

Man kann es nicht wissen...

[Sir Rufo]

Füge mal diesen Code ein, dann sollte das klarer werden

Delphi-Quellcode:

procedure TfrmTitel.btnAnmeldenClick(Sender: TObject);
// Benutzer anmelden
var
  ben, pw: string;
begin

  if Self <> frmTitel then
    ShowMessage( 'Ich Depp will doch auf die falsche Instanz zugreifen!' );

  ben:= Edit1.Text;
  pw := ledPasswort.Text;
  BenAnmelden(ben, pw);
end;

[s.h.a.r.k]

@Sir Rufo: Dein Beitrag ist aber nur FSK 18, wegen bösen Begriffen -- frag doch bitte erst mal nach dem Alter

[WM_CLOSE]

@Stahli: "Edit1" dynamisch? nie und nimmer.
Da fress ich nen Besen wenn das dynamisch ist.

[s.h.a.r.k]

Dann hol ich schon mal einen Besen. Warum sollte er das nicht "überschreiben" können. Wenn er irgendwo Edit1 := TEdit.Create(frmTitle) // etc macht, dann ist das schneller passiert als man denkt Das ist zwar sehr unwahrscheinlich, aber möglich.

[Sir Rufo]

Zitat von s.h.a.r.k:

@Sir Rufo: Dein Beitrag ist aber nur FSK 18, wegen bösen Begriffen -- frag doch bitte erst mal nach dem Alter

Wieso datt denn?

Ok, ich habe das Johnny vergessen, das kann natürlich zu Missverständnissen führen