Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Срез длинной строки [D7, XP]

Страницы: 1 2 >
lobach © (2006-10-28 10:55:00)
помогите с этой функцией, она должна срезать строку(до длинны num), если в ней более num символов
function srez(stroka: string; num:integer): String;
var
i: integer;
ns: String;
begin
i:=1;
if Length(stroka) = num then
result:=stroka;
if Length(stroka) < num then
result:=stroka
else begin
while i <= num do
result:=ns+stroka[i];
i:=i+1;
end;
end;
Помогите

Ketmar (2006-10-30 00:03:00) [1]
1000 делить, конечно %-)

Ketmar (2006-10-30 00:03:00) [2]
>[28] MikePetrichenko(c) 29-Oct-2006, 23:56
>Так вроде и не доказано... :(
так мы ж сошлись на том, что все правы. раз все -- надо 100 делить на три. согласен даже на просто отбрасывание дробной части. %-)

MikePetrichenko (2006-10-29 23:56:00) [3]

> так не опровергнуто ведь! %-)

Так вроде и не доказано... :(

Ketmar (2006-10-29 23:48:00) [4]
>[26] MikePetrichenko(c) 29-Oct-2006, 23:43
>Ага. Один уже надоказывался с доказательной базой.
>:)
так не опровергнуто ведь! %-)

MikePetrichenko (2006-10-29 23:43:00) [5]
Ага. Один уже надоказывался с доказательной базой.
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1162141206&n=18
:)

Ketmar (2006-10-29 17:05:00) [6]
>[23] Пусик(c) 29-Oct-2006, 16:41
>А представь некого мужчину в такой ситуации.
>Да нос об стол разобьет, но ошибку не признает.
обобщённые (или обезличеные) выводы без доказательной базы -- это разве не признак того же самого?

MetalFan_pda (2006-10-29 17:03:00) [7]
а еще вариант!
Delete(str,trimcount+1,maxint)

Пусик (2006-10-29 16:41:00) [8]

> vidiv © (29.10.06 16:06) [22]
> > Да, признаю, ошибку.... Спутала с другой функцией.Так
> тебе!!! Женщина =))

А представь некого мужчину в такой ситуации.
Да нос об стол разобьет, но ошибку не признает.
(к слову - как раз одно из проявлений ламеризма).

vidiv (2006-10-29 16:06:00) [9]

> Да, признаю, ошибку.... Спутала с другой функцией.

Так тебе!!! Женщина =))

Пусик (2006-10-29 00:28:00) [10]
Да, признаю, ошибку.... Спутала с другой функцией.

Ketmar (2006-10-29 00:13:00) [11]
>[19] Орион(c) 29-Oct-2006, 00:12
>обоснуй.
ага. мне тоже любопытно, как наша непримиримая воительница справится.

Орион (2006-10-29 00:12:00) [12]
> [18] Пусик © (29.10.06 00:11)

обоснуй.

Пусик (2006-10-29 00:11:00) [13]

> > [16] Пусик © (29.10.06 00:07)Result:=Copy(stroka, 1,
> num);Полностью рабочий код.

Ответ неверный.

Орион (2006-10-29 00:10:00) [14]
> [16] Пусик © (29.10.06 00:07)

Result:=Copy(stroka, 1, num);
Полностью рабочий код.

Пусик (2006-10-29 00:07:00) [15]

> Ketmar © (29.10.06 00:02) [14]
> >[12] Пусик(c) 28-Oct-2006, 23:50>С чего бы это?с того,
> что не надо начинающих учить невесть чему. в частности -
> - ваять монстров, когда достаточно одной Copy().

Приведи рабочий код в одну строку.

DVM (2006-10-29 00:02:00) [16]

> Первая часть правильна, а вот часть должна быть выполнена
> с помощью функции Copy.

и потом Paste :)

Ketmar (2006-10-29 00:02:00) [17]
>[12] Пусик(c) 28-Oct-2006, 23:50
>С чего бы это?
с того, что не надо начинающих учить невесть чему. в частности -- ваять монстров, когда достаточно одной Copy().

зыж кого интересует мой код -- у меня для этого сайт есть. ага.

Пусик (2006-10-28 23:51:00) [18]
Я, в отличие от некоторых, не считаю зазорным свой код показывать здесь.

Пусик (2006-10-28 23:50:00) [19]

> спрячь. и никому не показывай.

С чего бы это?

Ketmar (2006-10-28 23:39:00) [20]
>[10] Пусик(c) 28-Oct-2006, 23:21
спрячь. и никому не показывай.

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »