zahl durch ein Zeichen ersetzen ?

[NickelM]

Ich würde es mal so versuchen :

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject); 
var 
i: Integer; 
zeichen: String; 
StringVoll : String;
begin 
StringVoll := Edit1.Text; // erstmal kompletten string speichern
for i := 6 to 7 do 
zeichen:=Edit1.Text[i]; 
if zeichen = '0' then // zeichen im vollenstring ändern
StringVoll[i] :='x'; 
if zeichen = '1' then 
StringVoll[i] :='n' 
end;
Edit2.Text := StringVoll; // dann geänderter string rausgeben;

end;