перевести из дэлфи в паскаль!

[артем111]

ребята помогите перевести прогу
не могу разобратся как кнопки в дэлфи реализовать в паскале

ЛАБА 4

unit MainUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

const
  N = 5;  //кол-во элементов в начальном списке-стоянке

type
  TItemPtr = ^TItem;    //указатель на элемент записи
  TItem = record        //объявление типа записи
    index: integer;     //информационная часть
    next: TItemPtr;     //указатель на следующий элемент
  end;

  TStack = class (TObject)              //объявление типа класса
    Start,Start2: TItemPtr;             //указатели на начала списков
    constructor Create;                 //конструктор
    destructor Destroy; virtual;        //деструктор
    procedure AddItem;                  //добавление элементов со значением index из окна edNumber
    procedure DelItem(Index: integer);  //удаление элемента с заданным значением поля index
    procedure Show;                     //показать список
  end;

  TMainForm = class(TForm)
    edStack: TEdit;
    btShow: TButton;
    lbStack: TLabel;
    lbNumber: TLabel;
    edNumber: TEdit;
    btAddAuto: TButton;
    btDelAuto: TButton;
    procedure btShowClick(Sender: TObject);
    procedure btAddAutoClick(Sender: TObject);
    procedure btDelAutoClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;
  Stack: TStack;      //объект класса

implementation

{$R *.dfm}

{ TStack }

procedure TStack.AddItem;
var
  tmp1,tmp2: TItemPtr;  //вспомогательные переменные
  ind: integer;
begin
  if Assigned(Start) then  //если указатель на начало списка не равен Nil
  begin
    tmp1:= Start;
    ind:=StrtoInt(MainForm.edNumber.Text); //инициализируем информационную переменную
    while tmp1<>Nil do                     //цикл по всем элементам списка до первого нулевого указателя
    begin
      if ind=tmp1.index then               //если в списке нашелся элемент,уже содержащий новый индек, то
      begin
        ShowMessage('Авто с таким номером уже есть!!!');    //ругаем юзера
        Exit;                                               //и выходим из процедуры
      end;
      tmp1:=tmp1.next;                                      //присваиваем указатель на следующий элемент
    end;
    tmp1:=start;                                            //копируем указатель на начало главного списка
    while tmp1.next<>Nil do                                 //пробегаемся по гл.списку до конца
      tmp1:=tmp1.next;                                      //но после выхода из цикла tmp1 указывает на последний элемент
    new(tmp2);                  //выделяем память под новый элемент
    tmp2.index:=ind;            //записываем туда информацию
    tmp2.next:=Nil;             //указатель на след элемент - нулевой
    tmp1.next:=tmp2;            //в предыдущий элемент записываем указатель на текущий элемент
  end
  else                         //сюда, если указатель на начало списка равен Nil
  begin
    new(start);                //создаем етот указатель
    start.index:=StrtoInt(MainForm.edNumber.Text);    //записываем инфу в него
    start.next:=Nil;                                  //а в указатель - нолик
  end;
  Show;                                               //показываем новый список
end;

constructor TStack.Create;
var
  i: integer;
  tmp1,tmp2: TItemPtr;
begin
  inherited Create;       //вызываем конструктор родительского класса (так надо ;-))
  new(Start);             //создаем указатель на начало списка
  Start.index := 1;       //пишем туда информацию
  tmp2:=Start;            //копируем указатель
  for i:=2 to N do        //цикл для создания N элементов
  begin
    new(tmp1);
    tmp1.index:=i;
    tmp2.next:=tmp1;
    tmp2:=tmp1;
  end;
  tmp2.next := Nil;
  Start2:=Nil;             //указатель на начало вспомогательного списка - в ноль
end;

[артем111]

procedure TStack.DelItem(Index: integer);
var
  tmp1,tmp2,tmp3,tmpDel: TItemPtr;
  count,i,j: integer;
begin
  //ищем элемент с заданным индексом
  count:=0;
  tmp1:=Start;
  while tmp1<>Nil do
  begin
    count:=count+1;
    if tmp1.index=index then     //если нашли элемент, то выходим из цикла
      Break;                     //при этом count сохранит его порядковый номер
    tmp1:=tmp1.next;
  end;
  if tmp1 = Nil then            //если не нашли
  begin
    ShowMessage('Авто с таким номером на стоянке нет!!!');
    Exit;
  end;

  //если нашли, то все элементы до него переносим в новый список
  tmp1:=Start;
  for i:=1 to count-1 do     //проходим по всем элементам до найденного
  begin
    new(tmp3);               //создаем новый элемент
    if not Assigned(Start2) then    //если вспомогательного списка еще нет
    begin
      tmp3:=tmp1;
      Start2:=tmp1;                 //созданный элемент будет первым
      tmp2:=tmp3;
    end
    else            //если список уже есть, то дописываем в конец
    begin
      tmp2.next:=tmp3;
      tmp3^:=tmp1^;
      tmp2:=tmp3;
    end;
    tmp1:=tmp1.next;
  end;
  tmp2.next:=Nil;

  //теперь удаляем первый элемент, которым должен оказаться найденный нами
  tmpDel:=tmp1;
  tmp1:=tmp1.next;
  Start:=tmp1;
  Dispose(tmpDel);

  //в начало оставшегося списка дописывает элементы из второго списка (начиная с последнего)
  for i:=1 to count-1 do
  begin
    tmp1:=start2;
    for j:=1 to count-i-1 do
      tmp1:=tmp1.next;
        new(tmp3);
    tmp3^:=tmp1^;
    tmp3.next:=start;
    start:=tmp3;
  end;

  //удаляем второй (вспомогательный) список
  tmp1:=start2;
  while tmp1<>Nil do
  begin
    tmp2:=tmp1.next;
    Dispose(tmp1);
    tmp1:=tmp2;
  end;
  tmp1:=Nil;
  tmp2:=Nil;
  tmp3:=Nil;
  tmpDel:=Nil;
  start2:=Nil;
  Show;
end;
destructor TStack.Destroy;
var
  tmp1,tmp2: TItemPtr;
begin
  tmp1 := Start;
  while tmp1 <> Nil do     //опять по всему списку
  begin
    tmp2 := tmp1.next;
    Dispose(tmp1);         //удаляем все элементы
    tmp1 := tmp2;
  end;
  inherited Destroy;
end;

procedure TStack.Show;
var
  tmp1: TItemPtr;
begin
  if Assigned(Start) then     //если список есть, то
  begin
    tmp1 := Start;             //копируем начальный указатель
    MainForm.edStack.Text:=''; //очищаем поле для вывода
    while tmp1<>Nil do
    begin
      MainForm.edStack.Text := MainForm.edStack.Text+'<'+InttoStr(tmp1.index)+'>'; //выводим каждый элемент
      tmp1 := tmp1.next;
    end;
  end
  else
    MainForm.edStack.Text:='';  //если списка нет, то очищаем поле вывода
end;

procedure TMainForm.btShowClick(Sender: TObject);
begin
  Stack.Show;
end;

procedure TMainForm.btAddAutoClick(Sender: TObject);
begin
  if length(edNumber.Text)<>0 then
    Stack.AddItem;
end;

procedure TMainForm.btDelAutoClick(Sender: TObject);
begin
  if length(edNumber.Text)<>0 then
    Stack.DelItem(StrtoInt(edNumber.Text));
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  Stack := TStack.Create;
end;
end.

[Вадим Мошев]

не могу разобратся как кнопки в дэлфи реализовать в паскале

Теоретически, это возможно, но практически... вы не сможете этого добиться.
Вам пртдётся писать кучу библиотек/модулей/компонентов...

Видимо, кто-то вас дезинформировал...

[артем111]

мне в принципе эти кнопки в паскале не нужны!
мне просто нужна эта прога в паскале только с оператором data!
помогите если кто может
хотя бы начало
дальше сам рыть буду)

Сообщение от Вадим Мошев

Теоретически, это возможно, но практически... вы не сможете этого добиться.
Вам пртдётся писать кучу библиотек/модулей/компонентов...

Видимо, кто-то вас дезинформировал...

помоги пожалуйста)))

[s-andriano]

Сообщение от артем111

мне в принципе эти кнопки в паскале не нужны!
мне просто нужна эта прога в паскале

Вообще-то прога уже написана на Паскале.

только с оператором data!

А что за оператор такой в Паскале?
В Фортране такой есть, а в Паскале - не слышал.

помогите если кто может
хотя бы начало
дальше сам рыть буду)

Так начало уже есть.

[артем111]

DATA в бейсике заносит в память числовые и строковые константы, которые считываются оператором READ а вот в паскале я не знаю как это реализовать!
помогите убрать кнопки TButton! как вот этот кусок в паскаль перевести?

  TMainForm = class(TForm)
    edStack: TEdit;
    btShow: TButton;
    lbStack: TLabel;
    lbNumber: TLabel;
    edNumber: TEdit;
    btAddAuto: TButton;
    btDelAuto: TButton;
    procedure btShowClick(Sender: TObject);
    procedure btAddAutoClick(Sender: TObject);
    procedure btDelAutoClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;
  Stack: TStack;      //объект класса

Сообщение от s-andriano

Вообще-то прога уже написана на Паскале.А что за оператор такой в Паскале?
В Фортране такой есть, а в Паскале - не слышал.
Так начало уже есть.

она на делфи написана вообще то))

[s-andriano]

Делфи - среда разработки, в качестве языка программирования использующая Объектный Паскаль.

[Serge_Bliznykov]

Сообщение от s-andriano

Делфи - среда разработки, в качестве языка программирования использующая Объектный Паскаль.

Вы формально правы, но фактически - ошибаетесь...

цитирую с википедии - Delphi (язык программирования):

Delphi (язык программирования)
Материал из Википедии — свободной энциклопедии
У этого термина существуют и другие значения, см. Delphi.
Эта статья — о языке программирования. Об интегрированной среде разработки см. Delphi (среда разработки).Delphi
Класс языка: императивный, структурированный, объектно-ориентированный
Появился в: 1995; посл. выпуск 2011
Автор(ы): Андерс Хейлсберг
Расширение файлов: .pas,.dpr,.dpk,.pp
Релиз: Delphi XE2 (2011)
Типизация данных: статическая, сильная, безопасная (англ. Type safety)
Основные реализации:
Borland/Inprise/Codegear/Embarcadero Delphi; Borland Kylix; FreePascal
Испытал влияние: Object Pascal, C++
Сайт: Официальный сайт

Delphi (Де́лфи, произносится /ˈdɛlˌfi:/[1]) — императивный, структурированный, объектно-ориентированный язык программирования, диалект Object Pascal[2]. Начиная со среды разработки Delphi 7.0[3], в официальных документах Borland стала использовать название Delphi для обозначения языка Object Pascal. Начиная с 2007 года уже язык Delphi (производный от Object Pascal) начал жить своей самостоятельной жизнью и претерпевал различные изменения, связанные с современными тенденциями (например, с развитием платформы .NET) развития языков программирования: появились class helpers, перегрузки операторов и другое.

[артем111]

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

Вы формально правы, но фактически - ошибаетесь...

цитирую с википедии - Delphi (язык программирования):

совет на счёт этой проги кто нибудь даст?

[Serge_Bliznykov]

а что тут советовать - берите исходники на Delphi - "вырывайте" оттуда нужные куски кода и вставляйте в свою программу на Pascal.

Вы спросите - что значит "нужные куски кода" ? Отвечаю, те куски кода, которые решают поставленную Вам задачу (Вы про задачу ничего не пишете, а угадывать я не собираюсь).
Вы спросите - а куда их вставлять в программу на Паскаль? Отвечаю, эти кусочки кода надо вставлять туда, где они будут в нужные моменты времени вызываться.


прошу не считать мой пост издевательством - какой вопрос, такой и ответ (точнее совет!)

Вы бы лучше рассказали, что делает программа на Delphi, что должна делать программа на Pascal (и как выглядеть), выложите исходники проекта на Delphi в виде архива, тогда можно будет о чём то более конкретном поговорить.
А пока это всё только слова, слова, слова...