Forum: Programmieren allgemein
by dfried,
7. Okt 2005
Ich kann mich nur wiederholen, der folgende Code liefert bei mir eindeutig, dass die Strings nicht gleich sind!
begin
ed1.Text := 'irgendwasaaa';
if CompareStr(ed1.Text, 'irgendwas') = 0 then
ShowMessage('Strings sind gleich')
else
ShowMessage('Strings sind NICHT gleich');
end;
Forum: Programmieren allgemein
by dfried,
6. Okt 2005
Ich glaub das ist nich das was er wollte, weil da die Groß-/Kleinschreibung NICHT berücksichtigt wird (tolower)!
edit: Shit RavenIV war schneller :)
Forum: Programmieren allgemein
by dfried,
6. Okt 2005
Hab mal ein bisserl getestet, so wie's aussieht hört der Vergleich nach dem ersten unterschiedlichen Zeichen auf und gibt die Differenz der beiden Ordinalwerte der Zeichen zurück.
Das würde das Ergebnis -32 erklären T = Ord(84) / t = Ord(116).
Wenn beide Strings bis auf die Länge identisch sind (also z.B. Text1 = 'test', Test2 = 'testaaaa') dann kommt als Ergebnis -4 das würde bedeuten, der...
Forum: Programmieren allgemein
by dfried,
6. Okt 2005
Also bei mir kommt bei folgendem Code als ergebnis -32 raus (D7 Enterprise):
Ed1.text := 'Test';
Ed2.text := 'testaaaa';
ShowMessage(IntToStr(CompareStr(ed1.Text, ed2.Text)));