du könntest im 1.edit das wort, und in einem 2. edit die zahlen drinnenhaben
ins OnChange-Event des 1.Editfeldes einfach immer den ganzen text ab'testen':
Delphi-Quellcode:
edit2.Text := '';
for i := 1 to length(edit1.Text) do
edit2.Text := edit2.Text + chr(edit1.Text[i])-65
ins OnChange-Event des 2.Editfeldes machst du das umgekehrte
Delphi-Quellcode:
edit1.Text := '';
while pos(',', edit2.Text) > 0 do begin
edit1.Text := edit1.Text + chr(StrToInt(copy(edit2.Text, 1, pos(',', edit2.Text) - 1)) + 65);
edit2.Text := copy(edit2.Text, pos(',', edit2.Text)+1, length(edit2.Text) - pos(',', edit2.Text)-1);
end;
müsste funzen, kanns nicht probieren
hoffe ich konnte dir helfen