верхний регистр строки делфи

[BAMbarBIO]

Помогите пожалуйста! вот такая задача вот
Подсчитать количество слов, начинающихся с заглавной буквы.
если набирать английские буквы то с помощью функции LowerCase прога которую я написал работает, а на русские буквы не реагирует.

[Valio]

В консоле работаешь?

[BAMbarBIO]

нет, мне на делфи надо

[Valio]

В Delphi можно создать несколько видов проектов. Один из них Console Application.. и вот у него (покрайней мере в Delphi 7) были проблемки с Русским шрифтом.

Или ты делаешь на форме?

Console выглядит так: http://delphistudio.ru/i/Console-Application_1.png

[BAMbarBIO]

Я на форме делаю

[_Engine_]

ANSILowerCase спасет отца русской демократии?

[Valio]

Ну может ты покажешь тогда код и укажешь в какой версии Delphi работаешь.

[BAMbarBIO]

спасибо _Engine_! помогло, теперь все работает нормально )))

[BAMbarBIO]

а вот и код моей проги:

rocedure TForm1.BitBtn1Click(Sender: TObject);
var i,k,n,s:integer;
a,b,c:string;
begin
a:=memo1.Text;
n:=length(a);
i:=1; s:=0;
While i<=n do begin
If a[i]=' ' then begin
if a[i+1]<>ansiLowerCase(a[i+1]) then begin
s:=s+1; end;
end;
i:=i+1;
end;
memo1.Lines.Add('s= '+inttostr(s));
end;
версия делфи 7.0

[Моторокер]

Попробуй строку с пробелом в конце, должно вылететь.