AnsiMatchStr

[Altera]

Привет всем!
В функцию AnsiMatchStr надо передовать фиксированный массив строк. А как передать динамический массив? Вот например строк в memo?

var
a: array of string;
c: shortInt;
begin
   setLength(a, memo1.Lines.Count - 1);
   for c := 0 to memo1.Lines.Count - 1 do
      a[c] := memo1.Lines.strings[c];


   if AnsiIndexStr(edit1.Text, a) = -1 then
      edit1.Color := rgb(255, 128, 128)
   else
      edit1.Color := clWindow;
end;

Вот так выдаёт ошибку.
Помогите plz!

[Баламут]

Странно, спрашиваешь о AnsiMatchStr, а в коде AnsiIndexSt. Ну да не суть важно. В общем-то здесь ошибка только в том, что неверно устанавливаешь длину массива. Она будет все-таки Memo1.Lines.Count, а у тебя на 1 меньше

[Altera]

Она будет все-таки Memo1.Lines.Count, а у тебя на 1 меньше

Ой да, а я почему-то подумал, что.....
----
Дело в том, копировать так весь текст из memo в массив дело не из быстрых, особенно если строк много. И это если AnsiMatchStr максимально оптимизирована. А нельзя код по легче?
Вот к примеру что-то типа этого:

if AnsiIndexStr(edit1.Text, memo1.Lines.strings) = -1 then
      edit1.Color := rgb(255, 128, 128)
   else
      edit1.Color := clWindow;

Компилятор правда не доволен и не хочит компилеть, мыл
[Pascal Error] EXE_FORM.pas(49): E2029 '[' expected but ')' found

[KORN]

if AnsiIndexStr(edit1.Text, memo1.Lines.strings[указываешь строку]) = -1 then

[Altera]

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

if AnsiIndexStr(edit1.Text, memo1.Lines.strings[указываешь строку]) = -1 then

Во-перых: этот вариант не работает:
[Pascal Error] EXE_FORM.pas(50): E2036 Variable required
Во-вторых: это был всего лишь пример. Мне нужен весь текст. Если я укажу номер строчки, то будет только строчка. Тогда так надо:

if AnsiIndexStr(edit1.Text, [memo1.Lines.strings[указываешь строку]]) = -1 then

[Altera]

Кажется, это вообще ерунда в таком случае...
А разве нет?
Вот описание как выглядит функция ansiIndexStr в strUtils:

function AnsiIndexStr(const AText: string; const AValues: array of string): Integer;
var
  I: Integer;
begin
  Result := -1;
  for I := Low(AValues) to High(AValues) do
    if AnsiSameStr(AText, AValues[I]) then
    begin
      Result := I;
      Break;
    end;
end;

Надо было мне сразу это посмотреть.
Просто идём циклом по строчкам в memo и проблема долой!