Узнать два последних символа в строке

[Kib]

В общем есть база данных, там хранятся даты(но это не так важно). Нужно узнать два последних символа в строке, т.е. если в строке будет '01.01.2009', то нужно вырезать из нее '09', как это сделать?

Заранее благодарю.

[Juggernaut]

Нужно перебросить эту дату в строку типа string по имени например datestr, потом:

last2chars: string;
last2chars[0]:=datestr[length[datestr-1]];
last2chars[1]:=datestr[length[datestr]];

...и в переменной last2chars ты получаешь два последних символа.

[Kib]

Сработало вот так:

last2chars: string;
last2chars[0]:=datestr[length(datestr)-1];
last2chars[1]:=datestr[length(datestr)];

Но все равно спасибо. Про весы не забыл :-) .

[Juggernaut]

Да и правда... спасибо за весы))

[evg_m]

не проще ли будет использовать в запросе year(dat)

[Kib]

В моем случае year(dat) не подходит, т.к. мне нужен результат в виде "весна_09", но я уже все сделал.