Hallo,
danke für die ganzen Antworten, ich habe mir eure Lösungsvorschläge angeschaut, leider konnte ich jetzt zwei Tage nicht ins Internet und habe mir meine eigene Lösung geschrieben... zumindest versucht.
Bei mir kommt die Fehlermeldung:
[Fehler] TypUmwandlungen.pas(109): Inkompatible Typen: 'Char' und 'ShortString'
Hier der Quellcode:
Delphi-Quellcode:
function BitToAsc(Bit :AnsiString): AnsiString;
var
i:integer;
begin
result:='
';
// Zuerst die Zahl auf durch 8 Teilbar bringen
while length(Bit)
mod 8 <> 0
do Bit:=Bit + '
0';
// Dann immer 8 Bit Werte in einen ASCII Wert umwandeln
for i:=1
to (length(bit)
div 8)
do
result[i]:=result[i] + char(1 + BitToInt(Bit[1+(i-1)*8] + Bit[2+(i-1)*8] + Bit[3+(i-1)*8] + Bit[4+(i-1)*8] + Bit[5+(i-1)*8] + Bit[6+(i-1)*8] + Bit[7+(i-1)*8] + Bit[8+(i-1)*8]));
// In dieser Zeile kommt die Fehlermeldung
end;
function BitToInt(Bit:
string):integer;
var
i, zahl: integer;
begin
result:=0;
zahl:=1;
for i:=1
to length(bit)
do
begin
if strtoint(bit[i])=1
then result:=result + zahl;
inc(zahl,zahl);
end;
end;
Ich hoffe das der Quellcode, wenn der eine Fehler behoben ist, funktioniert... habe ihn leider noch nicht testen können, aber aus meiner Sicht müsste er hinhauen.....
Kann mir jemand sagen warum dieser Fehler kommt? Wiso kann ich einen String kein Chat zuordnen, das es anders rum nicht geht ist logisc, aber das es so nicht geht wie ich es gemacht habe kapier ich nicht.....
Ferby