Работа со строками в Delphi 7.0

[Димкоff]

Это последняя просьба от меня. нужно составить приложение, которое вычеркивает КАЖДУЮ ТРЕТЬЮ букву какого-то слово(слово вводим сами). Последнее, что осталось в курсаче

[Fantazerishka]

slovo:=edit1.text;
delete(slovo,3,1);
Memo1.Lines.Add(slovo);

Вот, можешь ещё добавить проверку на то что в слове больше двух символов и на то что третий символ не пробел.
П.С. тут тупо удаляет третью букву, а не каждую третью...

[Alex Cones]

Фальстарт ...

[Димкоff]

вообщем, что-то не работает((( буду звать друга-"кулибина")))

[Serge_Bliznykov]

var s : string;
  i : integer;
begin
  // занесли слово в переменную s
  s := Edit1.Text;

  // вот, собственно код удалёния каждой третьей буквы
  for i:=length(s) downto 1 do
    if (i mod 3)=0 then
      Delete(s,i,1);

  ShowMessage('Слово после удаления: ' + s );