Simpler Fehler, aber wo?

Computer: Software & Programmierung Delphi & Pascal
#1 
procedure TFormCrypter.BtnSubVerschlClick(Sender: TObject);
begin

 if MemoEingabe.lines.text='' //Warum passiert da nichts?
 then
 begin
 LabelUngueltigeEingabe.visible:=true;
 end;

 LabelUnsicher.Visible:=true;

 if length(EditSchluesselSub.text)


Sollte selbsterklährend sein. Ich vertstehe nicht, warum bei der Simplen If-Abfrage das Programm einfach nicht richtig oder überhauptnicht den Befehl ausführt.
#2

Ich erkenne auf die Schnelle keinen Fehler im Programm.

Vielleicht ist .Lines.Text nicht ‚‘. Möglicherweise ist da noch ein Zeilenumbruchs- oder Return-Zeichen drin?

LG
Jochen

#3

Nein, ich kann auch statt ‚‘ ‚A‘ einsetzen, und dann in das Eingabefeld A eingeben, und er mache es trotzdem nicht.

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#4

procedure TFormCrypter.BtnSubVerschlClick(Sender: TObject);
begin

if MemoEingabe.lines.text=’’ //Warum passiert da
nichts?
then
begin
LabelUngueltigeEingabe.visible:=true;
end;

Sollte selbsterklährend sein. Ich vertstehe nicht, warum bei
der Simplen If-Abfrage das Programm einfach nicht richtig oder
überhauptnicht den Befehl ausführt.

Hallo,

warum verwendest du nicht (wie empfohlen)

if Length (MemoEingabe.text) = 0 //Warum passiert da nichts?

Gruss Reinhard

#5

Hi Gidi,

füge vor der if-Abfrage mal

 ShowMessageFmt('Textlänge = %d',[Length(Memo1.Lines.Text)]);

ein. Es sollte eine Meldung mit 0 kommen. Ist das nicht der Fall, dann dürfte das Ergebniss Aufschluss geben, was nicht stimmt. Bei einer 2 steht ein Return im TMemo (CR + LF).

Gruß Michi

#6

Hallo,

if MemoEingabe.lines.text=’’

eventuell sind ja Leerzeichen im Memo?

MemoAusgabe.Lines.Text:=’’; //Warum funktioniert das nicht

wieso nimmst du nicht MemoAusgabe.Clear?

Gruß, Niels

#7

Hallo Gidi,

TMemo.Lines ist eine TStringList.
TMemo.Lines.Text beinhaltet immer mindestens einen Zeilenumbruch. Daher ist es auch nicht leer.
Benutze TMemo.Text. Dann funktioniert es.

Manfred

#8

Problem gelößt, danke.

Das klappt allerdings nicht. Wenn ich das lines weg nehme, dann ändert sich trotzdem nicht.

Aber es ist gut zu wissen, dass das niemals ‚‘ werden kann. Danke
Lg
Gidi

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]