IntToBin

[Maik81ftl]

Moin Moin,

Bin gerade über eines meiner Testprogramme, welches dazu dient Funktionen zu testen.

Dabei ist mir aufgefallen, das Lararus bei folgender Function Immer mit der Meldung kommt

Code: Alles auswählen

Ausführung Beendet.

Code: Alles auswählen

Function DezToBin(Value: pChar):pChar; cdecl;
var Count: Integer;
    A: Integer;
    Temp: String;
begin
     Temp:= '';
     Count:= Length(Value);
     for A:= 0 to Count do
        Temp:= Temp+IntToBin(StrToInt(Value[a]), 8, 0);
     result:= pChar(Temp);
end;

Besteht die möglichkeit, das die Function IntToBin einen Fehler enthält oder rufe ich diese nur falsch auf?

Ziel dieser Function auf dem Dezimalen wert von A (65) einen Binären Datenstrom zu erzeugen.

Dieser soll nach o.g. Function so aussehen. 6 = 00000110; 5 = 00000101.

zusammen sollen beide werte den gesammtstring '0000011000000101' ausgeben.

wenn hierbei dennoch ggf ein Bug vorliegen sollte, werd ich das wohl zu fuß machen müßen.

via PN bitte ich im fall des falles um Info, wie man einen Bug meldet.

Danke im Vorraus

[MAC]

interessant.
Aber wenn das deshalb nen .dll nutzt, nur wegen der funktion, dann würd ich folgendes benutzen:

Code: Alles auswählen

function InttoBin(aint:integer;bits:integer = 32):string;
function InttoBin(aint:integer;bits:integer = 32):string;
var
i:integer;
puffer:integer;
begin
result := '';
puffer := aint;
for i := bits-1 downto 0 do
    begin
    if puffer >= 2**i then // für ** wird unit math benötigt... ist standartmäßig dabei.
       begin
       result := result + '1';
       puffer := puffer - 2**i;
       end
      else
       begin
       result := result + '0';
       end;
   end;
end;

so ungefähr sollte das aussehen und alle probleme mit pchar sind weg .
Ach ja, die fuktion ist gerade aus dem kopf geschrieben , deshalb könnten fehler drinn auftauchen...
Zum beispiel behandelt das nicht den fall für negative zahlen- da müsste man bits auf 31 setzen und am anfang testen ob die zahl < 0 ist. Dann währe das erste bit von links eine 1 , andernfals eine 0.
Wahrscheinlich geht es sogar noch schneller mit shl...

[Maik81ftl]

interessant.
Aber wenn das deshalb nen .dll nutzt, nur wegen der funktion, dann würd ich folgendes benutzen:

Code: Alles auswählen

function InttoBin(aint:integer;bits:integer = 32):string;
var
i:integer;
puffer:integer;
begin
result := '';
puffer := aint;
for bits-1 downto 0 do
    begin
    if puffer > 2**i then // für ** wird unit math benötigt... ist standartmäßig dabei.
       begin
       result := result + '1';
       puffer := puffer - 2**i;
       end
      else
       begin
       result := result + '0';
       end;
   end;
end;

so ungefähr sollte das aussehen und alle probleme mit pchar sind weg .
Ach ja, die fuktion ist gerade aus dem kopf geschrieben , deshalb könnten fehler drinn auftauchen...
Zum beispiel behandelt das nicht den fall für negative zahlen- da müsste man bits auf 31 setzen und am anfang testen ob die zahl < 0 ist. Dann währe das erste bit von links eine 1 , andernfals eine 0.
Wahrscheinlich geht es sogar noch schneller mit shl...

Functionrückgabe als String??? damit wäre ich wieder bei dem Thema, das ich nur schwer String's bei *.so übergeben kann.

Aber danke für den Rest. des versuch ich mal.

und da du sagst, nur für diese Function? nene, in der .so solle einige functionen gesammelt werden.

[Maik81ftl]

String bzw pChar ist wie ich grade gesehen habe egal. Programm wird erst mal normal gefahren, allerdings die Rüchgabe ich lehr.

[carli]

Das Problem ist, dass der Pchar auch nur auf den Speicher des Strings verweist.

Die beste Lösung wäre, dass du die .so das Ergebnis in einen Buffer mit Maximallänge hineinschreiben lässt.

[MAC]

jap, jetzt hast du wieder das problem mit strings, aber wenn das die einzige funktion ist die du aus der .so brauchst , dann wärst du ja jetzt unabhängig von dieser. Kommt also drauf an was du der .SO übergeben willst...

edit: > zu >= geändert - schleife korrigiert...

[Maik81ftl]

jap, jetzt hast du wieder das problem mit strings, aber wenn das die einzige funktion ist die du aus der .so brauchst , dann wärst du ja jetzt unabhängig von dieser. Kommt also drauf an was du der .SO übergeben willst...

edit: > zu >= geändert - schleife korrigiert...

nun ich darf sagen! dank euch porblem gelöst

Hab mir die Function in das Testprojekt übernommen, umgeschrieben und siehe da. alle Info#s, die ich Brauche kommen.

function schaut nach Obtimierung nun so aus.

Code: Alles auswählen

function DeztoBin(aint:integer;bits:integer = 32):pChar;  cdecl;
var
B:integer;
puffer:integer;
a: String;
begin
result := '';
puffer := aint;
for B:= bits downto 0 do
    begin
    if puffer mod 2 = 0 then
       begin
       Puffer:= puffer div 2;
       a:= '0'+a;
       end
    else
        begin
        puffer:= Puffer div 2;
        a:='1'+a;
        end;
    end;
    result:= pChar(A);
end;

nur noch die zeichenlänge von 32 auf 7 runter schrauben und Wandlung ist perfekt.

Danke MAC für die schnelle vorlage.

[MAC]

stimmt, div und mod ist noch besser...
Kein problem.

[Maik81ftl]

stimmt, div und mod ist noch besser...
Kein problem.

kenn ich auch noch aus anderen Sprachen. Deine ging zwar auch soweit, aber so issen auch für andere Besser zu lesen

Das ergebnis könnt ihr wenn ihr wollt hier lesen und zurückwandeln

[Eclipticon]

Alternativ koennte man sowas verwenden:

Code: Alles auswählen

function DecToBin(AInt: integer; Bits: integer = 32): string;
const
  BinaryStrings: array[$0..$f] of string =
    ('0000', '0001', '0010', '0011', '0100', '0101', '0110', '0111',
    '1000', '1001', '1010', '1011', '1100', '1101', '1110', '1111');
var
  a: string = '';
begin
  Assert(Bits mod 4 = 0, 'Bits mod 4 <> 0');
  repeat
    a    := BinaryStrings[AInt and $0000000F] + a;
    AInt := AInt shr 4;
    Bits := Bits - 4;
  until (Bits <= 0);
  Result := A;
end;

In einem ersten kurzen Test war dieser Code bei 1e6 Zyklen > 6x schneller als der vorhin vorgeschlagene.

[Socke]

In einem ersten kurzen Test war dieser Code bei 1e6 Zyklen > 6x schneller als der vorhin vorgeschlagene.

Ist ja auch klar, da du immer in vier Bit großen Blöcken arbeitest. Daher musst du bei 32 Bit nur 32 / 4 = 8 Mal den Ergebnisstring neu erstellen (anstatt 32 Mal). Noch schneller könnte es gehen, wenn man den Ergebnisstring auf die maximale Größe (32 Zeichen) initialisiert und dann mittels eines Index die einzelnen Buchstaben setzt und am Ende nicht benötigte Zeichen vorne wieder herauskürzt.

Übrigens: In deinem Fall, ist es theoretisch egal, ob Bits ein Vielfaches von 4 ist. Wenn es das nicht ist, tauchen am Anfang des Strings maximal drei Nullen auf.

[Maik81ftl]

Alternativ koennte man sowas verwenden:

Code: Alles auswählen

function DecToBin(AInt: integer; Bits: integer = 32): string;
const
  BinaryStrings: array[$0..$f] of string =
    ('0000', '0001', '0010', '0011', '0100', '0101', '0110', '0111',
    '1000', '1001', '1010', '1011', '1100', '1101', '1110', '1111');
var
  a: string = '';
begin
  Assert(Bits mod 4 = 0, 'Bits mod 4 <> 0');
  repeat
    a    := BinaryStrings[AInt and $0000000F] + a;
    AInt := AInt shr 4;
    Bits := Bits - 4;
  until (Bits <= 0);
  Result := A;
end;

In einem ersten kurzen Test war dieser Code bei 1e6 Zyklen > 6x schneller als der vorhin vorgeschlagene.

ist zwar schöner gestatet und kürzer, aber ob das nun bei 1⁶ Zyklen schneller ist als meine variante spielt bei einem Datensatz von max. 500 Zeichen leine große rolle, solange die CPU schnell genug ist.

werd ihn aba dennoch bei meiner nächten einheit DezToHex versuchen.