Forum: Object-Pascal / Delphi-Language
Delphi
by sakura,
10. Okt 2003
Ich habe obige Version noch um eine Sicherheitsabfrage und eine kleine Feinheit erweitert, damit es nicht zu Fehlern kommt :mrgreen:
...:cat:...
Forum: Object-Pascal / Delphi-Language
Delphi
by sakura,
9. Okt 2003
Ich habe die Proc einfach mal neu geschrieben, und ich denke mal, die tut jetzt, was Du willst. Die ist aber weder auf Speed noch auf Schönheit optimiert, sollte aber logisch nachzuvollziehen sein ;-)
Dieses Array würde dann 'xyz' ergeben ;-)
function Boolarrtostr(BA: Tboolarr): string;
var
TempByte: Byte;
ArrayPos, Count8Bits, MaxBits: Integer;
begin
Result := '';
Forum: Object-Pascal / Delphi-Language
Delphi
by sakura,
9. Okt 2003
Du musst sowohl Buf auf '' initialisieren (wichtig spätestens ab dem 2. Aufruf) und
Result := Buf; ;-)
...:cat:...