Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Вниз

Подскажите алгоритм замены больших букв на маленькие 


garage   (2001-10-02 12:27) [0]

Подскажите алгоритм замены больших букв на маленькие в названии файла и внутри html-файла(ссылки)



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;



garage   (2001-10-04 15:23) [2]

Спасибо, выручил !!!



Venom   (2001-10-04 16:28) [3]

А можно еще как -то типа: sourcetext.text:=AnsiReplaceStr(sourcetext.text,"a","a"); - любые "а" независимо от регистра будут заменяться.




Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.025 c
3-21919           VS                    2001-12-04 14:07  2002.01.08  
Чтение и исправление данных из базы формата DBF Visual FoxPro 6.0


6-22310           SERGX                 2001-10-13 23:48  2002.01.08  
ХЕЛП!! Как создать прогу для отсылки файла или текста по почте


1-22183           XeN                   2001-12-21 11:21  2002.01.08  
DelphiX_play


1-22158           Praco                 2001-12-20 16:29  2002.01.08  
TCustomGrid и все его потомки...


1-22036           Smuggler              2001-12-18 14:01  2002.01.08  
Текстовый редактор