MessageDlg

[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.