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 :lol:

[edit] Owned :tongue: [/edit]

[Die Muhkuh]

Zitat:

Zitat von DeddyH

Aber dann bitte mit Rückgabewert :lol:

[edit] Owned :tongue: [/edit]

:stupid: