dezimal/string/hex/binär-umrechner

[Jan]

Hallo DP,
Ich habe ein ganz kleines Tool programmiert (nicht von der Dateigröße her klein), welches beliebige, in der Überschrift genannte, Werte ineinander umrechnet. Zusätzlich kann man noch ganze Stringketten in ihre Hexwerte umrechnen lassen.
Das Programm entstand, weil Daniel B mich darauf angesprochen hatte, er hat auch Anstöße zum Grundkonzept geliefert.
Wenn noch was fehlt, oder falsch ist, MOTZEN!!!
Gruß
Jan

[MrHammer]

Zitat von Ultimator:

@MrHammer:
Ist doch schnell programmiet, wenn es nur Binär nach Dezimal konvertieren soll.
Hier ist ein Code dafür: http://www.delphipraxis.net/internal...ect.php?t=4419

Das ganze musst du halt noch mit der Datei machen (entweder AsssignFile oder TFileStream oder auch TStringList) und in ner Schleife alle Werte konvertieren und ggf. in eine andere Datei schreiben.

Hehe das is ja alles schön und gut, aber ich kan keine Richtigen Programmiersprachen.. aber ich dachte hier werden sie geholfen ... naja aber sieht sich sehr interessant aus.. also vielleicht sollte ich mich doch mal mit der materie mal vertraut machen. Wäre aber trotzdem froh wenn mir derweil jemand weiterhelfen könnte

greez mrhammer

[marabu]

Hallo MrHammer,

das Programm im Anhang kannst du anpassen und kompilieren. Als Muster deiner Eingabedaten genügen zwei Zeilen - den Rest kannst du gerne löschen.

marabu

und herzlich willkommen noch im Forum...

[Stresemann]

Hallo zusammen! Ich brauche dringend hilfe, da ich für die Schule eine Verschlüsselung von Texten erstellen wollte.
Dazu brauche ich allerdings erstmal eine nette function wie ich von string auf dezimalzahlen komme.
Gibt es da eine leichte Lösung? Kann mir jemand mit wuelltext helfen?
Am besten schnell! THX!

[Stresemann]

Zitat von Stresemann:

Kann mir jemand mit wuelltext helfen?

Ich meine natürlich Quelltexte!

[Daniel G]

Ord() liefert dir von einem Zeichen den ASCII - Code. Somit hast du einen Dezimalwert. Einen String kannst du Zeichenweise z.B. so durchgehen:

Delphi-Quellcode:

var
i,n: integer;
Satz: String;
begin
for i := 0 to (length(Satz)-1) do
n := Ord(Satz[i]);
end;

nicht getestet...

[Stresemann]

Jo, danke! Ist nur ein kleiner Fehler!

Code:

for i := 0 to (length(Satz)) do
n := Ord(Satz[i]);

[Daniel G]

ah, ok... ich war mir bei length nicht mehr ganz sicher...

[Stresemann]

Jetzt fehlt mir nur noch eins ...
Das umgekehrte von Ord().. Ich brauch was, womit ich aus
Dezimalzahlen wieder String bekomme.. Wär toll wenn du das auch wüsstest..

[Daniel G]

Chr()

[Stresemann]

Primaa! Danke!