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

← →
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

LeftStr, RightStr + uses StrUtils

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

---
(~|~)

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

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

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