| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

garage ©   (2001-10-02 12:27:00) 

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

---

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

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

---

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

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

---

ZEE   (2001-10-02 20:43:00) [3]

Наверно требуется простое преобразование строк, типа такого (хотя есть стандартные, но они кажись с кирилицей не очень дружат):

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;

---

Наверх