| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Помогите перевести прописные буквы в строковые [D6, Win95/98]

FLAW ©   (2002-10-29 23:30:00) 

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

---

Zhirnov Maxim   (2002-11-03 17:56:00) [1]

Понимаю, что это не совсем по теме, да и запоздало но всё же попробуйте:
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;

---

777   (2002-10-30 00:29:00) [2]


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


---

Grande   (2002-10-30 00:29:00) [3]

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

---

FLAW   (2002-10-30 00:22:00) [4]

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

---

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

AnsiLowerCase?

---

Наверх