Alternative zu Replace

[Corpsman]

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.