Форум: "Прочее";
Текущий архив: 2006.05.21;
Скачать: [xml.tar.bz2];
Вниз
Счетчик символов Найти похожие ветки
← →
Системщик © (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;
Скачать: [xml.tar.bz2];
Память: 0.5 MB
Время: 0.012 c
