Форум: "Основная";
Текущий архив: 2002.01.17;
Скачать: [xml.tar.bz2];
ВнизПоиск слова в тексте Найти похожие ветки
← →
Oleg Gashev (2001-12-30 23:00) [4]StrPos Example
uses SysUtils;
const
S: PChar = "Ready, Set, Go! ";
SubStr: PChar = "Set";
var
P: PChar;
begin
P := StrPos(S, SubStr);
if P = nil then
Canvas.TextOut(10, 10, "Substring not found")
else
Canvas.TextOut(10, 10, "Substring found at index " + IntToStr(P - S));
end ;
(C) Delphi Help
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.01.17;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.006 c