Дана строка. В строке удалить символ двоеточие ":" и подсчитать количество удаленных символов.в делфи

[_Алексей_]

Дана строка. В строке удалить символ двоеточие ":" и подсчитать количество удаленных символов.помогите пожалуйста на делфи плохо шарю

[RuVarez]

function GetDelCount(const Data : String) : Cardinal;
var
  i,Res : Cardinal;
begin
  Result := 0;
  Res := 0;
  for i := 1 to Length(Data) do
  begin
    if Data[i] = ':' then
      Res := Res + 1;
  end; 
  Result := Res;
end;

[RuVarez]

ой забыл

function GetDelCount(var Data : String) : Cardinal;
var
  i,Res : Cardinal;
begin
  Result := 0;
  Res := 0;
  for i := 1 to Length(Data) do
  begin
    if Data[i] = ':' then
    begin
      Res := Res + 1;
      Delete(Data,i,1);
    end;
  end; 
  Result := Res;
end;

[Вадим Мошев]

вот только работать не будет это

[SlavaSSU]

var
i,kol:integer;
s:string;
begin
writeln('vvedite stroku');
readln(s);
kol:=0;
i:=1;
while i<=length(s) do 
if s[i]=':' then begin delete(s,i,1); inc(kol); end else inc(i);
writeln('s=',s);
writeln('kol=',kol);
end.

[_Алексей_]

15:50
спасибо большое

15:52
че то не робит блин

15:53
может надо выводить тока куда в лабель или мемо?

15:53
напишите рабочую плиз с вывадом данных желательно лабель


_____________________________
Форум - не чат!
Не надо плодить подряд несколько коротких сообщений!
Это нарушение правил...
для того, чтобы через минуту/другую дописать сообщение,
не надо создавать ещё один новый пост.
нажимайте на предыдущем кнопку "Правка"
и дописывайте в своё сообщение, что Вы хотели добавить!

Модератор.

[Serge_Bliznykov]

SlavaSSU, молодец.

RuVarez, не зачёт!


_Алексей_, ПОЗОР!
Вы что, самостоятельно не можете переменную в Label вывести?!?!!!
вместо WriteLn... напишите что-то вроде:

Label2.Caption := s;
Label3.Caption := 'Количество равно ' + IntToStr(kol);