@Furtbichler
Der TE hat gefragt, der TE hat Möglichkeiten erhalten. Was er damit macht, ist sein Sache. Vielleicht führt das nirgendwo, vielleicht entwickelt er daraus den genialen Komprimieralgorithmus. Aber vielleicht macht er daraus nur Musik
Delphi-Quellcode:
procedure MachMusikAusDemString(s: string);
var
i: Byte;
begin
for i := 0 to Length(s) do
if s[i] = '1' then Windows.Beep(300 * Random(7), 100) else Sleep(100);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
s := '0100100001100001011011000110110001101111001000000101011101100101011011000111010000100001';
MachMusikAusDemString(s);
end;
@MeierZwoo
Jajn:
http://de.wikipedia.org/wiki/Byte