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

[Ultimator]

Doch, schon.
Mit pushen ist das wieder herauf holen bzw. das Aufmerksam machen des/auf den eigenen Thread gemeint.

[Christian18]

achso das wollte ich aber eigentlich nicht. sorry

[Chewie]

Und was funktioniert nicht? Gibt es einen Compilierfehler? Wenn ja, welchen? Oder macht es nicht das, was es soll? Wenn ja, was macht es?

Du musst schon ein paar mehr Infos geben, wenn wir dir helfen sollen.

[Muetze1]

Moin!

Funktioniert es vielleicht deshalb nicht, weil die Gross- und Kleinschreibung nicht 100%ig übereinstimmt bzw. eins noch ein Leerzeichen mehr mit dranne hat?

MfG
Muetze1

[glkgereon]

ohne den qt genau angesehen zu haben: das sollte in delphi egal sein....
groß/kleinschreibung wird soweit ich weiss ignoriert

[Muetze1]

Moin!

Zitat:

Zitat von glkbkk

ohne den qt genau angesehen zu haben: das sollte in delphi egal sein....
groß/kleinschreibung wird soweit ich weiss ignoriert

Hä? Seit wann? Nun bin ich wirklich aber baff ...

Wenn ich einfach mit = oder <> zwei Strings vergleiche wird auf 100%ige Gleichheit geprüft bzw. es schlägt fehl wenn nur ein Byte anders ist - und da er einen Speicherbereich vergleicht beachtet er auch Gross- und Kleinschreibung, da es nunmal unterschiedlcihe ASCII Codes sind...

MfG
Muetze1

[Aenogym]

hi muetz1,

das hat glkbkk falsch vertsanden. du redest vom string, bei dem auf die groß-klein-schriebung geachtet wird. er dachte an den delphi-quelltext ;)

aber eine lösung fürs problem habe ich auch nicht...

Aenogym

[himitsu]

Also da es eh nur um 'ne Zahl geht, gibt es wohl keine Probleme mit der Groß-/Kleinschreibung ;)

geht's so?

Delphi-Quellcode:

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

oder

if StrToIntDef(Edit1.Text, 0) <> 5 then ShowMessage('weiß ich nicht');

Wenn nicht, dann stimmt irgendwas anderes nicht, weil der Vergleich richtig ist.

[supermuckl]

unter kylix sind die "uses" aber case sensitive weil das aufs dateisystem zugreift und mit der gleichen großklein schreibung diese sucht.. gibt bestimmt noch mehr case sensitive sachen @ kylix

also nur mal so am rande.. halbofftopic

[himitsu]

Na gut, das Linux solcheSachen wie's Dateisystem anders handhabt ist schon wirtzig, vorallem wenn man durch seine super Programmiererkünste plötzlich Daten.txt und daten.txt im selben Verzeichnis hat -.-