Помогите перевести прописные буквы в строковые

← →
FLAW (2002-10-29 23:30) [0]

Здравствуйте, Мастера!
Помогите, пожалуйста, перевести в словах прописные буквы в строковые, например: "Слово" в "слово", "БукВа" в "буква".
Заранее всем благодарен за помощь.

← →
Юрий Зотов (2002-10-30 00:04) [1]

AnsiLowerCase?

← →
FLAW (2002-10-30 00:22) [2]

А подробней немного можно?

← →
777 (2002-10-30 00:29) [3]

procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text:=AnsiLowerCase(Edit2.Text); end;

← →
Grande (2002-10-30 00:29) [4]

Ну ты даёшь!
function AnsiLowerCase(const S: string): string;

← →
Zhirnov Maxim (2002-11-03 17:56) [5]

Понимаю, что это не совсем по теме, да и запоздало но всё же попробуйте:
Function My_InvertString( Line: String ) : String;
var
i: Integer;
c: Char;
begin
Result := "";
For i := 1 to Length( Line ) do
begin
c := Line[ i ];
If ( c >= "a" ) and ( c <= "z" ) then
c := chr( ord( "A" ) + ord( c ) - ord( "a" ) )
Else
If ( c >= "A" ) and ( c <= "Z" ) then
c := chr( ord( "a" ) + ord( c ) - ord( "A" ) );

If ( c >= "а" ) and ( c <= "п" ) then
c := chr( ord( "А" ) + ord( c ) - ord( "а" ) )
Else
If ( c >= "р" ) and ( c <= "я" ) then
c := chr( ord( "Р" ) + ord( c ) - ord( "р" ) )
Else
If ( c >= "А" ) and ( c <= "Я" ) then
c := chr( ord( "а" ) + ord( c ) - ord( "А" ) );
Result := Result + c;
end;
end;

Помогите перевести прописные буквы в строковые Найти похожие ветки