also der erste fehler liegt darin das
Delphi-Quellcode:
//-------- AsciitoDual (public) ----------------------------------------
function TAsciiControl.AsciitoDual (pAscii: integer) : string;
var lWert,lZwischenwert :integer;lendwert,lErgebnis :string;
begin
lWert:= pAscii; // der Wert aus pAscii wird lWert zugewiesen
repeat
lzwischenwert:= lwert mod 2; // teilen mit rest, Ergebnis wird in einer lokalen Variable gespeichert
lendwert:= inttostr(lzwischenwert); // lzwischenwert wird in einen integer verwandelt
insert(lendwert,lErgebnis,1); // lendwert wird an der ersten stelle des strings lergebnis eingefügt, da der Dualwert von hinten gelesen werden muss
until lwert mod 2 <= 1 ; // dies wird solange wiederholt bis lwert durch 2 geteilt wird und als rest entweder 1 oder 0 raus kommt
result := lErgebnis
end;
wenn ich F9 drücke wird der debugger nicht aktiviert weil der nicht inttostr kennt. Ich könnte zwar eure lösungsvorschläge nehmen aber ich schreibe eine Facharbeit über bild steganografie und muss das selbst machen
also wäre cool wenn ihr mir mit meinem helfen könntet