Текущий архив: 2006.08.06;
Скачать: 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 вся ветка
Текущий архив: 2006.08.06;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.038 c
