>= größer kleiner bin ich zu dumm

[Wheelie]

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

[Oxmyx]

Zitat von Wheelie:

Funktioniert problemlos

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 von Oxmyx:

Zitat von Wheelie:

Funktioniert problemlos

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 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 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 von Oxmyx:

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