Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
26. Apr 2009
Angeber :tongue:. Aber dann würde ich das Array zumindest als Parameter übergeben, um dem Grundsatz genüge zu tun, dass man Speicher auf der Ebene freigeben soll, auf der er angefordert wurde.
Forum: Object-Pascal / Delphi-Language
Delphi
by DeddyH,
26. Apr 2009
Spontan fallen mir da auch 2 Möglichkeiten ein:function Stellenwert(Zahl: integer; Stelle: byte): integer;
begin
Result := trunc(Zahl / Power(10,Pred(Stelle))) mod 10;
//oder
Result := trunc(frac(Zahl / Power(10,Stelle)) * 10);
end;
Stelle ist dann "von rechts" anzugeben, also 1 für die 1er-Stelle, 2 für die 10er-Stelle usw.