Umrechner Binär in Dezimal

[Sekkuar]

Hallo,
ich suche jemand der mir helfen kann. Ich soll für die schule eine Umrechner Prgramieren hab soweit alles hinbekommen was wir machen sollen, ausser von Binär in Dezimal. Hab bis jetz auch nur einträge hier gefunden die mit einem ReverString arbeite. Das Problem is nun das ich eine zu alte Version haben und es mit diesem ReverString nit geh, hat jemand ne idee wie ich das das ohne diesen reverString machen? Am bessten mit Quelltext. danke euch im vorraus.

[Wolfgang Mix]

Herzlich willkommen in der DP :dp:
Schaue erstmal in der Delphi-Rererence hier

[DP-Maintenance]

Dieses Thema wurde von "Matze" von "Neuen Beitrag zur Code-Library hinzufügen" nach "Sonstige Fragen zu Delphi" verschoben.
In die Code-Library gehören nur funktionierende Codes.

[Micha88]

Ich habe es im Kopf schneller umgerechnet, als dass irgendwann ein Programm steht =)

Aber ohne Quatsch. Ein Mal auswendig lernen und immer Spaß haben.

[Wolfgang Mix]

@Michael Linden:

Du hast wohl recht bei relativ kleinen Zahlen
Wenn Du aber 4 Oktette aus 'ner IP und nochmal
4 Oktette aus der Subnet-Mask dazu binär vorliegen hast,
ist so ein Hilfsprogramm schon nett, bei diesem Wetter
nach ein paar Glühwein. Der TE müß ja noch für dis Schule
lernen, vielleicht später dann für sich :)

Gruß

Wolfgang

[Sekkuar]

Ich auch, nur das is nit die aufgabe die ich von meinem Lehrer bekommen hab. Hab auch nachgeguckt und nix gefunden, da die meisten mit dem Reverstring arbeiten der in v.6 nit geht.

[Wolfgang Mix]

Beim Suchen nach Reverstring wirst du an gleicher Stelle auch mehrfach fündig

[Jens Hartmann]

Hallo,

vieleicht hilft Dir ja das hier...

Delphi-Quellcode:

function IntToBin(Int: Integer): String; 
var 
  i : Integer; 
begin 
  Result := ''; 
  for i := 7 downto 0 do 
  Result := Result + IntToStr((Int shr i) and 1); 
end; 

function BinToInt(Binary: String): Integer; 
var 
  i : Integer; 
begin 
  Result := 0; 
  for i := Length(Binary) downto 1 do 
  Inc(Result, StrToInt(Binary[i]) * 1 shl (Length(Binary) - i)); 
end;

Gruß Jens

[Matze]

Zitat:

Zitat von Sekkuar

[...] da die meisten mit dem Reverstring arbeiten [...]

Zitat:

Zitat von Wolfgang Mix

Beim Suchen nach Reverstring wirst du an gleicher Stelle auch mehrfach fündig

Ich weiß zwar nicht, was ihr beide mit "ReverString" meint, aber wenn es um das Umkehren von Strings geht, wäre ReverseString der bessere Suchbegriff.

[Wolfgang Mix]

Wenn ich richtig gelesen habe, will er von dual nach dezimal konvertieren

@Matze
Hast rccht, Dreckfuhler und der Mist mit Copy und Paste :)