Форум: "Сети";
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];
ВнизПодскажите алгоритм замены больших букв на маленькие Найти похожие ветки
← →
ZEE (2001-10-02 20:43) [1]Наверно требуется простое преобразование строк, типа такого (хотя есть стандартные, но они кажись с кирилицей не очень дружат):
function DownCh(ch:char):char;
begin
case ch of
"A".."Z":downch:=chr(ord("a")+ord(ch)-ord("A"));
"А".."Я":downch:=chr(ord("а")+ord(ch)-ord("А"));
else
downch:=ch
end;
end;
function StrDown(str:string):string;
var i:integer;s:string;
begin
s:="";
for i:=1 to length(str) do
s:=s+DownCh(str[k]);
result:=s;
end;
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.022 c