Question

Napisać funkcje w pascalu ktora zamienia duże litery na małe i małe na duże

Answer 1

Jest pewna zależność pomiędzy ASCII :)

 

Function strlower(C: Char): Char;
Begin
  if (C in ['a'..'z']) Then
   strlower := char(ord(C)-32) Else
   strlower := C;
End;

Function strlower(Str: PChar): PChar;
Var I: Integer;
Begin
  For I := 0 To strlen(Str) Do
   Str[I] := strlower(Str[I]);
  strlower := Str;
End; 

(strlen zwraca długośc ciągu PChar włącznie ze znakiem #0).

 

Oczywiście strlower to funkcje overloadowane; w tym wypadku operują one na PChar (PChar = ^Char).

 

Wersja na String:

strlower := ''; 

For I := 1 To Length(Str) Do

 strlower := strlower+strlower(Str[I]);