voce pode até fazer uma procedure. mas passe os dois valores como parâmetros
por referencia nela.
procedure IncreaseValues(var aValue1, aValue2: integer);
begin
aValue1 := aValue1 * 2;
aValue2 := aValue1 + aValue2;
end;
var
iValue, iSum: integer
begin
iValue := 0;
iSum := 0;
Tiago/Rubens,
Tb é possivel usando um record para isto.
Veja como :
unit BLABLABLA;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, etc, etc, etc;
type
TRetorno= Record
Valor : Currency;
Descricao : String;
Existe :
Isto é uma regra fundamental em programação, seja ela feita na linguagem que
for. Toda função SEMPRE retorna um único valor. Se quiser que retorne mais de
um valor, das duas uma:
1) Crie uma procedure contendo parâmetros por referência para que eles retornem
os valores que vc quer, ou;
2) Cria
3 matches
Mail list logo