Версия для печати темы

Автор: -Анастасия- 26.11.2006 23:08

Плиииз, помогите!!!!!!
Как заменить ПРОПИСНЫЕ буквы на строчные?????????????

Автор: volvo 26.11.2006 23:10

Function StrLower(s: String):String;
  Var i: Byte;
  Begin
    For i := 1 To Ord(s[0]) Do
      Case s[i] Of
        'A' .. 'Z': s[i] := Chr(Ord(s[i])+$20);
        #128 .. #143: s[i] := Chr(Ord(s[i])+$20);
        #144 .. #159: s[i] := Chr(Ord(s[i])+$50)
      End;
    StrLower := s
  End;