Wörter eingabe

[Illuminator-23-5]

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