Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Подскажите наиболее быстрый способ вырезать из строки всё, [D5, D6, Win95/98]

dimanew © (2002-09-17 12:24:00)
что находится после точки? (Можно просто имена ф-ий)

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

Mike Kouzmine (2002-09-17 14:10:00) [2]
Delete(S.... далее по тексту

Alx2 (2002-09-17 13:56:00) [3]
>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 13:47:00) [4]
Возможно надо Pos(","S) + 1?

Mike Kouzmine (2002-09-17 13:46:00) [5]
Copy(S,Pos(".",S),Length(S))

dimanew (2002-09-17 13:42:00) [6]
>Alx2
Это получится всё, что до точки, а мне надо после.

Mike Kouzmine (2002-09-17 13:42:00) [7]
Стандарт. Я согласен с Yuri-7, но и так работает.

Alx2 (2002-09-17 13:30:00) [8]
SetLength(S,pos(".",S));

dimanew (2002-09-17 13:23:00) [9]
>Mike Kouzmine
А это наилучший вариант?

Yuri-7 (2002-09-17 13:17:00) [10]
s:=Copy(s,Pos(".",s)+1,Length(s)-Pos(".",s));

Mike Kouzmine (2002-09-17 13:15:00) [11]
Copy(S,1,Pos(".",S))
Copy(S,Pos(".",S),Length(S))

dimanew (2002-09-17 13:12:00) [12]
Когда я говорил имена функций я имел ввиду, что вы мне их
подскажите.

ЮЮ (2002-09-17 13:09:00) [13]
>Можно просто имена ф-ий
>А вы, что на русском ни как?

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

Oleon (2002-09-17 13:08:00) [14]
Зайди в Help и смотри функции начинающиеся с Str

dimanew (2002-09-17 12:56:00) [15]
> Anatoly Podgoretsky
А вы, что на русском ни как?

Anatoly Podgoretsky (2002-09-17 12:52:00) [16]
Так ты сделал перевод?

Андрей Прокофьев (2002-09-17 12:48:00) [17]
2 REA
Я думал об этом, как о шутке... :)
Но...
ChangeFileExt("ABCD.EF \GH", ""));

dimanew (2002-09-17 12:47:00) [18]
Меня интересует то что находится после точки. Т.е либо вырезать
всё что находится до неё(включительно), либо скопировать всё что
после неё.

REA (2002-09-17 12:40:00) [19]
Можно ChangeFileExt(Str, ""), если после последней точки надо все выкинуть

Anatoly Podgoretsky (2002-09-17 12:35:00) [20]
Вырезать - это что скопировать или удалить, в зависимости от ответа и делай перевод на английский

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »