19. Удалить из текста все буквы «а».
Пример интерфейса
Пример программы
uses
// ...
LCLProc;
//...
procedure TForm1.Button1Click(Sender: TObject);
var
c_del, s : string;
i : Byte;
begin
s := Edit1.Text; // Исходный текст.
c_del := Edit3.Text; // Удаляемая буква.
while UTF8Pos(c_del, s) <> 0 do begin
// Пока в s осталась хотя бы одна искомая буква...
// ... определяем её номер и удаляем.
i := UTF8Pos(c_del, s);
UTF8Delete(s, i, 1);
end;
Edit2.Text := s;
end;