Rechenproblem

[Die Muhkuh]

Mach doch noch eine Funktion draus:

Delphi-Quellcode:

function CalcGradiendColor(start, end, pos, length: Integer): Integer;
begin
  Result := start + round ((end - start) * pos / length);
end;

// Aufruf:
RVal := CalcGradientColor(<Params>);
GVal := CalcGradientColor(<Params>);
BVal := CalcGradientColor(<Params>);

[DeddyH]

Aber dann bitte mit Rückgabewert

[edit] Owned [/edit]

[Die Muhkuh]

Zitat von DeddyH:

Aber dann bitte mit Rückgabewert

[edit] Owned [/edit]