Buchstaben in ihren binär wert zerlegen

Sqall · Beiträge: 30

Hi

Kenn jemand von euch eine function oder ähnliches wo ich einen buchstaben als parameter übergeben kann und dieser mir den binär werd dieses buchstabens bzw zeichens gibt. Dieser müsste natürlich 8bit besitzen. Oder muss ich mir selber so etwas programmieren?

_________________
Bones... Promises... Both breakes

jasocul · Verfasst: So 20.02.05 19:36

Standardmäßig hat Delphi keine mir bekannte Funktion, die das kann.
Da wirst du wohl selbst drangehen müssen.

Gast Erhaltene Danke: 1

Als Parameter wodran und wofür? Und meinst du, du kannst auch ein wenig weniger

Rechtschreibfehler machen.

Sqall · Beiträge: 30

Ich meine als parameter für die funktion xyz:

xyz(a) -> gibt 8stelligen binärwert zurück

Was denkst du denn was ich als parameter meine? Das was ein parameter ist. Also will ich im prinzip eine funktion wie chr oder ord.

_________________
Bones... Promises... Both breakes

Ich Bins · Beiträge: 197 Win XP Prof D5 Prof

Ich kenne auch keine solche Funktion, d.h. du musst dir selber eine schreiben. Dazu brauchst du nur den Dezimalwert des jeweiligen Buchstabens (kriegt man über die Ascii-Tabelle raus), und dann nacheinander überprüfen ober die Zahl größer als 128, der Rst größer als 64, 32 etc. ist

_________________
Diese Nachricht wurde mit einer Taschenlampe in das offenliegende Ende eines Glasfaserkabels gemorst!

AXMD · Verfasst: So 20.02.05 20:33

Die Funktion Ord ist zu "Ich Bins"' Aussage ein heißer Tipp

AXMD

BenBE · Verfasst: So 20.02.05 20:35

Siehe cvs.sourceforge.net/...nclude/OIncProcs.pas bei Funktion ByteToBinary. Aufruf z.B.:

markieren

Delphi-Quelltext

1:
2:

var C: Char;
Str := ByteToBinary(Ord(C));

_________________

Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.

Gast Erhaltene Danke: 1

Ich hab an Parameter wie z.B. STARTPARAMETER gedacht

uall@ogc · Verfasst: Mo 21.02.05 17:49

paramstr / paramcount und dann BenBes methode

delfiphan · Beiträge: 2684 Erhaltene Danke: 32

Weniger effizient als die Funktion in der Unit weiter oben, aber hiermit kannst du ne beliebige Basis wählen. Binär, Oktal, Hex, ...

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

function chgbase(a : cardinal) : string;
const
 Base = 2;
var
 b : byte;
begin
 Result := '';
 repeat
  b := a mod Base;
  if (Base>9) and (b>9) then
   inc(b, byte('A')-byte('0')-10);
  Result := char(byte('0')+b) + Result;
  a := a div Base;
 until a=0;
end;

In deinem Fall beispielsweise mit chgbase(ord('A'))

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme