|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Написать простой язык программирования
драсте
мне захотелось написать что то типа упращеного аналога батника вот сделал Код:
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; без переменых трудно хотелось узнать как создавать переменые |