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)='1' then
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.