>= größer kleiner bin ich zu dumm

[tester008]

ich bin wohl zu dumm irgendwie bekomm ich eine kleine funtion nicht hin

hier ist der code:

Delphi-Quellcode:

if label4.Caption <= label2.caption
then
showmessage ('Das Limit ist leider Erreicht.');

was ich mit dieser funktion anstellen will ist ein kleiner vergleich

wenn label4(hat z.b. den wert 100) kleiner oder gleich label2(hat z.b den wert 999)
dann
zeige nachricht das limit ist erreicht


irgendwie bekomm ich aber die meldung das limit ist erreicht immer

wie kann das sein

[Keldorn]

So vergleichst du den inhalt als String und nicht wie gewünscht als Zahl. Strtoint hilft Dir weiter.

Mfg Frank

[Luckie]

Du vergleichst Zeichenketten. Ist jetzt die Frage, ob das sinnvoll ist. Ich würde das vorher in Integers umwandeln und dann vergleichen.

[Dax]

Du müsstest die Caption erst mit StrToInt in Integer-Werte umwandeln, bevor du sie vergleichen kannst, denn Stirng-Vergleiche sind in Delphi nicht möglich.

[Keldorn]

Zitat:

Zitat von Dax

denn Stirng-Vergleiche sind in Delphi nicht möglich.

Warum sollen stringvergleiche nicht möglich sein?

[tester008]

thx für die schnelle antwort jetzt funtzt auch alles

[Pr0g]

Zitat:

Zitat von Dax

[...]denn Stirng-Vergleiche sind in Delphi nicht möglich.

Das ist wohl ein bisschen zu spezifisch ausgedrückt, oder? Denn wenn du

Delphi-Quellcode:

if EdtName.Text = 'Mustermann' then...

machst vergleichst du ja auch einen String. ;)


MfG Pr0g

[Oxmyx]

So geht's:

Delphi-Quellcode:

if StrToInt(Label4.Caption) <= StrToInt(Label2.Caption) then begin
  //...
end;

Wenn du das ganze ohne StrToInt versuchst, vergleichst du wahrscheinlich, ob der eine Zeiger kleiner ist als der andere, und das kann theoretisch immer so sein.

[bigg]

Ihr seid einfach zu schnell für mich heute
Mit val() kannst du übrigens auch nach Integer konvertieren....

[Oxmyx]

Zitat:

Zitat von Pr0g

Zitat:

Zitat von Dax

[...]denn Stirng-Vergleiche sind in Delphi nicht möglich.

Das ist wohl ein bisschen zu spezifisch ausgedrückt, oder? Denn wenn du

Delphi-Quellcode:

if EdtName.Text = 'Mustermann' then...

machst vergleichst du ja auch einen String. ;)


MfG Pr0g

Das geht aber auch nur, weil der Delphi-Compiler da automatisch eine entsprechende Funktion aufruft. Folgendes funktioniert nämlich nicht:

Delphi-Quellcode:

var
  str1, str2: PChar;
begin
  str1 := '1234';
  str2 := '1234';
  if str1 = str2 then begin
    // dies wird niemals ausgeführt!
  end;
end;

In C/C++ würde das auch nicht funktionieren. Auf der sicheren Seite ist man mit strcmp bzw. CompareStr.

[Wheelie]

Zitat:

Zitat von Oxmyx

Das geht aber auch nur, weil der Delphi-Compiler da automatisch eine entsprechende Funktion aufruft. Folgendes funktioniert nämlich nicht:

Delphi-Quellcode:

var
  str1, str2: PChar;
begin
  str1 := '1234';
  str2 := '1234';
  if str1 = str2 then begin
    // dies wird niemals ausgeführt!
  end;
end;

In C/C++ würde das auch nicht funktionieren. Auf der sicheren Seite ist man mit strcmp bzw. CompareStr.

Funktioniert problemlos :zwinker:

[Oxmyx]

Zitat:

Zitat von Wheelie

Funktioniert problemlos :zwinker:

Ok, da denkt der Delphi-Compiler noch mit. Aber das hier funktioniert bei mir nicht mehr:

Delphi-Quellcode:

var
  str0, str1, str2: PChar;
begin
  str0 := '1234';
  GetMem(str1, 4); ZeroMemory(str1, 4);
  GetMem(str2, 4); ZeroMemory(str2, 4);
  Move(str0^, str1^, 4);
  Move(str0^, str2^, 4);
  if str1 = str2 then begin
    // wird nicht ausgeführt
  end;
end;

In beiden Strings steht exakt das selbe drin, trotzdem liefert der Vergleich ein False.

[Wheelie]

Zitat:

Zitat von Oxmyx

Zitat:

Zitat von Wheelie

Funktioniert problemlos :zwinker:

Ok, da denkt der Delphi-Compiler noch mit. Aber das hier funktioniert bei mir nicht mehr:

Delphi-Quellcode:

var
  str0, str1, str2: PChar;
begin
  str0 := '1234';
  GetMem(str1, 4); ZeroMemory(str1, 4);
  GetMem(str2, 4); ZeroMemory(str2, 4);
  Move(str0^, str1^, 4);
  Move(str0^, str2^, 4);
  if str1 = str2 then begin
    // wird nicht ausgeführt
  end;
end;

In beiden Strings steht exakt das selbe drin, trotzdem liefert der Vergleich ein False.

wobei hier wiederum in beiden strings nicht dasselbe "drinsteht".

[Oxmyx]

Zitat:

Zitat von Wheelie

wobei hier wiederum in beiden strings nicht dasselbe "drinsteht".

Doch. Da stehen zu 100% die selben Bytes drin.

[scp]

Da fehlt der Platz für die Nullterminierung, die Variablen brauchen 5 Byte, somit sind sie ohne Nullterminierung nicht als String erkannbar und werden auch von der WinApi usw. nicht akzeptiert.

[Oxmyx]

Zitat:

Zitat von scp

Da fehlt der Platz für die Nullterminierung, die Variablen brauchen 5 Byte, somit sind sie ohne Nullterminierung nicht als String erkannbar und werden auch von der WinApi usw. nicht akzeptiert.

Ok, ein Detailfehler. Dennoch: Auch wenn man 5 Bytes reserviert und eine #0 anhängt, liefert ein Vergleich immer noch False zurück.

[Sprint]

Zitat:

Zitat von Oxmyx

Delphi-Quellcode:

if str1 = str2 then begin

In beiden Beispielen von dir, überprüfst du die Zeiger und nicht den Inhalt des Speichers.

[scp]

Stimmt auch wieder.
It's (compiler) magic! - das es bei zugewiesenen PChar-Strings klappt, wahrscheinlich erkennt er das an der Längen/Größenangabe, die nur bei Pascal Strings "links vom Zeiger" abgelegt wird.

[Oxmyx]

Zitat:

Zitat von Sprint

In beiden Beispielen von dir, überprüfst du die Zeiger und nicht den Inhalt des Speichers.

Genau das wollte ich doch zeigen. Nämlich, dass man mal auf die Schnauze fallen kann, wenn einem nicht bewusst ist, das Delphi hier trickst. Deshalb sagte ich ja, auf der sicheren Seite ist man auf jeden Fall mit strcmp bzw. CompareStr. Damit sind solche Fehler ausgeschlossen.

[Sprint]

Zitat:

Zitat von Oxmyx

[...]dass man mal auf die Schnauze fallen kann, wenn einem nicht bewusst ist, das Delphi hier trickst.

Delphi trickst da nicht. PChar ist nun mal ein Pointer und kein String. Wenn du str1^ mit str2^ vergleichst, dann macht Delphi Compiler Magic und vergleicht zwei Strings bzw. MemCmp.

[Oxmyx]

Zitat:

Zitat von Sprint

Delphi trickst da nicht. PChar ist nun mal ein Pointer und kein String. Wenn du str1^ mit str2^ vergleichst, dann macht Delphi Compiler Magic und vergleicht zwei Strings bzw. MemCmp.

Falsch. In meinem Beispiel zeigen str1 und str2 auf einen Speicherbereich, der '1234' enthält. Ein Vergleich:

Delphi-Quellcode:

  if str1 = str2

wird fehlschlagen.

Dein Vorschlag:

Delphi-Quellcode:

  if str1^ = str2^

wird nur scheinbar funktionieren. Tatsächlich liefert dieser Vergleich True zurück, aber nicht etwa weil Delphi die beiden Strings vergleicht. Sondern weil str1^ und str2^ eben keine Strings, sondern Chars sind (in dem Fall mit dem Wert '1'). Und Chars kann man wunderbar vergleichen.

Es bleibt dabei: Beim Vergleich von Strings trickst der Delphi-Compiler, jedoch nur, wenn der String bereits zur Kompilierzeit erstellt wird. In anderen Fällen wird der Vergleich fehlschlagen.

In C/C++ wird so ein Vergleich übrigens niemals Erfolg haben, auch wenn man einen String bereits im Code zuweist.


Nachtrag:
Ein "String" ist nichts anderes als ein Zeiger auf einen reservierten Speicherbereich, in dem Zeichen stehen. Deshalb ist sizeof(beliebiger String) ja auch 4, also die Größe eines Zeigers.

[Sprint]

Zitat:

Zitat von Oxmyx

Tatsächlich liefert dieser Vergleich True zurück, aber nicht etwa weil Delphi die beiden Strings vergleicht. Sondern weil str1^ und str2^ eben keine Strings, sondern Chars sind (in dem Fall mit dem Wert '1').

Da gebe ich dir recht. Tatsächlich wird nur der erste Zeichen überprüft.

Das ändert aber nichts daran, dass in deinem Beispiel bei str1 = str1 nur die Adresse überprüft wird. Was C++ macht, ist mir eigentlich völlig egal.
Bei einem vergleich von zwei Strings, wird intern LStrCmp aufgerufen.

[IngoD7]

Ihr seid beim Versuch, eine unkorrekte Aussage zu erklären/begründen etwas abgedriftet.

Die Aussage, dass Strings nicht verglichen werden können, ist schlicht falsch. Jedenfalls wenn man vom Typ String spricht. Eine Label-Caption ist vom Typ TCaption und die wiederum von Typ String. Somit werden auch niemals zwei Zeiger verglichen , wenn man die Captions zweier Labels vergleicht (das war die 2. Falschaussage), sondern immer der in ihnen enthaltene Text.

Daran ändern auch Erklärungen des Verhaltens von völlig anderen Typen gar nichts. :twisted: