AGB  ·  Datenschutz  ·  Impressum  







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

Quelltext Verständnis Problem

Ein Thema von tEhHoLLoW · begonnen am 30. Mär 2008 · letzter Beitrag vom 1. Apr 2008
 
tEhHoLLoW

Registriert seit: 10. Feb 2008
9 Beiträge
 
#1

Quelltext Verständnis Problem

  Alt 30. Mär 2008, 21:30
Ich hab von einem Freund ein Stück Quelltext für mein Programm bekommen aber er ist jetzt im Urlaub und kann es mir nicht wirklich erklären ich hoffe ihr könnt mir dabei helfen

Der 1. Teil Wandelt einen Text in Binär Zahlen um.

Delphi-Quellcode:
binCodeA:='';
        asc:= length(cop);

        for y:= 1 to asc do
        begin
                zahl:=ord(cop[y]);
                zahl2:=zahl;
                binCodeS:='';

                while zahl2>0 do
                begin
                        bin:=zahl2 mod 2;
                        zahl2:=zahl2 div 2;
                        binCS:=inttostr(bin);
                        binCodeS:=binCS+binCodeS;
                end;

                if length(binCodeS)<8 then
                begin
                        hlp:=8-length(binCodeS);

                        for x:= 1 to hlp do
                        begin
                                binCodeS:='0'+binCodeS;
                        end;

                end;

                binCodeA:=binCodeA+binCodeS;
        end;

Der 2. Teil wandelt die Binär Zahlen dann wieder zurück in Text.

Delphi-Quellcode:
        binCodeA:=code.Text;
        binDecodeS:='';
        binDecodeA:='';
        hlp:=length(binCodeA);
        count:=hlp div 8;

 

        for x:= 1 to count do
        begin
                binDS:='';

                for y:= 1 to 8 do
                begin
                        binDS:=binDS+binCodeA[1];
                        delete(binCodeA,1,1);
                end;
                
                for z:= 1 to 8 do
                begin
                        if copy(binDS,z,1)='1then
                        begin
                                case z of
                                1: zahl3:=128;
                                2: zahl3:=64;
                                3: zahl3:=32;
                                4: zahl3:=16;
                                5: zahl3:=8;
                                6: zahl3:=4;
                                7: zahl3:=2;
                                8: zahl3:=1;
                                end;
                        end
                        else
                        begin
                                zahl3:=0;
                        end;

                        zahl4:=zahl3+zahl4;
                end;

                binDecodeS:=chr(zahl4);
                zahl4:=0;
                binDecodeA:=binDecodeA+BinDecodeS;
        end;

Die Quelltexte sind alle richtig und funktionieren auch perfekt in meinem Programm aber ich verstehe die einzelnen befehle nicht wirklich und hoffe ihr könnt mir ein paar Kommentare zu den einzelnen Zeilen schreiben damit ich den Quelltext auch verstehe den ich benutze.
Vorallem der 2. Teil mit dem copy und delete sind mir nicht so verständlich.
  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 01:58 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 by Thomas Breitkreuz