Создавалка програмок на паскале

@Андрей Борисови · Регистрация: 04.10.2009

Студворк — интернет-сервис помощи студентам

До упора уже задолбался писать одинаковые, маленькие программки на паскале, посвященные одномерным и двумерным массивам и типизированным файлам.
Задумал вот такую программулину, в которой пользователь, "тыкая" мышкой мог бы сам создать себе программку.
Вот примерный интерфейс:

,

при нажатии "Ок" будет формироваться .pas файлик.
Programmator.7z
Пока идет разработка интерфейса.
Хочется услышать пожелания.

@Ales'hon'ne · 10.08.2011, 21:14

Как я понял, программа на дельфях написана? Может пригодиться:

Delphi
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
function IsNumber(s:String;CanHex:Boolean=false):boolean;
var
  x:Char;
  scan:set of Char;
begin
  Result:=true;
  scan:=['0'..'9'];
  if canHex then
    scan:=scan+['a'..'f','A'..'F','$'];
  for x in s do
    begin
      Result:=Result and (x in scan);
      if not Result then
        Break;
    end;
end;
 
function IsIdentifier(s:String):boolean;
var
  i:byte;
  scan:set of Char;
begin
  Result:=false;
  if s='' then
    Exit;
  scan:=['a'..'z','A'..'Z','_'];
  Result:=s[1] in scan;
  if Result and (Length(s)>1) then
    begin
      scan:=scan+['0'..'9'];
      for i:=2 to Length(s) do
        begin
          Result:=Result and (s[i] in scan);
          if not Result then
            Break;
        end;
    end;
end;

Кстати, как совет: добавьте в пункт О программе, что автор не гарантирует работоспособность программы, если пользователь вручную отредактирует код. И список поддерживаемых сред разработки тоже не помешает.

И сам только что заметил, по своему же скрину: добавьте внизу мемо-поля скроллбар, текст за границу выехал.

Добавлено через 12 минут
И ещё: при снятой галке сортировки флажок "вывести отсортированное" остаётся активным
И при выборе случайного заполнения по умолчанию выбраны латинские буквы, но поле с +/- в числах и поля ввода границ опять таки активны.

@Андрей Борисови · 11.08.2011, 10:36 **[ТС]**

Свеженькое обновление...
Programmator.7z

@Ales'hon'ne · 11.08.2011, 12:39

Эээ... В режиме "база данных" при нажатии на кнопку "добавить" во вкладке "описание бд" заголовок формы меняется на "84". И ещё было бы неплохо сделать вкладкой по умолчанию в базах данных именно "описание бд", а не "операции"

@Lost_Side · 27.08.2011, 16:55

Неплохо б, било добавить варианти сортировки масива,
например:
быстрая сортировка:

Pascal
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
Procedure Sort(var a:array of longint; low,high:longint);
var l,h,m,k:longint;
begin
  l:=low;
  h:=high;
  m:=(h+l) div 2;
  repeat
    while a[l]<a[m] do  inc(l);
    while a[h]>a[m] do  dec(h);
    if l <=h then
      begin
        k:=a[l];
        a[l]:=a[h];
        a[h]:=k;
        if m=l  then
          m:=h
        else
        begin
          if m=h then
            m:=l;
        end;
        inc(l);
        dec(h);
      end;
  until l>h;
  if h>low then  Sort(a,low,h);
  if l<high then Sort(a,l,high);
end;

@Андрей Борисови · 27.08.2011, 22:30 **[ТС]**

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

Procedure Sort(var a:array of longint;

Не забывайте, что этот текст должен быть на Паскале

КАК сделать такую же прогу на Дельфи - я еще не придумал...

@asen · 20.09.2011, 21:27

И это разве "создавалка"??? Я то думал, что это штука посерьёзней...
Так бы сразу и написали - программа для программирования МАССИВОВ на паскале

@nxnx · 20.09.2011, 21:53

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

И это разве "создавалка"??? Я то думал, что это штука посерьёзней...
Так бы сразу и написали - программа для программирования МАССИВОВ на паскале

так ведь написано же:

Сообщение от Андрей Борисови

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

Новые блоги и статьи Все статьи Все блоги /
Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .	Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .	Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .
Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .	Цена ошибки DevAlt 23.08.2026 Человек я беспокойный и потому заинтересовался OCaml, в чате форсили функторы модулей как суперфичу. Пытаясь отдуплить концепт, наткнулся на тутор с простым примером. А главный принцип обучения от. . .	Сегодня суббота, 22.08.2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. zorxor 22.08.2026 Сегодня суббота, 22. 08. 2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. Кто Я, откуда Я пришел и куда Я иду? Эти вопросы не оставляют меня ни на секунду. Жизнь на планете Земля. . .

@Андрей Борисови 714 / 402 / 33 Регистрация: 04.10.2009 Сообщений: 1,686

	Создавалка програмок на паскале 14.07.2011, 19:38. Показов 3095. Ответов 26 Метки нет (Все метки) До упора уже задолбался писать одинаковые, маленькие программки на паскале, посвященные одномерным и двумерным массивам и типизированным файлам. Задумал вот такую программулину, в которой пользователь, "тыкая" мышкой мог бы сам создать себе программку. Вот примерный интерфейс: , при нажатии "Ок" будет формироваться .pas файлик. Programmator.7z Пока идет разработка интерфейса. Хочется услышать пожелания. 0

@Андрей Борисови 714 / 402 / 33 Регистрация: 04.10.2009 Сообщений: 1,686
	11.08.2011, 10:36 [ТС]
	Свеженькое обновление... Programmator.7z 0

@Ales'hon'ne 159 / 152 / 50 Регистрация: 03.08.2011 Сообщений: 299 Записей в блоге: 14
	11.08.2011, 12:39
	Эээ... В режиме "база данных" при нажатии на кнопку "добавить" во вкладке "описание бд" заголовок формы меняется на "84". И ещё было бы неплохо сделать вкладкой по умолчанию в базах данных именно "описание бд", а не "операции" 1

@asen Заблокирован
	20.09.2011, 21:27
	И это разве "создавалка"??? Я то думал, что это штука посерьёзней... Так бы сразу и написали - программа для программирования МАССИВОВ на паскале 0

Опции темы