Delphi-Quellcode:
function NextLetter(Letter: string): string;
begin
Result := Chr(Ord(Letter[1]) + 1);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := NextLetter(Edit1.Text);
end;
Edit1: Delphi-Tags vergessen
Edit2: Zu langsam.
