Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c