Простейший анализатор текста

[Marsel737]

Всем доброго времени суток.

Я пишу простейший анализатор текста. Текст вводится в Memo и нужно этот текст проверять. Например есть условие, что текст должен состоять только из символов 'a', 'b', 'c' и 'd' и второе условие что первые два символа этого слова должны быть 'a' и 'c', т.е. слова должны быть такого вида: acccbcbab, acc, acbd, acddd и т.д.

Чтобы это реализовать, я решил весь текст перевести в массив символов, а потом посимвольно пройтись по тексту, для этого сделал так:

var
  frmMain: TfrmMain;
  ChrAr: array of char;
  Num: integer;

implementation

{$R *.dfm}

{ TfrmMain }

// Заполняю массив буквами из Мемо
procedure TfrmMain.ArrayInitialization(Sender: TObject);
var
  i, j: integer;
begin
  Num := 1;
  for j := 0 to memText.Lines.Count - 1 do
  begin
    for i := 1 to length(memText.Lines[j])  do
    begin
      ChrAr[Num] := Copy(memText.Lines[j], i, 1)[1];
      Num := Num + 1;
    end;
  end;
end;

//Проверка текста
procedure TfrmMain.ArrayScan(Sender: TObject);
var
  i: integer;
begin
  if ChrAr[1] <> 'a' then
  begin
    lblLog.Caption := 'Ошибка: первый символ второго слова должен быть "a"';
    Exit;
  end;
  if ChrAr[2] <> 'c' then
  begin
    lblLog.Caption := 'Ошибка: второй символ второго слова должен быть "c"';
    Exit;
  end;
  if Length(ChrAr) > 2 then
  begin
    for i := 3 to Length(ChrAr) - 1 do
    begin
      if Not (ChrAr[i] in ['a', 'b', 'c', 'd']) then
      begin
        lblLog.Caption := 'Ошибка: встречен недопустимый символ ' +
                          ChrAr[i];
        Exit;
      end;
    end;
  end;
end;

procedure TfrmMain.btnScanClick(Sender: TObject);
begin
  ArrayInitialization(Sender);
  ArrayScan(Sender);
end;

Компилируется нормально, но потом вылазит ошибка, когда на кнопку жмёш: Access violation at adress ... in module... Write of adress ...

Почему вылазаит ошибка понять не могу. И ещё есть вопрос, у меня проверяется первый символ текста, а как сделать чтобы неограниченное множество пробелов перед словом не учитывались. Т.е. если перд словом стоят пробелы.

[Google2010]

чтобы неограниченное множество пробелов перед словом не учитывались

процедура Trim

[Alex Cones]

Вы пошли не по очень хорошему пути. Разбивайте текст не на символы, а на слова.

S // Здесь у нас текст.
S2:=S;
SetLegth(Arr,0);//массивчик из ShortString;
While S2<>'' do
 Begin
  While S2[1] = ' ' do Delete(S2,1,1);
  If S2<>'' do
   Begin 
    SetLegth(Arr,Length(Arr)+1);
    Arr[Length(Arr) - 1]:=Copy(S2,1,Pos(' ',S2);
   End;
 End;

Массив заполнили, дальше уже работайте со словами. Можно в цикле, так как это массив.

[p51x]

У вас динамический массив ChrAr не создан. И обращаетесь вы не известно куда, поэтому и вылазит ошибка.

[Marsel737]

Alex Cones, в тексте будет всего два слова, поэтому наверна бессмысленно делить текст на слова.

p51x, ну так и показали бы как нада, а то не очень понятно

Google2010, спасибо большое вам за подсказку

[Alex Cones]

Alex Cones, в тексте будет всего два слова, поэтому наверна бессмысленно делить текст на слова.

1) А какая разница?
2) А вдруг захочется 500?
3) Ничего не надо придумывать - код выше.
4) Удобно, оптимально.

Убедил?

[Marsel737]

Alex Cones, убедили, щас буду разбираться с вашим кодом, спс

Оппа, опять ошибка, Out of memory!!!

[Alex Cones]

Оппа, опять ошибка, Out of memory!!!

Код в студию.

[Marsel737]

procedure TForm1.Butto1Click(Sender: TObject);
var
  s, s2: string;
  Arr: array of ShortString;
begin
  S := memText.Text;
  S2:=S;
  SetLength(Arr,0);//массивчик из ShortString;
  While S2<>'' do
  Begin
    While S2[1] = ' ' do Delete(S2,1,1);
    If S2<>'' then
    Begin
      SetLength(Arr,Length(Arr)+1);
      Arr[Length(Arr) - 1] := Copy(S2,1,Pos(' ',S2));
    End;
  End;
end;

[TwiX]

SetLength(Arr,0);//массивчик из ShortString;

Из нуля элементов?)