MessageDlg

[Maexxx]

Moin!
Ich verwende folgenden Quelltext, um einen String aus einer EDIT-Komponente in eine MessageDlg anzuzeigen:

Delphi-Quellcode:

MessageDlg('Die Nummer: ' + EDIT1.text + ' wurde nicht gefunden!',
        mtInformation,[mbOk],0);

Wieso zeigt die Meldung aber den String EDIT1.text nicht an? :?:

[Edit=Sakure]Delphi-Tags gesetzt. MfG.[/Edit]

[sakura]

Bist Du Dir sicher, daß in Edit1 etwas steht? Sage jetzt nicht ja, teste :!:

Delphi-Quellcode:

// diese Zeile direkt davor einfügen.
ShowMessage(EDIT1.text);

...:cat:...

[Maexxx]

Jaja das hab ich schon vorher in ner Anweisung getestet. Habs trotzdem mal reingeschrieben, auch Showmessage is leer. Ich geb mal die ganze Procedure an:

Delphi-Quellcode:

Procedure TsucheForm.suchenBtn1Click(Sender: TObject);
  Var Abfrage:Boolean;
      i:word;
    Begin
      If NummerEdit.Text='' Then
        Showmessage('Bitte eine Nummer eingeben!')
      Else
        Begin
          Reset(Datei_f);
          For i:=1 To FileSize(Datei_f) Do
            Read(Datei_f,Liste[i]);
          Abfrage:=False;
          For i:=1 To FileSize(Datei_f) Do
            Begin
              If Liste[i].tel=NummerEdit.Text Then
                Begin
                  MessageDlg('Name: '+Liste[i].name + 'Nummer: ' + Liste[i].tel,
                  mtInformation, [mbOk], 0);
                  Abfrage:=true;
                End;
            end;
          If Abfrage=False Then
            Begin
              [color=#ff0019]{ShowMessage(nummer.Text);}[/color]
              MessageDlg('Die Nummer: ' + NummerEdit.Text + ' wurde nicht gefunden!',
              mtInformation,[mbOk],0);
            End;
        End;
    End;

Das Edit1 jetzt NummerEdit is sieht ja jeder. Aber wieso zeigt es mir den Inhalt nich an, wenn nichts drin is kommt ja auch ne Meldung.

[CepheidenX]

Also mit dem Quelltext den du da gepostet hast funktioniert das einwandfrei. Ich wüste auch nicht warum das nicht so sein sollte.

Allerdings ist damit noch nicht sichergestellt das in NummerEdit.Text auch wirklich eine Zahl steht. Aber der String wird angezeigt

[sakura]

Teste mal folgendes

Delphi-Quellcode:

// anstatt
If NummerEdit.Text='' Then 

// schreibe mal
If Trim(NummerEdit.Text)='' Then

...:cat:...

[Maexxx]

Also ich weiß jetzt woran es lag:

Ich hab nen LabeledEdit verwendet. Jetzt hab ich nen normales Edit genommen und es ging. War sowas schon mal bekannt, dass es bei LabeledEdit solche "Kuriositäten" gibt? Normalerweise müsste ein LabeledEdit doch ebenso funktionieren oder irre ich da? :nerd:

[Alexander]

Also bei mir D6 Pe funktioniert das hier einwandfrei:

Delphi-Quellcode:

MessageDlg('Die Nummer: ' + EDIT1.text + ' wurde nicht gefunden!', 
        mtInformation,[mbOk],0);

[Maexxx]

Zitat:

Zitat von alexander

Also bei mir D6 Pe funktioniert das hier einwandfrei:

Delphi-Quellcode:

MessageDlg('Die Nummer: ' + EDIT1.text + ' wurde nicht gefunden!', 
        mtInformation,[mbOk],0);

Hast du nen normales Edit oder nen LabeledEdit verwendet?

[Alexander]

beides