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

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

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

хвостовые пробелы

Страницы: < 1 2
dim2001 © (2006-10-05 13:22:00)
подскажите как отбросить хвостовые пробелы в строке

Думкин (2006-10-06 07:35:00) [21]

> while a[i]=#32 and i>0 do dec i;

while (i>0) and (a[i]=#32) do dec i;

SergP (2006-10-06 07:26:00) [22]

> [0] dim2001 © (05.10.06 13:22)
> подскажите как отбросить хвостовые пробелы в строке

Ну например по такому принципу:
...
i:=length(a);
while a[i]=#32 and i>0 do dec i;
setlength(a,i);
...

Джо (2006-10-06 06:48:00) [23]
> [8] SerJaNT © (06.10.06 06:18)
> а что еще?

Вместо того, чтобы задавать поспешные вопросы, лучше бы над своим кодом в [3] задумался и, вдумавшись, исправил его :)

Впрочем, Думкин в [11] уже ответил :)

Думкин (2006-10-06 06:31:00) [24]
> SerJaNT © (06.10.06 06:18) [8]

Еще и мордовые тоже.

SerJaNT (2006-10-06 06:21:00) [25]
вот есть еще

http://kladovka.net.ru/delphibase/?action=viewfunc&topic=strchange&id=10066

Думкин (2006-10-06 06:21:00) [26]
> Джо © (06.10.06 05:49) [7]

TrimRight тоже.
В смысле - не только пробелы.

SerJaNT (2006-10-06 06:18:00) [27]
а что еще?

Джо (2006-10-06 05:49:00) [28]
> [6] SerJaNT © (06.10.06 05:42)
> или просто trim()

Trim удаляет не только "хвостовые" пробелы.

SerJaNT (2006-10-06 05:42:00) [29]
или просто trim()

Джо (2006-10-06 05:33:00) [30]
> [4] Ketmar © (06.10.06 05:06)
> >[3] SerJaNT(c) 6-Oct-2006, 04:17
> больше такого не пиши.

Да, да. Нечего крайне неоптимальный и идеологически вредный код в "Начинающих" постить :)

Ketmar (2006-10-06 05:06:00) [31]
>[3] SerJaNT(c) 6-Oct-2006, 04:17
больше такого не пиши. пусть учать стандартные библиотеки. %-)

SerJaNT (2006-10-06 04:17:00) [32]
А если серъезно:

procedure LTrim(var s : string); begin while ((length(s) > 0) and (s[1] = #32)) do Delete(s, 1, 1); end; procedure RTrim(var s : string); begin while ((length(s) > 0) and (s[Length(s)] = #32)) do Delete(s, Length(s), 1); end; procedure Trim(var s : string); begin LTrim(s); RTrim(s); end;

SerJaNT (2006-10-06 04:15:00) [33]
Зачем отбрасывать, он же заново отрастет!

clickmaker (2006-10-05 13:26:00) [34]
TrimRight

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

Наверх

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