Возрат нескольких значений через функцию

[Xenar]

Доброго времени суток

В своем проекте вынес в отдельную библиотеку некий фунционал. В библиотеке оформил его в функцию результат вычислений которой состоит из нескольких значений типа Currency и Strung.
Возращаю эти значения в основную программу через Record
Что то типа
в библиотеке:

Код: Выделить всё

type
rec=record
  i1:Integer;
  i2:Integer;
end;

function SOMessage(send1,send2: Integer) : rec;
begin
result.i1:=send1+send2;
result.i2:=5*6;
end;
exports SOMessage;


В основной программе

Код: Выделить всё

type
rec=record
  i1:Integer;
  i2:Integer;
end;

function SOMessage(send1,send2: Integer) : rec; external 'libproject1.so';

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:= IntToStr(SOMessage(1,8).i1);
end;

Все работает нормально, но не могу сообразить как за одно обращение/выполнение к фунции вывести в основной программе все другие значения Record

То есть не только результат выполнения в библиотечной функции i1 но и i2 (как можно видеть результат i2 считается в любом случае)

Конечно можно сделать так:
Edit1.Text:= IntToStr(SOMessage(1,8).i1);
Edit2.Text:= IntToStr(SOMessage(1,8).i2);

Но тут получится два отдельных обращения к функции а она (функция) в моем случае очень "тяжелая" по выполнению и поэтому нужно получить все значения за один проход.

[Лекс Айрин]

рекурсивно, неа?

вообще, можно вывести по глобальной ссылке на список переменных.

[Sharfik]

Читай... http://www.delphibasics.ru/Record.php
Аналогично у тебя будет.

Код: Выделить всё

fruit := SOMessage(1,8);
Edit1.Text:= IntToStr(fruit .i1);
Edit2.Text:= IntToStr(fruit .i2);


Должно работать, не проверял.

Либо выделением памяти под Record и передачей адреса памяти. Но если Память в Dll выделяется,то программа может не увидеть эту область, нужно заранее передать твоей dll адрес памяти созданный в программе.

[Xenar]

Читай... http://www.delphibasics.ru/Record.php
Аналогично у тебя будет.

Код: Выделить всё

fruit := SOMessage(1,8);
Edit1.Text:= IntToStr(fruit .i1);
Edit2.Text:= IntToStr(fruit .i2);


Должно работать, не проверял.

Спасибо огромное, сработал этот вариант
единственно что потребовалось (может кому понадобится) несколько изменить в основной программе

Код: Выделить всё

type
Trec=record
  i1:Integer;
  i2:Integer;
end;

var
rec : Trec; 

function SOMessage(send1,send2: Integer) : Trec; external 'libproject1.so';


procedure TForm1.Button1Click(Sender: TObject);
begin
rec:= SOMessage(1,8);
Edit1.Text:= IntToStr(rec.i1);
Edit1.Text:= IntToStr(rec.i2);
end;


[Vapaamies]

Еще можно с with написать, он анонимную переменную создаст. Как раз для таких случаев предусмотрено:

Код: Выделить всё

procedure TForm1.Button1Click(Sender: TObject);
begin
  with SOMessage(1,8) do
  begin
    Edit1.Text:= IntToStr(i1);
    Edit1.Text:= IntToStr(i2);
  end;
end;

[Sharfik]

Про анонимную переменную не знаю, знаю что читать код после его применения адское занятие. Лучше уж переменную временную объявить и хоть понятная логика будет.

[Vapaamies]

читать код после его применения адское занятие.

Вот именно поэтому нужно применять with в простых случаях вроде этого.