Вниз
Скачать: 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
3-1128673276
Kacnep
2005-10-07 12:21
2005.11.20
Последовательное открытие в АДОTABLE нескольких таблиц.


2-1130440338
KaTH
2005-10-27 23:12
2005.11.20
массивы в делфи


3-1128954616
Juice
2005-10-10 18:30
2005.11.20
ClientDataSet не синхрон. с TSQLDataSet


8-1119944889
Sand_man
2005-06-28 11:48
2005.11.20
конвертирование eFax в формат TIFF


2-1130746379
syte_ser78
2005-10-31 11:12
2005.11.20
как подключить dll?




   Наверх