Fehler bei Übernahme von Text aus Edit

[KPBecker]

Hallo, Delphi-Praktiker,
ich habe ein mir neues Problem, in ein Edit Text einzugeben und im Programm zu übernehmen.

Gegeben: Formular mit TEdit und einem Button
Ziel: Text aus Edit-Feld übernehmen (= auf String-Variable zuweisen), wenn Button "OnClick"

Problem: Es wird in der OnClick-Routine nur das übernommen, was als Vorgabe schon in edit.text steht, Änderungen werden nicht berücksichtigt.
ReadOnly ist false, ich kann auch ins Edit-Feld schreiben, übernommen wird aber immer nur, was vordefiniert war.

Beste Grüße
Klaus-Peter

[s.h.a.r.k]

Zeig mal den Code, den du dafür nutzt.

[stahli]

Liest Du vielleicht aus dem falschen Edit?
S := MyEdit.Text; sollte zuverlässig funktionieren.

[KPBecker]

Code:

procedure TfrmTitel.btnAnmeldenClick(Sender: TObject);
//  Benutzer anmelden
begin
  Benutzer:= frmTitel.Edit1.Text;
  Passwort:= frmTitel.ledPasswort.Text;
  BenAnmelden;
end;

Benutzer ist ein global vereinbarter String.
Wie gesagt: Text, der schon im Objekt-Inspektor für Edit1.Text definiert wird, wird immer nach Benutzer zugewiesen, auch, wenn im Programmlauf - vor btnAnmeldenClick - manuell etwas anderes ins Edit-Feld geschrieben wurde.
KP

[s.h.a.r.k]

Globale Variablen sind schon sehr mal sehr böse, denn es kann sein, dass daher der Fehler kommt! Warum gibst du BenAnmelden nicht zwei Parameter, Benutzer und Passwort eben und übergibst diese?

Unüblich ist auch der Zugriff auf frmTitel. Mir ist schon klar, dass frmTitel eine globale Variable ist, aber wenn du mal eine weitere Instanz von TfrmTitel hast, dann greift dein Code nur auf eine zu, was falsch ist.

[KPBecker]

Hallo, shark,
probier ich gerne aus, aber:

Das Auslesen von Edit1.Text geht ja anscheinend prinzipiell (s. Vorbelegung).
Das nutzt in der Praxis natürlich nichts, man will ja in edit etwas eingeben/ändern und das dann übernehmen.
KP

[s.h.a.r.k]

Der Code, den du oben gezeigt hast, funktioniert zu 100%! Somit ebenso das Auslesen der geänderten Werte. Der Fehler liegt somit wo anders, ich glaub an diesen globalen Variablen.

[KPBecker]

Delphi-Quellcode:

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

Haltepunkt auf BenAnmelden gesetzt --> In ben steht nur der Text, der in Edit1 vordefiniert war.
???
KP