string

← →
zdm (2006-07-12 14:25) [0]

есть переменная :string
значение 1.2.33.445
нужно выхватить последнее после точки значение (444)

← →
zdm (2006-07-12 14:26) [1]

в смысле (445)

← →
Джо © (2006-07-12 14:26) [2]

> нужно выхватить последнее после точки значение (444)

Последнее после точки значение — "445" ;>

Используй цикл, поэлементный доступ к строке [] и функцию Copy.

← →
zdm (2006-07-12 14:26) [3]

Поподробней пожалуйста

← →
Джо © (2006-07-12 14:29) [4]

Даже без Copy, пожалуй.

← →
Mozgan (2006-07-12 14:29) [5]

Полагаю, что сначала нужно пробежаться по всей строке от начала до последней позиции - испльзyй Length. for i:=0 to Length (st) do.... потом копируем в другую переменную с помощью Copy последние 3 символа.

← →
Джо © (2006-07-12 14:30) [6]

> [3] zdm (12.07.06 14:26)
> Поподробней пожалуйста

Заводишь цикл, в котором идешь с конца строки к ее началу до первой встретившейся точки, копируя символы в новую строку.

← →
Mozgan (2006-07-12 14:31) [7]

Да-да! чета тормозить стал. Действительно с конца строки на самое начало! В ЦИКЛЕ

← →
Dmitrij_K (2006-07-12 14:31) [8]

function Functiya(const sss: string): string; var I: Integer; begin I := LastDelimiter(".", sss); if (I > 0) and (sss[I] = ".") then Result := Copy(sss, I+1, MaxInt) else Result := ""; end;

← →
zdm (2006-07-12 14:36) [9]

Всем большое спасибо

Хе-хе, а если "заюзать" ExtractFileExt?

var i,j:integer; slovo,slovo1:string;
.......
for i:=1 to length(slovo) do
if slovo[i]="." then
for j:=i+1 to length(slovo) do
slovo1:=slovo1+slovo[j];
........

> [11] Ильдар © (16.07.06 14:52)
> var i,j:integer; slovo,slovo1:string;
> .......
> for i:=1 to length(slovo) do
> if slovo[i]="." then
> for j:=i+1 to length(slovo) do
> slovo1:=slovo1+slovo[j];
> ........

Ну и что у тебя получится? :-)

string Найти похожие ветки