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




Вниз

Доброго времени суток 


Вадим   (2001-12-14 19:53) [9]

case? Приплыли, всю ночь гребли, а лодку отвязать забыли...

function IsRus(s: string): boolean;
var
i: integer;
const
RusChars = ["А".."Я", "а".."я"];
begin
Result := False;
for i := 1 to Length(s) do
if s[i] in RusChars then
begin
Result := True;
Break;
end;




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




Наверх






Память: 0.73 MB
Время: 0.028 c
3-21903           Victor Tsay           2001-11-29 10:02  2002.01.08  
Репликация


14-22361          Nikolay               2001-11-08 00:17  2002.01.08  
Да...............................


6-22267           wHammer               2001-09-28 15:00  2002.01.08  
Было-бы очень удобно...


14-22416          Nemesis               2001-11-14 11:47  2002.01.08  
Нужна программа такого типа


6-22307           Leviathan             2001-10-12 12:54  2002.01.08  
NMFTP - отстой!!!!