Не работают условия поиска в файле

@Bookkc1 · Регистрация: 01.11.2012

Студворк — интернет-сервис помощи студентам

есть код

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
   AssignFile(F, 'text.txt');
   Reset(F);
      while not EOF(F) do
      begin
   ReadLn(F, s);
      if pos(x, s) <> 0 then
      ShowMessage('найдено')
   else
begin
      ShowMessage('ненайдено');
end
      end;
   CloseFile(F);

Не работает, в чем я допустил ошибку ? постоянно выводит сообщение "ненайдено", постоянный цикл. возможно что то в самом коде неправильно :-(

@cfbogd · 12.12.2016, 20:43

Bookkc1, поставить break; вместе с ShowMessage('найдено');

@Bookkc1 · 12.12.2016, 20:52 **[ТС]**

туперь ругается на else

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
   Reset(F);
      while not EOF(F) do
      begin
   ReadLn(F, s);
      if pos(x, s) <> 0 then
      Break;
      ShowMessage('найдено');
      else
      begin
      ShowMessage('ненайдено');
      end;
      end;
 
   CloseFile(F);

@cfbogd · 12.12.2016, 20:53

Bookkc1,

Delphi
1
2
3
4
5
6
if pos(x, s) <> 0 then
BEGIN
ShowMessage('найдено');
Break;
END
else

@Bookkc1 · 12.12.2016, 20:57 **[ТС]**

сделал - всё так же как в первом варианте, сообщение "не найдено " в бесконечном цыкле, хотя в файле есть то что я ищу...

@cfbogd · 12.12.2016, 21:05

Bookkc1, PascalABC.NET:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var s,x:string;
f:boolean=false;
begin
x:='0';
assign(input,'input.txt');
Reset(input);
assign(output,'output.txt');
Rewrite(output);
while not EOF(input) do
begin
ReadLn(s);
if pos(x, s)>0 then
begin
f:=true;
Break;
end
else
f:=false;
end;
if f then write('yes') else write('no');
end.

@Bookkc1 · 12.12.2016, 21:17 **[ТС]**

Спасибо конечно за код, я не сильно разбираюсь в этом. меня интересует поправки в моем коде...

@cfbogd · 12.12.2016, 21:22

Bookkc1, а чего тут разбираться? булевая переменная и условие за циклом.

@Bookkc1 · 12.12.2016, 21:27 **[ТС]**

меня смущают инпут и аутпут. у меня один файл. зачем мне ещё несколько

Добавлено через 55 секунд
сразу же ругается на строчку f:boolean=false;

@cfbogd · 12.12.2016, 21:40

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

меня смущают инпут и аутпут

это я для себя. Вы что не умеете редактировать чужой код что ли?

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

f:boolean=false;

если уж не в глобальном var, тогда инициализируйте переменную прямо в процедуре

@Bookkc1 · 12.12.2016, 21:43 **[ТС]**

Да я 100 лет не работал в делфи и да, не особо умею работать с чужим кодом. мне проще, если бы показали на моём... и переменную инициализирую прямо в процедуре

@northener · 12.12.2016, 21:58

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

хотя в файле есть то что я ищу

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

@Bookkc1 · 12.12.2016, 23:00 **[ТС]**

да. совпадает. там цифры

@Mawrat · 13.12.2016, 08:32

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

да. совпадает. там цифры

Надо проверить, какая кодировка текста в файле и какая кодировка предполагается в программе при обработке строковых данных. Если версия Delphi 2007 и ниже (ANSI версии), то тип String совпадает с типом AnsiString - строка однобайтных символов. Если версия выше, чем Delphi 2007 (UNICODE версии), то тип String совпадает с типом UnicodeString - строка двухбайтных символов.
Например, будет несоответствие, если используется ANSI версия Delphi, а текст в файле записан в UNICODE кодировке. В этом случае нужно будет предпринять дополнительные меры в коде.

@Bookkc1 · 13.12.2016, 11:35 **[ТС]**

я понял в чем причина но не знаю как её исправить!

В общем, если текста нет в файле, выскакивает сообщение НЕТУ ровно столько раз, сколько строк текста в файле (если 10 то выскочит 10 раз), а если текст есть то выскакивает 9 раз (1 раз что текст есть и 9 раз что нету). Мне же нужно что бы выскакивало 1 раз, либо есть либо нету. всё. Вот код. Прошу помощи Вашей

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure TForm1.Button1Click(Sender: TObject);
var
F: TextFile;
s: string;
begin
AssignFile(F, 'input.txt');
Reset(F);
while not EOF(F) do
begin
ReadLn(F, s);
if s = Edit1.Text then
begin
ShowMessage('есть текст')
end
else
begin
ShowMessage('HETY');
end;
 
end;
 
CloseFile(F);
end;

Добавлено через 26 минут
Сделал две отдельные процедуры (для удобства) Прописал так

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
procedure TForm1.Button1Click(Sender: TObject);
var
F: TextFile;
s: string;
begin
AssignFile(F, 'input.txt');
Reset(F);
while not EOF(F) do
begin
ReadLn(F, s);
if s = Edit1.Text then
begin
work();
 
end
else
begin
nowork();
break;
end;
 
end;
 
CloseFile(F);
end;

в любом случаи выводит что не найдено и завершает цикл.

Добавлено через 1 час 8 минут
В общем, мой код ищет построчно, нужно что бы если нашел - одно сообщение, не нашел - второе

@Mawrat · 13.12.2016, 11:44

Способ 1:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
procedure TForm1.Button1Click(Sender: TObject);
var
  F : TextFile;
  S, X : String;
  B : Boolean;
begin
  AssignFile(F, 'input.txt');
  Reset(F);
  try
    X := Edit1.Text;
    B := False;
    while not EOF(F) do
    begin
      ReadLn(F, S);
      B := Pos(X, S) > 0;
      if B then //Если искомая строка найдена, то прерываем цикл поиска.
        Break;
    end;
  finally
    CloseFile(F);
  end;
 
  if B then
    ShowMessage('Найдено')
  else
    ShowMessage('Не найдено');
end;

Способ 2:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
procedure TForm1.Button1Click(Sender: TObject);
var
  F : File;
  S : AnsiString;
  Size : Integer;
begin
  AssignFile(F, 'input.txt');
  Reset(F, 1);
  try
    Size := FileSize(F);
    SetLength(S, Size);
    BlockRead(F, S[1], Size);
  finally
    CloseFile(F);
  end;
 
  if Pos(Edit1.Text, S) > 0 then
    ShowMessage('Найдено')
  else
    ShowMessage('Не найдено');
end;

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .

@cfbogd botsik 262 / 262 / 140 Регистрация: 05.06.2016 Сообщений: 1,247 Записей в блоге: 1
	12.12.2016, 20:43
	Bookkc1, поставить break; вместе с ShowMessage('найдено'); 0

@Bookkc1 3 / 3 / 0 Регистрация: 01.11.2012 Сообщений: 803
	12.12.2016, 20:57 [ТС]
	сделал - всё так же как в первом варианте, сообщение "не найдено " в бесконечном цыкле, хотя в файле есть то что я ищу... 0

@Bookkc1 3 / 3 / 0 Регистрация: 01.11.2012 Сообщений: 803
	12.12.2016, 21:17 [ТС]
	Спасибо конечно за код, я не сильно разбираюсь в этом. меня интересует поправки в моем коде... 0

@cfbogd botsik 262 / 262 / 140 Регистрация: 05.06.2016 Сообщений: 1,247 Записей в блоге: 1
	12.12.2016, 21:22
	Bookkc1, а чего тут разбираться? булевая переменная и условие за циклом. 0

@Bookkc1 3 / 3 / 0 Регистрация: 01.11.2012 Сообщений: 803
	12.12.2016, 21:27 [ТС]
	меня смущают инпут и аутпут. у меня один файл. зачем мне ещё несколько Добавлено через 55 секунд сразу же ругается на строчку f:boolean=false; 0

@Bookkc1 3 / 3 / 0 Регистрация: 01.11.2012 Сообщений: 803
	12.12.2016, 21:43 [ТС]
	Да я 100 лет не работал в делфи и да, не особо умею работать с чужим кодом. мне проще, если бы показали на моём... и переменную инициализирую прямо в процедуре 0

@Bookkc1 3 / 3 / 0 Регистрация: 01.11.2012 Сообщений: 803
	12.12.2016, 23:00 [ТС]
	да. совпадает. там цифры 0

Не работают условия поиска в файле

Решение