Передача поля объекта в процедуру в качестве параметра

[Голованов Д.]

Определение класа Class1:

Public a As Double

В модуле Module1 две процедуры:

Sub Sub1(ByRef a As Double)
    a = 5
End Sub

Sub Main()
    Dim C1 As Class1
    Set C1 = New Class1
    Sub1 C1.a
    MsgBox "a = " & CStr(C1.a), vbOKOnly, "Результат"
End Sub

Вопрос: почему в результате выплнения Main получается а = 0, и как получить а = 5?

[doober]

Смысла такого кода я не понял,но посмотрите варианты,может помогут

[Голованов Д.]

Спасибо за ответ, но неподойдёт. Смысл делать такой код есть, уж поверьте мне )

Попробую описать словами. Есть процедура, которая меняет значение передаваемой ей переменной. Есть объект, поле которого хотелось бы поменять с помощью этой функции. При этом делать функцию частью объекта (методом или свойством) в этом конкретном случае мне видится нелогичным.

Так что повторю вопрос: как передать поле объекта в функцию в качестве изменяемого параметра?

[EducatedFool]

Смысл делать такой код есть, уж поверьте мне )

Смысла использовать классы нет. Уж поверьте мне

Вы всё слишком усложняете. Решение Вам уже подсказали.
Если интересует что-то другое - подробно сформулируйте задачу.

[Голованов Д.]

EducatedFool

Мой предыдущий вопрос с этим связан только косвенно. Хотя думаю, попробуй я передать поле визуального объекта в процедуру - результат был бы тот же.

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

PS: Не устаю повторять предельно конкретный вопрос: как передать поле объекта в функцию в качестве изменяемого параметра?

[Голованов Д.]

Вот такое на паскале запросто проходит:

type
  TClass1 = class
  public
    a: Double;
  end;

procedure Sub1(var a: Double);
begin
  a := 5;
end;

procedure TForm1.FormActivate(Sender: TObject);
var
  Class1: TClass1;
begin
  Class1 := TClass1.Create;
  Sub1(Class1.a);
  Form1.Label1.Caption:= FloatToStr(Class1.a); // результат - 5
end;

[viter.alex]

Да, такая штука не пройдет. Можно передать объекты по ссылке, но не элементы класса.
А почему бы не записать эту процедуру внутри класса?

[Голованов Д.]

Сообщение от viter.alex

А почему бы не записать эту процедуру внутри класса?

Ну... ето может чисто моя заморочка, но. В процедуре происходит проверка входных данных на корректность и некоторая их модификация. Т.е. процедура зависит от способа ввода данных. Но! Сегодня я хочу вводить их в форму, завтра - в яцейки таблицы. Сегодня в одном формате и с одними размерностями, завтра - в другом и с другими. Класс же по-моему (именно этот конкретный класс) не должен от этого зависеть. Типа, Юпитеру - юпитерово )

PS: Наверное введу доп. переменную, буду её отправлять в процедуру, потом присваивать полю объекта... Тянемся правой ного к левому уху )

[EducatedFool]

Вот так будет работать:

Sub Процедура(ByRef ЭкземплярКласса As Class1)
    ЭкземплярКласса.a = 5
End Sub

Sub Main()
    Dim C1 As New Class1
    Процедура C1
    MsgBox "a = " & C1.a, , "Результат"
End Sub

Можно сделать и так:

Function Функция(a As Double) As Double
    Функция = a * 5
End Function

Sub Main()
    Dim C1 As New Class1
    C1.a = 1
    C1.a = Функция(C1.a)
    MsgBox "a = " & C1.a, , "Результат"
End Sub

[Голованов Д.]

EducatedFool, спасибо за ответы.

Первый вариан не подходит, ибо с помощью функции заполняются разные поля:

Процедура C1.а1
Процедура C1.а2
...

Второй вариант можно использовать, но я настаивал на отправке именно в качестве параметра потому, что хотел использовать результат функции как индикатор её успешного выполнения, а-ля:

Function  Функция(a As Double) As Boolean
    If изменение a успешно then
        Функция = True
    Else
        Функция = False
    End If
End Function


If Функция(C1.a) then
    ...

PS: подскажите ещё, как получить минимлаьно возможное число типа Double?