Форум: "Основная";
Поиск по всему сайту: 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.71 MB
Время: 0.027 c
3-21911           Jaya!                 2001-11-11 12:58  2002.01.08  
Глюки в ВДЕ


1-22258           mashinist             2001-12-16 23:16  2002.01.08  
Уравнение третьей степени.


4-22485           Delphi5.01            2001-11-05 06:56  2002.01.08  
Как можно загрузить свой курсор в дельфи!


3-21978           Анонимщик             2001-12-04 20:25  2002.01.08  
ADO+Excel+Delphi5


4-22495           sob                   2001-11-05 09:57  2002.01.08  
основы WinAPI