DLL

[Владимир1988]

Подскажите пожалуйста, почему программа пишет, что параметр v1 не определен, если я его определил в классе?

library DLL2;

uses
  SysUtils,
  Classes,
  Dialogs,
  Windows;
{$R *.res}
type
  TMyClass = class(TObject)
    v1: string;
    v2: string;
  end;
 procedure MyFirstFunc; stdcall
 var
 flag:boolean;
begin
  flag:=true;
  if (v1<2) or (v1>10) then
    begin
    flag:=false;
     Exit;
    end;
  if (v2<2) or (v2>10) then
    begin
    flag:=false;
    Exit;
    end;
   if flag =false then
     begin
       MessageBox(0, 'Значения должны быть от 2 до 10. Повторите ввод', 'dll', MB_OK);
       Exit;
    end;
end;
exports
   MyFirstFunc;
begin
end.

[Ti_pain)]

Я конешно не сильно в етом разбераюсь но походу ети параметры надо передавать с основной прогарми
procedure MyFirstFunc(v1,v2.....); stdcall
только тип стринг лутче не использовать
НАпример (Ps седне на лекции было)
procedure MyFirstFunc(v1,v2:PChar); stdcal;

[Владимир1988]

А можно ли эти параметры v1 и v2 потом использовать в DLL не объявляя?

[Ti_pain)]

НУ да )) я так понял происходит фильтрация ввода только для "2".."10") и у тебя там сравнивается символы с цифрами:

if (v1<2) or (v1>10) ну так нельзя делать)) нужно или передавать к процедуре чисельный тип ну или переводить в самой процед
procedure MyFirstFunc (v1,v2: TChar);
var a,b:integerl;
begin
a:=StrToInt(v1);
b:=StrToInt(v1);
..................

[Stilet]

Вы оба не правы.

Владимир1988

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

type
  TMyClass = class(TObject)
    v1: string;
    v2: string;
  end;

 procedure MyFirstFunc(My:TMyClass); stdcall
 var
 flag:boolean;
begin
 if My=nil then exit;
  flag:=true;
 with my do begin
// Вместо тех ифов я предлагаю что-то типа:
  flag:=not((v1<'2') or (v1>'10')) or not((v2<'2') or (v2>'10'));
   if flag =false then
     begin
       MessageBox(0, 'Значения должны быть от 2 до 10. Повторите ввод', 'dll', MB_OK);
       Exit;
    end;
 end {WITH}
end;
exports
   MyFirstFunc;
begin
end.

Смысл понятен?