PROCEDURE TForm4.TestShlWAPIIsCharSpace(Sender : TObject);
VAR testchar : CHAR;
VAR testwchar : WCHAR;
VAR apiretval : BOOL;
//VAR i : DWORD;
VAR newinfoline : STRING;
BEGIN
testchar := #0;
testwchar := #0;
apiretval := FALSE;
//i := 0;
newinfoline := '';
//Unicode Version
testwchar := ' '; //Blank/space
apiretval := IsCharSpaceW(testwchar);
newinfoline := 'IsCharSpaceW called with parameter "' + testwchar + '" (#' + IntToStr(WORD(testwchar)) +
', 0x' + IntToHex(WORD(testwchar), 4) + ') returned ';
IF apiretval = TRUE THEN
newinfoline := newinfoline + ' TRUE'
ELSE
newinfoline := newinfoline + ' FALSE';
Memo1.Lines.Add(newinfoline);
apiretval := FALSE;
testwchar := 'A'; //Upper case "a"
apiretval := IsCharSpaceW(testwchar);
newinfoline := 'IsCharSpaceW called with parameter "' + testwchar + '" (#' + IntToStr(WORD(testwchar)) +
', 0x' + IntToHex(WORD(testwchar), 4) + ') returned ';
IF apiretval = TRUE THEN
newinfoline := newinfoline + ' TRUE'
ELSE
newinfoline := newinfoline + ' FALSE';
Memo1.Lines.Add(newinfoline);
apiretval := FALSE;
testwchar := #9; //Tab
apiretval := IsCharSpaceW(testwchar);
newinfoline := 'IsCharSpaceW called with parameter "' + testwchar + '" (#' + IntToStr(WORD(testwchar)) +
', 0x' + IntToHex(WORD(testwchar), 4) + ') returned ';
IF apiretval = TRUE THEN
newinfoline := newinfoline + ' TRUE'
ELSE
newinfoline := newinfoline + ' FALSE';
Memo1.Lines.Add(newinfoline);
testwchar := 'B'; ////Upper case "b"
apiretval := IsCharSpaceW(testwchar);
newinfoline := 'IsCharSpaceW called with parameter "' + testwchar + '" (#' + IntToStr(WORD(testwchar)) +
', 0x' + IntToHex(WORD(testwchar), 4) + ') returned ';
IF apiretval = TRUE THEN
newinfoline := newinfoline + ' TRUE'
ELSE
newinfoline := newinfoline + ' FALSE';
Memo1.Lines.Add(newinfoline);
apiretval := FALSE;
testwchar := #10; //Line feed
apiretval := IsCharSpaceW(testwchar);
newinfoline := 'IsCharSpaceW called with parameter "' + testwchar + '" (#' + IntToStr(WORD(testwchar)) +
', 0x' + IntToHex(WORD(testwchar), 4) + ') returned ';
IF apiretval = TRUE THEN
newinfoline := newinfoline + ' TRUE'
ELSE
newinfoline := newinfoline + ' FALSE';
Memo1.Lines.Add(newinfoline);
testwchar := '~'; //Tilde
apiretval := IsCharSpaceW(testwchar);
newinfoline := 'IsCharSpaceW called with parameter "' + testwchar + '" (#' + IntToStr(WORD(testwchar)) +
', 0x' + IntToHex(WORD(testwchar), 4) + ') returned ';
IF apiretval = TRUE THEN
newinfoline := newinfoline + ' TRUE'
ELSE
newinfoline := newinfoline + ' FALSE';
Memo1.Lines.Add(newinfoline);
apiretval := FALSE;
testwchar := #13; //Carriage return
apiretval := IsCharSpaceW(testwchar);
newinfoline := 'IsCharSpaceW called with parameter "' + testwchar + '" (#' + IntToStr(WORD(testwchar)) +
', 0x' + IntToHex(WORD(testwchar), 4) + ') returned ';
IF apiretval = TRUE THEN
newinfoline := newinfoline + ' TRUE'
ELSE
newinfoline := newinfoline + ' FALSE';
Memo1.Lines.Add(newinfoline);
testwchar := '_'; //Underscore
apiretval := IsCharSpaceW(testwchar);
newinfoline := 'IsCharSpaceW called with parameter "' + testwchar + '" (#' + IntToStr(WORD(testwchar)) +
', 0x' + IntToHex(WORD(testwchar), 4) + ') returned ';
IF apiretval = TRUE THEN
newinfoline := newinfoline + ' TRUE'
ELSE
newinfoline := newinfoline + ' FALSE';
Memo1.Lines.Add(newinfoline);
apiretval := FALSE;
//ANSI Version
testchar := ' '; //Blank/space
apiretval := IsCharSpaceA(testchar);
newinfoline := 'IsCharSpaceA called with parameter "' + testchar + '" (#' + IntToStr(BYTE(testchar)) +
', 0x' + IntToHex(WORD(testchar), 2) + ') returned ';
IF apiretval = TRUE THEN
newinfoline := newinfoline + ' TRUE'
ELSE
newinfoline := newinfoline + ' FALSE';
Memo1.Lines.Add(newinfoline);
apiretval := FALSE;
testchar := #10; //Line feed
apiretval := IsCharSpaceA(testchar);
newinfoline := 'IsCharSpaceA called with parameter "' + testchar + '" (#' + IntToStr(BYTE(testchar)) +
', 0x' + IntToHex(WORD(testchar), 2) + ') returned ';
IF apiretval = TRUE THEN
newinfoline := newinfoline + ' TRUE'
ELSE
newinfoline := newinfoline + ' FALSE';
Memo1.Lines.Add(newinfoline);
apiretval := FALSE;
testchar := '_'; //Underscore
apiretval := IsCharSpaceA(testchar);
newinfoline := 'IsCharSpaceA called with parameter "' + testchar + '" (#' + IntToStr(BYTE(testchar)) +
', 0x' + IntToHex(WORD(testchar), 2) + ') returned ';
IF apiretval = TRUE THEN
newinfoline := newinfoline + ' TRUE'
ELSE
newinfoline := newinfoline + ' FALSE';
Memo1.Lines.Add(newinfoline);
apiretval := FALSE;
Memo1.Lines.Add('');
END; |
IsCharSpaceW called with parameter " " (#32, 0x0020) returned TRUE
IsCharSpaceW called with parameter "A" (#65, 0x0041) returned FALSE
IsCharSpaceW called with parameter " " (#9, 0x0009) returned TRUE
IsCharSpaceW called with parameter "B" (#66, 0x0042) returned FALSE
IsCharSpaceW called with parameter "
" (#10, 0x000A) returned TRUE
IsCharSpaceW called with parameter "~" (#126, 0x007E) returned FALSE
IsCharSpaceW called with parameter "
" (#13, 0x000D) returned TRUE
IsCharSpaceW called with parameter "_" (#95, 0x005F) returned FALSE
IsCharSpaceA called with parameter " " (#32, 0x20) returned TRUE
IsCharSpaceA called with parameter "
" (#10, 0x0A) returned TRUE
IsCharSpaceA called with parameter "_" (#95, 0x5F) returned FALSE |