Вниз
Скачать: 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.047 c
1-1102412447
denis24
2004-12-07 12:40
2004.12.26
форма-заставка


1-1103014114
Delphi5.01
2004-12-14 11:48
2004.12.26
выезжающее окошко как это сделано в WinAmp-е


1-1102470358
Viktop
2004-12-08 04:45
2004.12.26
Сохранение настроек Delphi


1-1103056989
Kolan
2004-12-14 23:43
2004.12.26
Чё то я забыл как из типизированного файла считать.


1-1102582279
Maxim_S~~
2004-12-09 11:51
2004.12.26
прогресс при загрузке программы




   Наверх