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

[kutani]

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

гы:

var tt: tstringlist;
     par: array of string; 
     k: integer;
begin
 tt:= tstringlist.create;
 tt.Delimiter:= ' ';

 for i:=0 to Memo1.Lines.Count-1 do begin
  tt.DelimitedText:= memo1.lines[i];
  setlength(par, tt.count);
  for k:=0 to tt.count-1 do
   par[k]:= tt[k];

  // выполняем чего-нибудь
  {
   ...
   }
 end;
...

[Serge_Bliznykov]

kutani, можно и так.

Но, во-первых, это из пушки по воробьям.

а во-вторых, зачем из одного динамического массива (TStringList) переливать в другой динамический массив(array of string) ?
Чем par[k] лучше чем tt[k]?!

ну и в третьих, если создали объект, то неплохо его удалить в конце ( tt.Free; ) !

[kutani]

Во-первых - при наличии VCL в проекте и Memo как объекта класса говорить о пушке несколько притянуто за уши. И тупо компактнее сам парсер за счет готовой обертки, работающей с указателями внутри, хотя и не самый быстрый. А скорость тут и не требуется.

Во-вторых - ничем не лучше, даже лишнее, согласен. Cчитайте это заменой локальных переменных paramN, сommand, которая и нафиг не нужна. Для наглядности. А если уж и переливать массивы, то через Move.

В-третьих - лучше freeandnil() и еще много чего не упомянуто, что TC должен сделать своими ручками.

[Serge_Bliznykov]

kutani, принято, согласен.

[beegl]

или, например готовый free cmd там - CnConsole

[vers0]

Благодарю за наводки, буду читать, за куски кода отдельное спасибо всем, опять же буду читать - разбираться !!!