Ich bin gerade nicht zuhause am PC, hier ist kein Delphi vorhanden. Ich erkläre das alles gerade theoretisch in meiner Facharbeit.
Was wird nun genau aus dem String gelöscht? Die 1 ? das würde aber ja kein Sinn machen.
Bei Copy wird also an jeder der 8 Stellen geguckt ob eine 1 vorhanden ist, ist diese nun vorhanden wird je nach dem an Welcher Stelle die zahl ist in der Case Anweisung die Zahl genommen und addiert.
Aber wäre dann dieser code nicht überflüssig ? Ich verstehe leider nicht den Sinn dahinter.
Delphi-Quellcode:
for y:= 1 to 8 do
begin
binDS:=binDS+binCodeA[1];
delete(binCodeA,1,1);
end;