in einem Memo ist im Prinzip ein String
den kannst du immer 5 Zeichenweise einlesen und das dann machen wie beschrieben
Also in der art
Delphi-Quellcode:
Function Convert(Value:String):String;
var s:String;
j,i:Integer;
begin
result := '';
while Length(value)>= 5 do begin
s := copy(value,1,5);
delete(value,1,5);
i := 0;
for j := 1 to 5 do
if s[j]='1' then
i := i + 1 shl ( j-1 );
result := result + chr(i + 65);
end;
end;
Aufruf mit
memo1.text := convert(memo1.text);
Das ist aber nun so blind hinprogrammiert
must also evtl noch den ein oder anderen Fehler rausmachen.
[Edit doch noch nen kleinen fehler gesehn.