Подскажите наиболее быстрый способ вырезать из строки всё,

← →
dimanew (2002-09-17 12:24) [0]

что находится после точки? (Можно просто имена ф-ий)

← →
Anatoly Podgoretsky © (2002-09-17 12:35) [1]

Вырезать - это что скопировать или удалить, в зависимости от ответа и делай перевод на английский

← →
REA (2002-09-17 12:40) [2]

Можно ChangeFileExt(Str, ""), если после последней точки надо все выкинуть

← →
dimanew (2002-09-17 12:47) [3]

Меня интересует то что находится после точки. Т.е либо вырезать
всё что находится до неё(включительно), либо скопировать всё что
после неё.

← →
Андрей Прокофьев (2002-09-17 12:48) [4]

2 REA
Я думал об этом, как о шутке... :)
Но...
ChangeFileExt("ABCD.EF \GH", ""));

← →
Anatoly Podgoretsky © (2002-09-17 12:52) [5]

Так ты сделал перевод?

← →
dimanew (2002-09-17 12:56) [6]

> Anatoly Podgoretsky
А вы, что на русском ни как?

← →
Oleon (2002-09-17 13:08) [7]

Зайди в Help и смотри функции начинающиеся с Str

← →
ЮЮ © (2002-09-17 13:09) [8]

>Можно просто имена ф-ий
>А вы, что на русском ни как?

Имена фанкций по-руСки: Копировать, Удалить :-)

← →
dimanew (2002-09-17 13:12) [9]

Когда я говорил имена функций я имел ввиду, что вы мне их
подскажите.

← →
Mike Kouzmine (2002-09-17 13:15) [10]

Copy(S,1,Pos(".",S))
Copy(S,Pos(".",S),Length(S))

← →
Yuri-7 (2002-09-17 13:17) [11]

s:=Copy(s,Pos(".",s)+1,Length(s)-Pos(".",s));

← →
dimanew (2002-09-17 13:23) [12]

>Mike Kouzmine
А это наилучший вариант?

← →
Alx2 © (2002-09-17 13:30) [13]

SetLength(S,pos(".",S));

← →
Mike Kouzmine (2002-09-17 13:42) [14]

Стандарт. Я согласен с Yuri-7, но и так работает.

← →
dimanew (2002-09-17 13:42) [15]

>Alx2
Это получится всё, что до точки, а мне надо после.

← →
Mike Kouzmine (2002-09-17 13:46) [16]

Copy(S,Pos(".",S),Length(S))

← →
Mike Kouzmine (2002-09-17 13:47) [17]

Возможно надо Pos(","S) + 1?

>dimanew (17.09.02 13:42)
Подскажите наиболее быстрый способ вырезать из строки всё,
> что находится после точки?

Извини, не понял. Я подумал "вырезать" из строки = "выкинуть" из строки.

Тогда попробуй такой изврат :)

Var
S, SS : String;
begin
S := "asdf nasdf asdf a .asdf asdf"; // - строчка для примера
SS := Pchar(@S[pos(".",S)+1]); // оставляем только то, что позади точки
ShowMessage(SS); // показываем то, что получилось.
end;

← →
Mike Kouzmine (2002-09-17 14:10) [19]

Delete(S.... далее по тексту

← →
REA (2002-09-17 15:24) [20]

А если лень делать Length(), то $FFFF тоже должно до конца строки (ну если конечно строка не такая длинная)
SetString полезно, если есть PChar указатель. Я что то побаиваюсь так присваивать: SS := PChar(@S[10]);

Подскажите наиболее быстрый способ вырезать из строки всё, Найти похожие ветки