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

Регистр символов   Найти похожие ветки 

← →
alex810   (2007-10-11 18:51) [0]

Здраствуйте. Подскажите пожалуйста есть ли в Делфи стандартная функция для перевода слов состоящего из символов нижнего регистра в верхний и наоборот.

---

← →
Плохиш ©   (2007-10-11 19:05) [1]

Начни поиск в справке с букв upper

---

← →
alex810   (2007-10-11 19:13) [2]

У меня Delphi2007 без справки

---

← →
alex810   (2007-10-11 19:18) [3]

Вот нарыл но ничего не пашет выдает в любом из этих случаев то что я передаю в виде значения.

program StringDemo07;
const
 SourceString="Hello world";
var
 TargetString:String;
begin
 // присвоим TargetString значение SourceString переведенное в нижний регистр
 TargetString:=LowerCase(SourceString);
 // напечатаем содержимое TargetString
 WriteLn(TargetString);
 // напечатаем значение SourceString переведенное в верхний регистр
 WriteLn(UpperCase(SourceString));
 // Возведем первый символ TargetString в верхний регистр
 TargetString[1]:=UpCase(TargetString[1]);
 // возведем последний символ TargetString в верхний регистр
 TargetString[Length(TargetString)]:=UpCase(TargetString[Length(TargetString)]);
 // напечатаем содержимое TargetString
 WriteLn(TargetString);
 // понизим регистр первого символа TargetString
 TargetString[1]:=LoCase(TargetString[1]);
 // напечатаем содержимое TargetString
 WriteLn(TargetString);
 // Ждем нажатия Enter
 ReadLn;
end.



---

← →
Desdechado ©   (2007-10-11 19:32) [4]

AnsiUpperCase

---

← →
alex810   (2007-10-11 19:39) [5]

Спасибо а для перевода в нижний AnsiLowerCase ?

---

← →
alex810   (2007-10-11 19:39) [6]

Спасибо а для перевода в нижний AnsiLowerCase ?

---

← →
alex810   (2007-10-11 19:40) [7]

Извените за глупый вопрос сам попробовал. Получилось. Еще раз спасибо.

---

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

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



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