Delphi.Задача в форме.

[ant-igorevich]

Я думал над этой задачей,но не смог решить.Помогите пожалуйста кто может!

Написать функцию, которая будет проверять, является ли строка правильным идентификатором, удовлетворяющим требованиям Паскаля. Напомним, вкратце правила построения имен. Всякое имя может содержать от 1 до 127 литер; первой литерой должна быть буква (строчная или прописная); любая другая литера (начиная со второй) может быть буквой, цифрой (от 0 до 9) или знаком подчеркивания. Если обнаружена ошибка, необходимо выдать сообщение, квалифицирующее ее.

[UnChanter]

function pr(s:string):boolean;
var
 i:integer;
 b:boolean;
begin
 b:=true;
 if not (s[1] in ['a'..'z','A'..'Z','а'..'я','А'..'Я','0'..'9']) then  b :=false;
 if not b then
  begin
   b:=false;
   Form1.Memo1.Lines.Add('ошибка в символе №1');
  end else
   for i:=2 to length(s) do
    if not (s[i] in ['a'..'z','A'..'Z','а'..'я','А'..'Я','0'..'9','_']) then
      begin
        b:=false;
        Form1.Memo1.Lines.Add('ошибка в символе №'+IntToStr(i));
      end;
 result:=b;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 f:boolean;
begin
memo1.lines.clear;
 f:= pr(Edit1.text);
 if f=true then Memo1.Lines.Add('строка является правильным идентификатором') 
 else Memo1.lines.add('строка не является правильным идентификатором'); 
 
end;

[ant-igorevich]

Этот код надо привязать к кнопке?а как подключить ещё и Edit,чтобы с него программа читала?(можно подробнее,я просто плохо шарю...)

[UnChanter]

Сообщение от ant-igorevich

Этот код надо привязать к кнопке?а как подключить ещё и Edit,чтобы с него программа читала?(можно подробнее,я просто плохо шарю...)

нет, этот код не надо привязывать к кнопке,а просто скопируйте его в поле кода.
а по нажатию на кнопки:

procedure TForm1.Button1Click(Sender: TObject);
var
 f:boolean;
begin
memo1.lines.clear;
 f:= pr(Edit1.text);
 if f=true then Memo1.Lines.Add('строка является правильным идентификатором') 
 else Memo1.lines.add('строка не является правильным идентификатором'); 
 
end;

PS: просмотрел что код для delphi, немножко поменял вывод ошибок. Теперь если есть ошибка в каком-нибудь символе, то результат выводится в компонент Memo1

[ant-igorevich]

Что-то не компилируется...может я в чём-то ошибся...
У вас получилось скомпилировать?

P.S:Пишет ошибку в строке функции Memo1.Lines.Add('ошибка в символе №1');
не могу разобраться,поставил ";" после false,но всё равно не получается...

[ant-igorevich]

Спасибо большое за помощ!!!)