Все ли эти слова написаны с большой буквы

[dip]

задано 10 русских имен.проверить все ли эти имена написаны с большой буквы..если нет.то исправить

[BARNEY]

 
if copy(edit1.text,1,1) in ['А'..'Я'] then 
.....
else
.....
end;

поднять в верхний регистр (если с маленькой) сами сможете?

[dip]

а можно вопрос?а если не входит от А до Я..то что делать?

[raxp]

выводить, не русский ты браток!

[ikot]

Приведенный выше код работает только для первого слова в Edit и то только в том случае, если нет впереди слов пробелов.
Для решения задачи важно куда и как заносятся ваши "фамилии"...

[dip]

(edit1.text,1,1)а что обозначают (1,1)?

[ikot]

Сообщение от dip

(edit1.text,1,1)а что обозначают (1,1)?

Думаю вам очень поможет следующая статья:
http://delphi-manual.ru/work-with-strings.php

[dip]

procedure TForm1.PrvrkBttnClick(Sender: TObject);
begin
if (NameEdit.Text,1,1) in ['А'..'Я'] then
подчеркивает ,1 и 'А'
??????????

а как пользоваться AnsiUpperCase?можете написать пример перевода символа в верхний регистр?

[SERG1980]

Сообщение от BARNEY

 
if copy(edit1.text,1,1) in ['А'..'Я'] then 
.....
else
.....
end;

поднять в верхний регистр (если с маленькой) сами сможете?

можно без копирования попробовать

if edit1.text[1] in...

[dip]

type
  TForm1 = class(TForm)
    PrvrkBttn: TButton;
    NameEdit: TEdit;
    NameLabel: TLabel;
    procedure PrvrkBttnClick(Sender: TObject);
    Function UpperCase(const s:string):string;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation




{$R *.dfm}

procedure TForm1.PrvrkBttnClick(Sender: TObject);
var
  s1,s2:string;
  c:char;
  i:integer;
begin
  while NameEdit.Text='' do
  begin
    s1:=s2[i];
    i:=0;
    i:=i+1;
  end;
  if s1[i] in ['А'..'Я'] then
  begin
    while s1<>'' do
    begin
      s1:=s2[i];
      i:=i+1;
    end;
  end
  else
  s1:=UpperCase(s1[i]);
  while s1<>'' do
  begin
    s1:=s2[i];
    i:=i+1;
  end;
  for i := 0 to Length(s1) do
    c:=s1[i];
  if not (c in(['А'..'Я'])) then
  ShowMessage('');
  if not (c in(['а'..'я'])) then
  ShowMessage('');
end;
end.

Почему ошибка здесь
Function UpperCase(const s:string):string;
???и вобще подскажите правильно я делаю или нет?