Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.05.21;
Скачать: CL | DM;

Вниз

Счетчик символов   Найти похожие ветки 

 
Системщик ©   (2006-04-21 21:38) [0]

Прива! Как составить программу для определения количества запятых в тексте? Например: ученики изучают физику, историю, химию, математику. Заранее пасиб.


 
Рамиль ©   (2006-04-21 21:43) [1]

Берешь и считаешь, в чем проблема то?


 
Desdechado ©   (2006-04-21 21:46) [2]

перебираешь символы в строке, сравнивая с запятой
если сравнение удачное, плючуешь счетчик


 
Системщик ©   (2006-04-21 21:47) [3]

мне надо прогу составить. глупая прога, но надо.


 
Zeqfreed ©   (2006-04-21 22:04) [4]

function CountCommas(const Str : String) : Cardinal;
var
 i : Integer;
begin
 Result := 0;
 if (Str = "") then Exit;

 for i := 1 to length(Str) do begin
  if (Str[i] = ",") then Inc(Result);
 end;
end;


 
Системщик ©   (2006-04-21 22:14) [5]

Спасиба!


 
Desdechado ©   (2006-04-21 22:54) [6]

> глупая прога, но надо
если ты даже глупую не хочешь сам подумать, то лучше меняй профессию
на ту, где думать не надо


 
Системщик ©   (2006-04-21 23:18) [7]

А для чего тогда этот форум создали? Я сам хочу сделать, но не знаю как. А спрашивать мне не у кого. А насчет того что мне надо я сам без тебя знаю.


 
Системщик ©   (2006-04-21 23:32) [8]

Удалено модератором
Примечание: Дело не в Дельфи, а в ДНК...


 
Johnmen ©   (2006-04-21 23:34) [9]

Дети уже достали....

Модераторы, в чём дело???


 
Системщик ©   (2006-04-21 23:39) [10]

Удалено модератором


 
Gydvin ©   (2006-04-21 23:40) [11]


> Системщик ©


У-у-уу какой ты умный


 
Gydvin ©   (2006-04-21 23:41) [12]

Да мля, тебе готовый ответ в чем проблемы ????????


 
Системщик ©   (2006-04-21 23:43) [13]

Гудвин напиши как делать подробней.


 
Gydvin ©   (2006-04-21 23:45) [14]

procedure TForm1.Button1Click(Sender: TObject);

   function CountCommas(const Str : String) : Cardinal;
       var
       i : Integer;
       begin
     Result := 0;
     if (Str = "") then Exit;

     for i := 1 to length(Str) do begin
      if (Str[i] = ",") then Inc(Result);
     end;

 end;

begin

showmessage(inttostr(CountCommas("Мама, мыла, раму, ааааааааааа")));

end;


Тяжко???


 
Системщик ©   (2006-04-21 23:49) [15]

Гудвин красавец!!! Работает.


 
Системщик ©   (2006-04-21 23:50) [16]

Гудвин пришли мне на мыло че нидь обучающее.


 
Gydvin ©   (2006-04-21 23:53) [17]

В гугле поищи delphi для начинающих, километр и маленькая тележка


 
SergP ©   (2006-04-22 04:40) [18]

Удалено модератором


 
Системщик ©   (2006-04-22 13:57) [19]

Может кто нибудь объяснить принцип работы этой программы, т.е пошагово оббъяснить функцию каждй процедуры.


 
Юрий Зотов ©   (2006-04-22 13:59) [20]

И конечно же, с высшим образованием...


 
Leonid Troyanovsky ©   (2006-04-22 13:59) [21]


> Системщик ©   (22.04.06 13:57) [19]


Систематический халявщик.

--
Regards, LVT.


 
Системщик ©   (2006-04-22 14:07) [22]

Да ладно пацаны, накалякайте. Вы же мозг!


 
Anatoly Podgoretsky ©   (2006-04-22 14:50) [23]

Desdechado ©   (21.04.06 22:54) [6]
Не знаю таких, разве что депутат государственно думы, но вроде это не профессия.


 
Системщик ©   (2006-04-22 14:55) [24]

И че за дела? Кто нибудь ответьте


 
Джо ©   (2006-04-22 14:56) [25]

> [24] Системщик ©   (22.04.06 14:55)
> И че за дела? Кто нибудь ответьте

Матом или административно?


 
Marser ©   (2006-04-22 14:58) [26]

> [20] Юрий Зотов ©   (22.04.06 13:59)
> И конечно же, с высшим образованием...

Меня больше оскорбляет, что "Системщик", ещё бы "железячником" назвался. Ничего, блин, святого...


 
Ketmar ©   (2006-04-22 15:13) [27]

ну "системный пипл", шо не ясно? %-)
обкурился немного, решил дельфи поучить... поучил... дельфи жизни...


 
boriskb ©   (2006-04-22 16:22) [28]

Если не из своих кто прикалывается, то просто супер! :))
Каких только не бывает :))



Страницы: 1 вся ветка

Текущий архив: 2006.05.21;
Скачать: CL | DM;

Наверх




Память: 0.53 MB
Время: 0.028 c
3-1143615822
vopros
2006-03-29 11:03
2006.05.21
Если requestlive=true будет ли такой запрос доступен для редактир


6-1129636325
Cosinus
2005-10-18 15:52
2006.05.21
Как отследить активность определенного порта?


2-1146573121
49 Cent
2006-05-02 16:32
2006.05.21
Вопрос по клонированию


15-1146057540
rolex2002
2006-04-26 17:19
2006.05.21
Как удалить системные точки восстановления?


2-1146220976
фил
2006-04-28 14:42
2006.05.21
delphi