wie die letzten 2 zeichen eines integer Wertes ermitteln

[mr_emre_d]

Habs nicht getestet aber so müsste das funzen :

Code:

function GetLast2Values( const Int: Integer ): TPoint; // TPoint.X = Vorletzter Wert, TPoint.Y = Letzter Wert
var
  buf: String;
begin
  buf      := IntToStr( Int );
  Result   := Point( 0, 0 );
  if Length( Buf ) > 1 then
  begin
    Result.X := StrToInt( Buf[Length(Buf)-1] );
    Result.Y := StrToInt( Buf[Length(Buf)]   );
  end else
    MessageDLG( 'Wert hat nur 1 Zeichen!', mtError, [mbOK], 0 );
end;

Aufruf wäre dann so:

Code:

  ShowMessage( IntToStr( GetLast2Values( 123 ).X ) ); // --> 2
  ShowMessage( IntToStr( GetLast2Values( 123 ).Y ) ); // --> 3

MfG