Ungleich darstellen

[Christian18]

Hallo,

ich habe ein problem. ich möchte gerne vergleichen.
wenn Edit1.text ungleich 5 ist dann ShowMessage('weiß ich nicht');

wie gestalte ich dieses ungleich.

in C würde man es so machen !=

[Stevie]

Wie wär's mit dem Ungleich-Zeichen??? :drunken:

Delphi-Quellcode:

if Edit1.text <> '5' then ShowMessage('weiß ich nicht');

[Dannyboy]

Delphi-Quellcode:

if edit1.text <> inttostr(5) then 
 ...

Nachtrag: Verdammt, ich war zu langsam. :mrgreen:

[Matze]

man könnte es natürlich auch so machen:

Delphi-Quellcode:

if not (Edit1.Text = '5') then

[Stevie]

Zitat:

Zitat von Matze

man könnte es natürlich auch so machen:

Delphi-Quellcode:

if not (Edit1.Text = '5') then

[klugsch**ss]Das wär aber das Delphi-Gegenstück zu !(a = b) und nicht zu (a != b)[/klugsch**ss] :mrgreen: :mrgreen:

[Matze]

Klugsch***** :mrgreen:

Edit: Hast aber Recht. ;)

[Christian18]

hallo,

ich bins nochmal. ich wollte eigentlich das machen.

Delphi-Quellcode:

procedure TFPatEdit.ETitelEnter(Sender: TObject);
  var i : Integer;  // Schleifenvariable
begin
  ETitel.Items.Clear;
  DM.TTitel.First;
  for i:=1 to DM.TTitel.RecordCount do
    begin
      ETitel.AddItem(DM.TTitelTitel.AsString, ETitel);
      DM.TTitel.Next;
    end;
end;

procedure TFPatEdit.ETitelExit(Sender: TObject);
begin
  if
    ETitel.Text<>DM.TTitelTitel.AsString
  then
    begin
      if
        MessageDlg('Soll der Titel in der Datenbank hinzugefügt werden?',mtConfirmation,[mbYES,mbNO],0)=mrYes
      then
        begin
          DM.TTitel.Append;
          DM.TTitelTitel.AsString:=ETitel.Text;
          DM.TTitel.Post;
        end;
    end;
end;

funktioniert aber irgendwie nicht. achso DM ist ein Datenmodul. da liegen meine ganzen tables

[Christian18]

Habt ihr vieleicht eine idee warum das nicht funktioniert

[Ultimator]

:warn: Innerhalb von 24 Stunden zu pushen ist nicht erlaubt ;-)

[Christian18]

das war ja auch kein pushen