Вниз
Скачать: CL | DM;

Отрезание конца строки, как так сделать?   Найти похожие ветки 

← →
Relaxxx   (2004-12-10 05:59) [0]

Как мне сделать вот такую весчь:
Есть строка my_str, как мне узнать являються ли 2 ее последних символа ", " если да, то заменить их точкой "."


← →
Андрей ©   (2004-12-10 06:39) [1]

Купи книжечку по Паскалю и почитай ее, ДАРАГОЙ!

А вообще, сегодня у меня хорошее настроение...

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;


← →
DN ©   (2004-12-10 09:30) [2]

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"



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.021 c
9-1093282124
Creep
2004-08-23 21:28
2004.12.26
Как ввести в игру свой шрифт? Стандартными средствами Delphi7.


14-1101764522
Knight
2004-11-30 00:42
2004.12.26
Москвичи, кто слышал фамилию Трюховецкий?


1-1102661392
Илья
2004-12-10 09:49
2004.12.26
Пустая строка


1-1102528136
Руслана
2004-12-08 20:48
2004.12.26
Перестала запускаться Delphi7


3-1101969512
Ann
2004-12-02 09:38
2004.12.26
SQL запрос. Подскажите пожалуйста.




   Наверх