| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Отрезание конца строки, как так сделать? [D6, Win2k]
Relaxxx © (2004-12-10 05:59:00)Как мне сделать вот такую весчь:
Есть строка my_str, как мне узнать являються ли 2 ее последних символа ', ' если да, то заменить их точкой '.'
DN (2004-12-10 09:30:00) [1]Returns the substring of a specified length that appears at the start of a string.
Unit
StrUtils
Category
string handling routines
Еще вариант:
LeftStr function
See also
function LeftStr(const AText: string; ACount: Integer): string;
Description
LeftStr returns the leading characters of AText up to a length of ACount characters. Thus, for example,
LeftStr('Programmer', 7)
returns the string
'Program'
Андрей (2004-12-10 06:39:00) [2]Купи книжечку по Паскалю и почитай ее, ДАРАГОЙ!
А вообще, сегодня у меня хорошее настроение...
i:=length(my_str); // это, типа, длина
// вариант по одному символу
if my_str[i]=',' then my_str[i]:='.'; // это последний символ
if my_str[i-1]=',' then my_str[i-1]:='.'; // а это - предпоследний
// а это для случая, когда требуется обязательно две запятых заменять
if copy(my_str,i-1,2)=',,' then begin
my_str[i]:='.';
my_str[i-1]:='.';
end;
| |
