Скачать: CL | DM;

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]

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

---

← →
IceBeerg ©   (2006-07-12 18:51) [10]

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

---

← →
Ильдар ©   (2006-07-16 14:52) [11]

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];
........

---

← →
SergP ©   (2006-07-16 15:36) [12]

> [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];
> ........


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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.024 c