LongString - Общие вопросы Delphi

Robin_ · 15.02.2011, 11:50

Привет всем!
Загоняю вTStringList файл текстовый
Потом перебираю его и ищу определенный текст в строке
Текст в строке есть визуально подтверждено, но Pos возвращает 0
Замерил длину строки она 700 символов.

Как с ней работать?

Код:

Var 
SL:TstringList;
i:Integer;
Begin
 SL := TStringList.Create;
 SL.LoadFromFile('Фаил.txt')
 For i :=0 SL.Count - 1 do
 Begin
  If Pos(SL[i], 'Текст') Then ShowMessage(SL[i]);
 End;
 SL.Free;
end;

Пепел Феникса · 15.02.2011, 11:54

регистр совпадает?

ЗЫ: а что такого что в строке 700 символов?

Человек_Борща · 15.02.2011, 12:04

проверяй длинну строки если больше 255 то дели её на части по 255 знаков и проверяй

Пепел Феникса · 15.02.2011, 12:06

Цитата:

проверяй длинну строки если больше 255 то дели её на части по 255 знаков и проверяй

это что за бред?
зачем делить?

Цитата:

Или вы по-прежнему хотите в строке 'Текст' найти подстроку из 700 символов ???

а я и незаметил

отвык от Pos.
у мя в библиотеке классов string.Find соответственно один аргумент.

asmodey1 · 15.02.2011, 12:07

А может, стоит поменять местами аргументы функции POS ?
Или вы по-прежнему хотите в строке 'Текст' найти подстроку из 700 символов ???

ArtGrek · 15.02.2011, 12:19

Pos(SL[i], 'Текст')
поменяи местами, сперва текст которыи ишеш, потом текст где ишеш
Pos('Текст',SL[i])

Robin_ · 15.02.2011, 12:56

Цитата:

Сообщение от ArtGrek

Pos(SL[i], 'Текст')
поменяи местами, сперва текст которыи ишеш, потом текст где ишеш
Pos('Текст',SL[i])

Спасибо, запарился!

ArtGrek · 15.02.2011, 12:59

я просто не сразу прочел, тебе до меня еше 2 человека об етом говорили

15.02.2011, 11:50	#1
Robin_ Пользователь Регистрация: 02.05.2008 Сообщений: 66	LongString Привет всем! Загоняю вTStringList файл текстовый Потом перебираю его и ищу определенный текст в строке Текст в строке есть визуально подтверждено, но Pos возвращает 0 Замерил длину строки она 700 символов. Как с ней работать? Код: `Var SL:TstringList; i:Integer; Begin SL := TStringList.Create; SL.LoadFromFile('Фаил.txt') For i :=0 SL.Count - 1 do Begin If Pos(SL[i], 'Текст') Then ShowMessage(SL[i]); End; SL.Free; end;`

15.02.2011, 11:54	#2
Пепел Феникса Старожил Регистрация: 28.01.2009 Сообщений: 21,000	регистр совпадает? ЗЫ: а что такого что в строке 700 символов? Хорошо поставленный вопрос это уже половина ответа. \| Каков вопрос, таков ответ. Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.

15.02.2011, 12:19	#6
ArtGrek DelphiProger Участник клуба Регистрация: 14.11.2010 Сообщений: 1,023	Pos(SL[i], 'Текст') поменяи местами, сперва текст которыи ишеш, потом текст где ишеш Pos('Текст',SL[i]) VirusN13

15.02.2011, 12:59	#8
ArtGrek DelphiProger Участник клуба Регистрация: 14.11.2010 Сообщений: 1,023	я просто не сразу прочел, тебе до меня еше 2 человека об етом говорили VirusN13

15.02.2011, 12:04	#3
Человек_Борща Старожил Регистрация: 30.12.2009 Сообщений: 11,434	проверяй длинну строки если больше 255 то дели её на части по 255 знаков и проверяй

15.02.2011, 12:07	#5
asmodey1 Подтвердите свой е-майл Регистрация: 19.12.2010 Сообщений: 808	А может, стоит поменять местами аргументы функции POS ? Или вы по-прежнему хотите в строке 'Текст' найти подстроку из 700 символов ???