Получение символов

← →
lobach © (2006-10-01 06:30) [0]

Здравствуйте мастера!!!
У меня есть переменная типа String, мне нужно получить первые 3 символа, подскажите пожалуйста, как это сделать.

← →
Fay © (2006-10-01 06:56) [1]

Copy

← →
Fay © (2006-10-01 06:57) [2]

Ну или
s[1], s[2] и s[3]

← →
X9 © (2006-10-01 08:17) [3]

S2 := Copy(S, 1, 3);

← →
lobach © (2006-10-05 12:51) [4]

А как послндние 3 символа получить

← →
Stakan © (2006-10-05 12:53) [5]

lobach © (05.10.06 12:51) [4]
Так - же как и первые.
А длина String определяется ф-ей Length

← →
Kolan © (2006-10-05 12:54) [6]

Length(S) = длинна строки = последний символ. Остальное подсказали уже.

← →
han_malign © (2006-10-05 12:54) [7]

> А как послндние 3 символа получить

- Copy(S,(Length(S) - 2), 3)
- StrUtils.Left/RightStr

← →
lobach © (2006-10-05 12:55) [8]

Так первые три это 1,2,3, а последние могут быть какими, длинна неизвестна

← →
MacroDenS © (2006-10-05 13:06) [9]

Так первые три это 1,2,3, а последние могут быть какими, длинна неизвестна

смотри [6] + [7]

Спасибо за Length. Мне надо-было расширение файла узнать, я так сделал:

var s:String; ext3:Integer; ext2:Integer; ext1:Integer; ext:String; begin s:="file.ext"; ext3:= Length(S); ext2:= Length(S)-1; ext1:= Length(S)-2; ext:= s[ext1]+s[ext2]+s[ext3]; end;

А если расширение файла не 3 символа?(*.conf - конфига мультиОСных серверов, *.h - хедеры в С++ и т.д.....) :))

ExtractFileExt

Может стоит сначало почитать какие ниьт книжки по основам программирования? Фаронов, например.... ПРограммирование на Turbo Pascal 7.0

> Мне надо-было расширение файла узнать

С этого и надо было начинать вопрос!

Стандартная ф-ия ExtractFileExt чем не угодила? Расширение вовсе не обязано бть из 3-х символов. Так что твой код никуда не годится по всем статьям.

> мне нужно получить первые 3 символа

> Мне надо-было расширение файла узнать

Гениально!

Получение символов Найти похожие ветки