Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Обрезать строку по определёной длине [D6, Win2k]

dreamse © (2005-10-27 08:46:00)
Подскажите как обрезать строку по какзанной длине

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

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

arhis (2005-10-27 12:44:00) [1]
delete(string,Wantedlength,Length(string));

ORA-00000 (2005-10-27 12:37:00) [2]
Мда... А еще есть куча других способов...

---
(~|~)

msguns (2005-10-27 11:48:00) [3]
LeftStr, RightStr + uses StrUtils

dreamse (2005-10-27 09:55:00) [4]
Сам парюсь !!! SetLength

dreamse (2005-10-27 09:54:00) [5]
> ЮЮ

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

dreamse (2005-10-27 09:51:00) [6]
Спасибо !

Zacho (2005-10-27 09:11:00) [7]
А ещё есть процедура Delete(var S: string; Index, Count:Integer)
:-)

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

stud (2005-10-27 09:05:00) [9]
ну если использовать string наверное проще
result :=copy(s,1,lengthwonted)

ЮЮ (2005-10-27 08:55:00) [10]
function obrezka(S: string; LengthWanted: integer): string
begin
Result := S;
if Length (S) <= LengthWanted then Exit;
SetLegth(Result , LengthWanted);
end

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »