AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Hilfe bei ascii dualsystem

Ein Thema von gaui · begonnen am 26. Jan 2009 · letzter Beitrag vom 28. Jan 2009
 
gaui

Registriert seit: 29. Dez 2008
Ort: Tecklenburg
35 Beiträge
 
Delphi 5 Standard
 
#5

Re: Hilfe bei ascii dualsystem

  Alt 27. Jan 2009, 17:13
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
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:50 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz