[flips]

Задание: нужно написать программу которая удаляет пробелы внутри строки.
Нужна помощь в реализации
Код:

Код:

procedure DelMidSpace(var s:string);
var i,cnt:integer;
begin
 cnt:=length(s);
 for i:=1 to cnt do
  if ord(i)=32 then
   s[i]:=s[i+1];
 cnt:=cnt-1;
end;

Желательно пояснить, что я написал не так.

[v1s2222]

Во первых есть функция Trim, которая удаляет лишние пробелы и непечатаемые символы.
Ну а удаление пробелов если надо своя функция:

Код:

function MyTrim(S: String): String;
var i: Integer;
begin
Result := S;
for i:=1 to Length(Result) do
if(Result[i] = ' ') then
Delete(Result, i, 1);
end;

Функция очень простая, думаю объяснений не надо...
Циклом пробегаем по всем символам строки, и, если находим пробел, удаляем его из результата...

[dr. F.I.N.]

А вот так?

Код:

NewStr := StringReplace(YourStr, #32, '', [frReplaceAll]);

[Страдалецъ]

Основная ошибка ваша в том, что длину строки вы вычисляете сразу, а ведь в результате удаления символов длина тоже будет меняться.
Поэтому начинать надо не с 1 позиции, а с последней, тогда даже если мы удалим символ на следующий проход это влиять не будет.

Код:

 
 for i := Length(s) downto 1
 do if s[i] = ' ' then Delete(s, i, 1);

Как вариант можно формировать новую строку копируя символы из старой но без пробелов:

Код:

s1 := '';
for i := 1 to Length(s)
 do if s[i] <> ' ' then s1 := s1 + s[i];

[flips]

v1s2222, я так сначало писал, но всеравно возвращало ту же строку. Спасибо за старания.
dr. F.I.N., это когда учится, сдается мне что такого не учили или прослушал. То что вы написали очень интересно, спасибо за старания.
Страдалецъ, спасибо, Вы очень помогли. Как-то не подумал насчет длинны строки, но в целом только условие неправильно.
Всем спасибо за старания и помощь.

[flips]

Напишите пожалуйста код программы по такому условию:
Обеспечить вывод в компонент TMemo всех целых чисел, попадающих в интервалот n1 до n2 и кратных n3. Определить колличество этих чисел.
Это нужно не мне, а знакомому. Спасибо за внимание.

[Bargest]

Код:

s:='';
for i:=n1 to n2 do
 if i mod n3 = 0 then s:=s+inttostr(n3)+' ';
Memo1.lines.Add(s);