This is some test code:
Code: Select all
program Test_StrCmp;
var I: integer;
begin
I := StrCmp('1234567890', '12345678901'); // StrCmp returns zero <---- error here (second string larger)
I := StrCmp('12345678901', '1234567890'); // StrCmp returns 49 (ok)
I := StrCmp('1234567891', '1234567890'); // StrCmp returns 1 (ok)
I := StrCmp('1234567890', '1234567891'); // StrCmp returns -1 (ok)
end.