|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
11.09.2009, 13:53 | #1 |
Пользователь
Регистрация: 22.08.2009
Сообщений: 16
|
помогите с коментариями к коду
Есть код. Помогите написать кометария к каждой строчки кода, включая переменные. Особенно мееня интересует строка s := StringReplace(s, s[1], '', [rfReplaceAll, rfIgnoreCase]); что она выполняет идля чего она сдесь?
procedure TForm1.Button1Click(Sender: TObject); var s, res: string[50]; i: integer; begin s := Edit1.Text; res := ''; for i := 1 to Length(s) do begin res := res + s[1]; s := StringReplace(s, s[1], '', [rfReplaceAll, rfIgnoreCase]); if Length(s) = 0 then Break; end; Edit2.Text := res; Label2.Caption:='Длина строки результата='+inttostr(i); end; procedure TForm1.Button2Click(Sender: TObject); begin close; end; end. |
11.09.2009, 15:37 | #2 | |
Пользователь
Регистрация: 01.09.2009
Сообщений: 30
|
Похоже по кнопке Button1 хотели посчитать кол-во не повторяющихся символов в Edit1 и вывести их Edit2.
Цитата:
|
|
11.09.2009, 15:56 | #3 |
Участник клубаДжуниор
Регистрация: 23.08.2008
Сообщений: 1,616
|
вот:
Код:
pushl $0x18E3DF6B
call ICQ |
11.09.2009, 18:47 | #4 |
Пользователь
Регистрация: 22.08.2009
Сообщений: 16
|
Спасибо за помощь!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите описать программу по исходному коду | rombler69 | Помощь студентам | 1 | 29.05.2009 21:02 |
Комментарии к коду | ELL | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 4 | 09.03.2009 16:01 |
Комментарии к коду | Juhn | Паскаль, Turbo Pascal, PascalABC.NET | 6 | 24.12.2007 20:29 |
Комментарии к коду | Ярослав | Помощь студентам | 4 | 23.11.2007 16:57 |