[alexusankov]

Здравствуйте)).
Последний вопрос)))))
Читаю файл с помощью ReadLn, строка пишется в переменную.
Вопросы:
прим . - сначала см. 3й вопрос)
1. Как в строке НАЙТИ подстроку
1.1. Имеем файл

Код:

блабла;блабла;Конвейер_1
блабла;блабла;Конвейер_2
.......
блабла;блабла;Конвейер_11
......
блабла;блабла;Конвейер_111

В переменную пишется построчно этот файлик. Как мне определить, есть ли в строке, "Конвейер_1", и избежать путаницы, ведь в строке Конвейер_11 есть подстрока Конвейер_1
2. Как задать поиск ВО ВСЕМ файле, имеется ли там "Конвейер_1"(чтобы зря не парсить то), и как избежать путаницы с Конвейер_11 и Конвейер_111??
3. Или еще проще вопрос: я беру строку из файла ReadLn. В строке 3 блока без пробелов. Блоки разделены ";" , ну вы видите это в примере.
Можно же как нибудь в три переменных впихнуть это дело? Тогда проблемы с поиском и возможностью ошибки с Конвейер_1 \ Конвейер_11 отпадают сами. Так даже проще же будет
Спасибо, что выслушали нубские вопросы. Не пинайте ногами)

[poli-smen]

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

Читаю файл с помощью ReadLn, строка пишется в переменную.
Вопросы:
прим . - сначала см. 3й вопрос)
1. Как в строке НАЙТИ подстроку
1.1. Имеем файл

Код:

блабла;блабла;Конвейер_1
блабла;блабла;Конвейер_2
.......
блабла;блабла;Конвейер_11
......
блабла;блабла;Конвейер_111

В переменную пишется построчно этот файлик. Как мне определить, есть ли в строке, "Конвейер_1", и избежать путаницы, ведь в строке Конвейер_11 есть подстрока Конвейер_1
2. Как задать поиск ВО ВСЕМ файле, имеется ли там "Конвейер_1"(чтобы зря не парсить то), и как избежать путаницы с Конвейер_11 и Конвейер_111??
3. Или еще проще вопрос: я беру строку из файла ReadLn. В строке 3 блока без пробелов. Блоки разделены ";" , ну вы видите это в примере.
Можно же как нибудь в три переменных впихнуть это дело? Тогда проблемы с поиском и возможностью ошибки с Конвейер_1 \ Конвейер_11 отпадают сами. Так даже проще же будет
Спасибо, что выслушали нубские вопросы. Не пинайте ногами)

Код:

var
  sl: TStringList;
  s1, s2, s3: String;
begin
  sl:=TStringList.Create;
  try
    sl.Delimiter:=';';
    sl.DelimitedText:='блабла;блабла;Конвейер_1';
    s1:=sl[0];
    s2:=sl[1];
    s3:=sl[2];
...
  finally
    sl.Free;
  end;
end;

[alexusankov]

Ай, прямо от души!!!!
То что было нужно, спасибо огромаднейшее.
Не подскажешь попутно, для моего абсолютного счастья, как поискать нужную строку в тексте? Вопр. 2?

[poli-smen]

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

Ай, прямо от души!!!!
То что было нужно, спасибо огромаднейшее.
Не подскажешь попутно, для моего абсолютного счастья, как поискать нужную строку в тексте? Вопр. 2?

Поиск подстроки в строке - функции Pos и PosEx.

[alexusankov]

Я имел ввиду, есть ли процедуры или функции, чтобы целиком поиск в файле сделать, а не парсить построчно.
Но подумав решил, что построчно надежнее. Спасибо большое за помощь!

[Bargest]

Можно загрузить весь файл как одну большую строку и искать в ней. Для большого файла все равно придется по частям.