Memo как командная строка

[vers0]

Суть такова: имеется форма, на ней Memo, кнопка и канва.
В мемо вводим команды (влево 10, вперед 25, стоять 5 и т.д.), после чего нажимается кнопка и на канве идет графическое отображение всего введенного.
Не могу понять, как увязать команды с этими отображениями
Команды пишутся в столбик, по одной в строке, т.е. "команда [пробел] цифра", цифра означает расстояние или в качестве стоять/стоп - секунды.
Нужно отрабатывать сначала первую строку, потом вторую и т.д. - по сути получается алгоритм движения на канве заранее прописывается в мемо.

В общем, кто чем сможет...

[Аватар]

Memo.Lines для последовательного чтения строк из Memo
Canvas.MoveTo для установки пера в нужную позицию
Canvas.LineTo рисует линию
StrToInt строку в интежер
Включить процессор в голове

[IvaniuS]

сделай команда=число загружай текст из мемо в TStringList там у тебя поулчится список Name=Value, циклом по Names проходишься и Caseом выполняешь нужную команду, по моему все сказал.
Готовый код вроде бы не просили.

[Serge_Bliznykov]

точно.
добавлю.
паузу ("стоять") можно организовать по разному.
варианты можно посмотреть в теме Аналог Sleep()

[Аватар]

Для паузы в первом приближении и sleep пройдет. Таймер для развития технологии, поток для второй очереди развития

[vers0]

IvaniuS, благодарю, с числами легче, так и хотел, но загвоздка именно в увязке команды с меняющимся значением после нее

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

циклом по Names проходишься и Caseом выполняешь нужную команду

пример перебора каждой строки на наличие команд можно (желательно со значениями)?

[Serge_Bliznykov]

например,

var s,Command: string;
  i,Param : integer;
begin
 for i:=0 to Memo1.Lines.Count-1 do begin
   s:=Trim(Memo1.Lines[i]);
   if Pos(' ',s)>0 then begin {если в строке есть пробел, тогда}
     Command:=AnsiUpperCase(Copy(s,1,Pos(' ',s)-1));
     Param:=StrToIntDef(Copy(s,Pos(' ',s)+1,Length(s)),0);
     if Command='ВЛЕВО' then begin
        ShowMessage('Делай команду '+Command+ ' с параметром '+IntToStr(Param));
     end;
     if Command='ВПРАВО' then begin
        ShowMessage('Делай команду '+Command+ ' с параметром '+IntToStr(Param));
     end;
     if Command='СТОЯТЬ' then begin
        ShowMessage('Делай команду '+Command+ ' с параметром '+IntToStr(Param));
     end;
     .....
   end;
 end;
end;

код примерно условный, я не проверял, написал прямо здесь.
нужно проверять, возможно поправлять/отлаживать...

[IvaniuS]

Почему бы и нет. Вариант с If выглядит лучше и имеет место быть, это то что я имел ввиду.
Текст в мемо

left=10
forw=25
stop=5

Написал на коленке, но должно рабоать, смысл думаю понятен

procedure TForm1.DoPaint(act:string;val:Integer);
begin
  case act[1] of
    'l':begin//left
            MyCanvas.MoveTo();
            MyCanvas.LineTo();
        end;
    'r':;//right
    'f':;//forward
    'b':;//backward
    's':;//stop
  end;
end;

procedure TForm1.btnStartClick(Sender: TObject);
var
  i:Integer;
begin
  with TStringList.Create do
  try
    Text:=mmoCode.Lines.Text;
    for I := 0 to count-1 do
      DoPaint(AnsiLowerCase(Names[i]),StrToInt(ValueFromIndex[i]));
  finally
    free;
  end;
end;

Когда дописал - понял что не учел обе координаты т.е. нужно будет добавить проверку на наличие запятой в ValueFromIndex и разбить через pos\copy до запятой и после, если это координаты.

[vers0]

благодарю, нужны были как раз идеи, т.к. не имея опыта и знаний фантазию особо не применишь.

Не написали б о втором параметре, не спросил бы ))) Если добавить второй параметр вида "переместить 5 8"?

begin
 for i:=0 to Memo1.Lines.Count-1 do begin
   s:=Trim(Memo1.Lines[i]);
   if Pos(' ',s)>0 then begin {если в строке есть пробел, тогда}
     Command:=AnsiUpperCase(Copy(s,1,Pos(' ',s)-1));
     Param:=StrToIntDef(Copy(s,Pos(' ',s)+1,Length(s)),0);
???
     Param2:=StrToIntDef(Copy(k,Pos(' ',k)+1,Length(k)),0);

[Serge_Bliznykov]

Не написали б о втором параметре, не спросил бы

я про второй параметр ничего не писал!

Если добавить второй параметр вида "переместить 5 8"?

вариантов много. я бы лично выбрал разбор строки через PosEx (искать в строке, начиная от предыдущего поиска).
Можно ещё в переменную копировать часть строки и искать пробел в ней.
Можно ещё удалять обработанную часть (самый неэффективный вариант, но в качестве костыля вполне подойдёт: условно говоря, будет код разбора работать не 0.01 секунды, в пять раз дольше - 0.05 с

С PosEx пример напишете самостоятельно или нужна помощь?