Форум: "Начинающим";
Текущий архив: 2007.11.04;
Скачать: [xml.tar.bz2];
Вниз
Регистр символов Найти похожие ветки
← →
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 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.11.04;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.043 c
