Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Форум программистов и сисадминов Киберфорум > Форум программистов > Delphi > Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
2 из 3 « 1 2 3 »
 
Рейтинг 4.64/11: Рейтинг темы: голосов - 11, средняя оценка - 4.64
4 / 4 / 1
Регистрация: 23.01.2015
Сообщений: 330

Найти строку в stringlist

07.10.2015, 21:55. Показов 2327. Ответов 44
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
есть
Delphi
1
2
3
4
5
6
7
8

var
strl:stringlist;
И есть
var
pid:caardinal;
hwnd:Thandle;
begin
GetWindowThreadProcessID(hWnd1, @PID);
Как проверить: если PID есть в stringlist то exit;, а если нет, то ничего не делать(продолжать выполнение процедуры)!
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
 07.10.2015, 21:55
Ответы с готовыми решениями:

Загрузить строку из stringlist
Вообщем такая задумка,начну по порядку. В stringlist загружаю из текстового файла примеры 2+2 6-3 8*2 9/3 Нужно в случайном...

Как перевести текст из StringList в 1 строку
Здравствуйте, возникла такая проблема что мне нужно весь текст из Tstringlist перевести в 1 единую строку.Нужно мне это для более удобного...

Удалить с Memo строку которая есть в StringList'e ??
procedure TForm1.Button5Click(Sender: TObject); var i,j,c,b,k,lc:integer; begin For i:= 0 to Memo1.Lines.Count-1 do ...

44
4 / 4 / 1
Регистрация: 23.01.2015
Сообщений: 330
08.10.2015, 20:18  [ТС]
Студворк — интернет-сервис помощи студентам
Да не, красненькая
0
3530 / 2270 / 279
Регистрация: 24.12.2010
Сообщений: 13,723
08.10.2015, 20:20
И эти красненькие буквы тебе, конечно, не знакомы ...
0
4 / 4 / 1
Регистрация: 23.01.2015
Сообщений: 330
08.10.2015, 20:26  [ТС]
Да не, уже разобрался, надо было другие скобки поставить и t:=t-1; и всё! Просто не заметил сначала!

Добавлено через 4 минуты
Мда... всё равно не работает
Delphi
1
2
3
4
5
6

var
ind,t:integer
   while t>0 do begin
    if strl.Strings[t] = inttostr(PID) then exit;
    t:=t-1;
    end;
Подскажите что не так?
Пробовал в создании формы писать strl.create; ошибка
mss только сейчас всякий бред не неси ок? а подскажи ошибки в коде, почему не работает!?
0
3530 / 2270 / 279
Регистрация: 24.12.2010
Сообщений: 13,723
08.10.2015, 20:36
Цитата Сообщение от Zagadohnik37 Посмотреть сообщение
почему не работает!?
Потому что ты писатель, а не читатель.
Тексты ошибок у тебя перед носом, следовало бы вникнуть в них, прежде чем задавать вопросы, но ты продолжаешь строчить бессмысленный код..
0
 Аватар для Arcor
5709 / 2300 / 466
Регистрация: 20.11.2009
Сообщений: 7,721
Записей в блоге: 1
08.10.2015, 20:42
Цитата Сообщение от Zagadohnik37 Посмотреть сообщение
strl.create
потому что strl это указатель на сей объект... вероятнее всего там отсутствует буквока T вначле
Delphi
1

strl:stringlist;
теперь надо создать объкт где-то в памяти, windows сама найдет где(и слава богу, что не пользователь )
далее, можно то, что создастся, куда-то присвоить, например вот сюды strl

поэтому будет верным написать так

Delphi
1

strl := TStringList.Create
1
4 / 4 / 1
Регистрация: 23.01.2015
Сообщений: 330
08.10.2015, 21:06  [ТС]
Ок, теперь почему вот такая фигня?
Миниатюры
Найти строку в stringlist  
0
4 / 4 / 1
Регистрация: 23.01.2015
Сообщений: 330
08.10.2015, 21:09  [ТС]
Понял, всё норм.
0
3530 / 2270 / 279
Регистрация: 24.12.2010
Сообщений: 13,723
08.10.2015, 21:10
var
t:integer
while t>0 do begin // чему в этот момент равна t ?
0
4 / 4 / 1
Регистрация: 23.01.2015
Сообщений: 330
08.10.2015, 21:10  [ТС]
Но почему вот это не работает?
Delphi
1
2
3
4
5
6
7
8
9

   hWnd1:= WindowFromPoint(CrPos);
   Label3.Caption := 'Handle : ' + IntToStr(hWnd1) ;
   GetWindowThreadProcessID(hWnd1, @PID);
   t:=0;
   t:=ind;
   while t<ind do begin
    if strl.Strings[t] = inttostr(PID) then exit;
    t:=t+1;
    end;
Приложение зависает ещё до того как происходит проверка?!
0
3530 / 2270 / 279
Регистрация: 24.12.2010
Сообщений: 13,723
08.10.2015, 21:13

Не по теме:

Понял, всё норм
Ну точно голый в баню)



Добавлено через 1 минуту
Delphi
1
2

   t:=0;
   t:=ind;
Это что за порнография ?
0
4 / 4 / 1
Регистрация: 23.01.2015
Сообщений: 330
08.10.2015, 21:13  [ТС]
mss, Ну... насчёт
Цитата Сообщение от mss Посмотреть сообщение
порнография
незнаю... но фэйл
0
3530 / 2270 / 279
Регистрация: 24.12.2010
Сообщений: 13,723
08.10.2015, 21:18
Цитата Сообщение от Zagadohnik37 Посмотреть сообщение
незнаю
Как так "незнаю" ?)
А кто по-твоему должен знать, что за хрень ты понаписал ?
Сначала присвоил ноль, потом ноль тебе не понравился и ты присвоил какой-то там "ind"..
И это разве эротика ?)

Добавлено через 1 минуту

Не по теме:

Руки что ли у тебя чешутся - вперед головы сучат по клавишам ?)
Ну думать же нужно, перед тем как что-то писать..

0
4 / 4 / 1
Регистрация: 23.01.2015
Сообщений: 330
08.10.2015, 21:40  [ТС]
Мда... а сначала казалось что ты можешь что-то нужное написать а оказалось ты только выёживаться можешь!
Так скажешь где ошибка или нет?

Добавлено через 22 секунды
Порно-любитель хренов
0
3530 / 2270 / 279
Регистрация: 24.12.2010
Сообщений: 13,723
08.10.2015, 21:45
Цитата Сообщение от Zagadohnik37 Посмотреть сообщение
ты только выёживаться можешь!
Не).. Я еще на гармошке).. И вышивать крестиком).. Еще могу копать и могу не копать))

Цитата Сообщение от Zagadohnik37 Посмотреть сообщение
а сначала казалось
Ты вообще вменяем ?

Был задан простой вопрос - зачем ты присваиваешь переменной t ноль и тут же следующей строчкой присваиваешь этой же переменной неизвестное никому кроме тебя значение переменной ind ?

Когда ты наконец включишь мозг ?)
0
4 / 4 / 1
Регистрация: 23.01.2015
Сообщений: 330
08.10.2015, 21:52  [ТС]
ind это код-во строк в stringlist!!!
0
3530 / 2270 / 279
Регистрация: 24.12.2010
Сообщений: 13,723
08.10.2015, 21:59
да неужели ?!
А откуда это кому-то известно кроме тебя ?)

Ты же не удосужился об этом сказать ровным счетом ничего, до тех пока тебя пытать не начали ..
Это что за мазохизм ?)

И снова сказка про белого бычка:

Delphi
1
2
3
4
5
6

  t:=0; // зачем эта строка ?
   t:=ind;
   while t<ind do begin // с каког перепугу  t может оказаться меньше ind, если ты только что собственноручно строчкой выше сделал их значения равными ?
    if strl.Strings[t] = inttostr(PID) then exit; // где и как у тебя создается объект strl ? опять тебя пытать надо ?)
    t:=t+1;
    end;
0
4 / 4 / 1
Регистрация: 23.01.2015
Сообщений: 330
08.10.2015, 22:02  [ТС]
Цитата Сообщение от mss Посмотреть сообщение
// с каког перепугу *t может оказаться меньше ind, если ты только что собственноручно строчкой выше сделал их значения равными ?
Ауууу это цикл!
Delphi
1

t:=t+1;
А вот этого не сущевствует?
Цитата Сообщение от mss Посмотреть сообщение
// где и как у тебя создается объект strl ? опять тебя пытать надо ?)
да в создании формы!!! У меня проблема совсем в другом!!! Прочитай самое начало темыыы!
0
3530 / 2270 / 279
Регистрация: 24.12.2010
Сообщений: 13,723
08.10.2015, 22:10
Цитата Сообщение от Zagadohnik37 Посмотреть сообщение
Ауууу это цикл!
И что ?
При первой итерации цикла чему равна t и чему ind ?

Цитата Сообщение от Zagadohnik37 Посмотреть сообщение
А вот этого не сущевствует?
Там все что угодно можно понаписать - один шиш до этого дело не дойдет, потому что читай выше.

Цитата Сообщение от Zagadohnik37 Посмотреть сообщение
У меня проблема совсем в другом
Тогда накой ляд ты привел текст своего бестолкового цикла, если уверен что проблема не в нем ?
А если не уверен, то чего тогда тут гнешь пальцы и не вникаешь в суть наводящих контрвопросов ?
0
4 / 4 / 1
Регистрация: 23.01.2015
Сообщений: 330
08.10.2015, 22:14  [ТС]
ВОТ ПРОБЛЕМА: Не работает заморозка процесса
Цитата Сообщение от Zagadohnik37 Посмотреть сообщение
Приложение зависает ещё до того как происходит проверка?!
ВОТ! Если не можешь помочь, так чего лезешь?!
0
3530 / 2270 / 279
Регистрация: 24.12.2010
Сообщений: 13,723
08.10.2015, 22:18
Цитата Сообщение от Zagadohnik37 Посмотреть сообщение
до того как происходит проверка
да какая "проверка"-то ?)
кто кого и когда "проверяет" ?)

если ты о теле цикла, то до него и дело вообще не доходит - уже упарился тебе и намекать и говорить прямым текстом)

потому что ты уперся рогом и ни в какую не воспринимаешь смысл задаваемых тебе простейших наводящих вопросов.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
 08.10.2015, 22:18

Поиск по StringList
Требуется осуществить бинарный поиск по StringList. В StringList находятся строки около 6 миллионов. Переменная dic это сам StringList. В...

Вывести из stringlist
Как выводить из stringlist по одной строке по порядку? Загрузил текст в stringlist sl.Add('Строка1'); sl.Add('Строка2'); ...

Поиск в Stringlist
Подскажите как найти нужную строку в stringlist? Я загружаю текстовый файл в stringlist ,а далее надо пройти по всем строкам и найти...

Lines в StringList
Как сделать, чтобы бралось по одному значению из TStringList как в Memo? Бралось например как в Memo1.Lines; и удалялось...

WebBrowser и stringlist
var a:Tstrings; begin a:=tstringlist.Create; a.Strings:='&lt;html&gt;&lt;body&gt;; a.Strings:='&lt;p align=justify&gt; ñïðîñ&lt;/p&gt;'; ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
40
Ответ Создать тему
2 из 3 « 1 2 3 »
Новые блоги и статьи
мат медиц модель 30. презентация проекта
anaschu 27.08.2026
хоп хоп хоп хидахоп, а я кладую))
 Как у меня протекала болезнь
zorxor 27.08.2026
Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .
Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему
kumehtar 26.08.2026
ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .
[EasyBuilder Pro] Памятка по разработке для панелей Weintek
ФедосеевПавел 26.08.2026
Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .
Модель по догадкам
anaschu 25.08.2026
Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .
Запись в регистр сведений независимо от заполненности табличной части
Maks 25.08.2026
Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .
Ноутбук Альфария
kumehtar 24.08.2026
Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?
 Мастера простых решений
DevAlt 23.08.2026
В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru