Работа с типом Record

[TheNovice]

В ходе написания программы столкнулся с необходимостью
разбиения строки в компоненте Memo на 3 части и записи каждой из них
в отдельное поле записи и контролем содержимого поля

Пример:в Memo задается строка 'ADDWF f,d' (f и d определенные числа) ранее был объявлен массив

AsmCode: array[0..1023] of record
Command: string[6];
op1:Word;
op2:Word;

Обработчик при событии 'Button1Click' должен сохранить строку до запятой в поле Command, первый операнд в поле op1, а второй в поле op2
При этом нужна проверка
1.в поле Command известная и синтаксически правильная команда
(наверное это реализовывается так
if AsmCode.Command[i]<>'имя команды1' and 'имя команды2' и т.д.)
хотя я не уверен в своей правоте

2.0<f<31,
3.d либо 1 либо 0.

Команд будет 3 типа
1. Команда с 2-мя операндами 'ADDWF f,d'
2. Команда с 1-м операндом 'CALL k'
3. команда без операндов 'NOP'
Соответствено для команд вида 2 и 3 необходима проверка количества
операндов, т.е. чтобы не написали NOP с операндами

Собственно прошу помочь с кодом =)

[SuperVisor]

Ничего сложного не вижу, но возникает вопрос: почему строковая переменная имеет длину 6?

procedure TForm1.BitBtn1Click(Sender: TObject);
var
 Buf, Buf2: String;
  c,t,i: integer;
begin
 t:=0;
 for c:=0 to memo1.Lines.Count-1 do
  begin
   Buf:=memo1.Lines.Strings[c];
    i:=Pos(' ',Buf);
  AsmCode[t].Command:=copy(Buf,0,i-1);
    Delete(Buf,1,i);
    i:=Pos(',',Buf);
    Buf2:=copy(Buf,0,i-1);
    delete(buf,1,i);
    if (strtoint(Buf)>0) and (strtoint(Buf)<31) then AsmCode[t].op1:=strtoint(Buf)
     else Continue;
    if (strtoint(Buf2)=0) or (strtoint(Buf2)=1) then AsmCode[t].op2:=strtoint(Buf2)
     Else Continue;
    inc(t);
  end;
end;

[TheNovice]

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

Ничего сложного не вижу, но возникает вопрос: почему строковая переменная имеет длину 6? Завтра здесь будет код, если кто-нибудь не ответит раньше. З.Ы. пишу с мобилы - писать сложно.

команд с числом сиволов >6 нет, заранее спасибо.

[SuperVisor]

Поскольку были добавлены условия - код неполный. Проверку лучше организовать по командам посредством CompareStrings и отталкиваться от него по операндам.
Будут вопросы - пиши.

[TheNovice]

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

Поскольку были добавлены условия - код неполный. Проверку лучше организовать по командам посредством CompareStrings и отталкиваться от него по операндам.
Будут вопросы - пиши.

Все дальше все сделал сам
Огромное спасибо за помошь