Schönen guten Abend zusammen. Aus Intresse hab ich mir mal überlegt ob es eigentlich möglich ist die Funktion IntToStr zu übersetzen, also ohne den Assembler.

zusammenfalten · markieren

Delphi-Quellcode:

function IntToStr(Value: Integer): string;
// FmtStr(Result, '%d', [Value]);
asm
        PUSH ESI
        MOV ESI, ESP
        SUB ESP, 16
        XOR ECX, ECX // base: 0 for signed decimal
        PUSH EDX // result ptr
        XOR EDX, EDX // zero filled field width: 0 for no leading zeros
        CALL CvtInt
        MOV EDX, ESI
        POP EAX // result ptr
        CALL System.@LStrFromPCharLen
        ADD ESP, 16
        POP ESI
end;

Ich habe mich bisher noch recht wenig mit dem Assembler beschäftigt, darum wäre es vllt. mal interessant Ansätze für eine mögliche Übersetzung zu sehen.

Mit freundlichem Gruß

Also die einfachste (aber wahscheinlich nicht die schnellste) wird die hier sein:

markieren

Delphi-Quellcode:

function IntToStr(AValue: Integer; ABase: Byte = 10): String;
var
  i: Integer;
begin
  Result := IfThen(AValue < 0, '-', '');
  repeat
    Result := Result + AValue mod ABase;
    AValue := AValue div Base;
  until AValue = 0;
end;

zusammenfalten · markieren

Delphi-Quellcode:

function IntToStr(AValue: Integer; ABase: Byte = 10): String;
var
  i, digit: Integer;
begin

  Result := IfThen(AValue < 0, '-', '');
  AValue := abs(AValue); //mod gibt iirc sonst negative Werte zurück.

  repeat

    digit := AValue mod ABase;
    if digit < 10 then
      Result := Result + chr(digit+48)
    else
      Result := Result + chr(digit+55);
    
    AValue := AValue div Base;

  until AValue = 0;

end;

fix'd

(Lässt sich noch unter Verwendung von DivMod optimieren)

EDIT: Funktioniert so nur für Basen zwischen 2 und 36, keine Überprüfung - bei 1 gäbs ne Endlosschleife, bei 0 ne Exception und bei allem größer als 36 würde es unschön aussehen.

Alles klar, wieder was dazu gelernt.
Vielen Dank für die schnellen Antworten

Tipp: Alle Zahlen-/Wortfunktionen, die ein Prozessor berechnen kann, kann man auch in Delphi schreiben.

Zitat von 3_of_8:

(Lässt sich noch unter Verwendung von DivMod optimieren)

nur maximal für Word/ShortInt ... zumindestens mit der DivMod-Version von Delphi

Stimmt. Muss mans halt umschreiben.

markieren

Delphi-Quellcode:

function DivMod(Value, Base: Integer var Result, Remainder: Integer);
asm
  mov ecx, edx
  cdq
  idiv ecx
end;

So ungefähr... glaub ich...