ООП в Паскаль (PascalABC.net)

[min@y™]

для делфи( в делфи не силён), я думаю модуль вообще переделывать не надо, тока основную программу подкорректировать- .

В delphi придётся программу написать с нуля.

[kolyaz]

Пожалуйста вот делфи :
Пришлось начать осваивать, благо очень похожий.

[min@y™]

Пожалуйста вот делфи :
Пришлось начать осваивать, благо очень похожий.

Ага, ну да... Осваивать!
Посмотрел я модуль. Лучше б не смотрел.
Сразу видно, что ты его просто набрал как текст, не зная, что делаешь и что пишешь.

[kolyaz]

Он прекрасно компилируется , повторюсь мне нужен алгоритм выбора по условию

[min@y™]

Он прекрасно компилируется

Покажи скриншот полученной программы.

[indexx]

Pascal ABC так и работает. Скопировал вставил, и усё компилируется. Вот человек и думает, что в делфи то же самое.

[kolyaz]

Вот Он целиком

[min@y™]

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

Вот Он целиком

Да неужели?
Весь бред, который ты понакопипастил в unit1.pas компилятор выкинул нах при линковке как неиспользуемый мусор, оставив только это:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    btn1: TButton;
    PaintBox: TPaintBox;
    procedure btn1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;


var
  Form1: TForm1;
  var i:Integer;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var i:integer;
begin
 
end;

end.

[kolyaz]

Правильно выкинул
ВЕДЬ МЕТОДА ВЫБОРА ФИГУРЫ ПО УСЛОВИЮ ТЮТЮ!

[min@y™]

Задачарешенаура, замлекопаполтора.