Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.11.14;
Скачать: CL | DM;

Вниз

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

 
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;



Страницы: 1 вся ветка

Текущий архив: 2002.11.14;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.019 c
3-45753
Виталий Панасенко
2002-10-25 09:00
2002.11.14
Как установить в Run-time язык таблицы


8-46006
NailMan
2002-07-28 06:08
2002.11.14
Отлов скроллинга мыша (а то и двух скроллов).


3-45724
Igoryan
2002-10-24 11:44
2002.11.14
Очень надо!!!!!!!!!!!!


4-46203
Дмитрий Иванов
2002-10-05 17:04
2002.11.14
Размеры окна, зная его хендл?


7-46177
yxz
2002-07-15 21:14
2002.11.14
hook на окошко...