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

Обрезать строку по определёной длине   Найти похожие ветки 

← →
dreamse   (2005-10-27 08:46) [0]

Подскажите как обрезать строку по какзанной длине

что то типа obrezka("aaaaaaaaaaaaaaaaaaaaaaaaa",5)

получаеться aaaaa


← →
ЮЮ ©   (2005-10-27 08:55) [1]

function  obrezka(S: string; LengthWanted: integer): string
begin
 Result := S;
 if Length (S) <= LengthWanted then Exit;
 SetLegth(Result , LengthWanted);
end


← →
stud ©   (2005-10-27 09:05) [2]

ну если использовать string наверное проще
result :=copy(s,1,lengthwonted)


← →
ЮЮ ©   (2005-10-27 09:09) [3]

>stud ©   (27.10.05 09:05) [2]
obrezka в один оператор совсем уж не круто :)


← →
Zacho ©   (2005-10-27 09:11) [4]

А ещё есть процедура Delete(var S: string; Index, Count:Integer)
:-)


← →
dreamse   (2005-10-27 09:51) [5]

Спасибо !


← →
dreamse   (2005-10-27 09:54) [6]

> ЮЮ

Ругаеться на SetLegth что делать ?


← →
dreamse   (2005-10-27 09:55) [7]

Сам парюсь !!! SetLength


← →
msguns ©   (2005-10-27 11:48) [8]

LeftStr, RightStr + uses StrUtils


← →
ORA-00000 ©   (2005-10-27 12:37) [9]

Мда... А еще есть куча других способов...

---
(~|~)


← →
arhis   (2005-10-27 12:44) [10]

delete(string,Wantedlength,Length(string));



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

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



Память: 0.46 MB
Время: 0.022 c
1-1130423595
_pioner_
2005-10-27 18:33
2005.11.20
Собственные шрифты в проге


2-1131018364
Vetalich
2005-11-03 14:46
2005.11.20
Время задержки (ping)


2-1130849562
BFG9k
2005-11-01 15:52
2005.11.20
Закрытие программы в OnCreate


14-1130501973
NiGGa
2005-10-28 16:19
2005.11.20
Компонента графика


14-1130755692
Fist
2005-10-31 13:48
2005.11.20
Катастрофа на Солнце: дела все хуже




   Наверх