[SKIPtr]

драсте
мне захотелось написать что то типа упращеного аналога батника
вот сделал

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

function Cod(var s : string) : string; var i : integer; begin     i := Pos(' ',s);     if i = 0 then      begin        Cod := s;        s := ''      end    else     begin      Cod := Copy(s, 1, i - 1);      Delete(s,1,i);     end end;    procedure Comand(s : string); var   c : string;   i : integer; begin   c := Cod(s);   i := AnsiIndexStr(c,kom); // порядок команд в списке   case i of  // выбор команды     0: WinExec(pchar(s),SW_Show); // запускающая програма     1: Kozna.Vivod.Caption := s;     2: dely(s);     {3: }   end; end;    procedure TKozna.FormCreate(Sender: TObject); var   s : string;   i : integer; begin     For i := 0 to Zadan.Lines.Count - 1 do    begin      s := Zadan.Lines[i]; //берем очередную строку      Comand(s);    end; end;

без переменых трудно
хотелось узнать как создавать переменые