[Виталина]

Подскажите пожалуйста. Мне нужно ввести слово в Edit, найти его в текстовом файле и информацию, которая находится в строке, где нашлось слово, вывести в StringGrid. Как это сделать?

[wendstor]

Сообщение от Виталина

Подскажите пожалуйста. Мне нужно ввести слово в Edit, найти его в текстовом файле и информацию, которая находится в строке, где нашлось слово, вывести в StringGrid. Как это сделать?

через copy(), pos() искать текст

[wendstor]

Код:

если просто строку то как то так
procedure TForm1.Button1Click(Sender: TObject);
var
gh : TStringList;
fIndex: integer;
begin
 gh := TStringList.Create;
 gh.LoadFromFile('demo.txt');  // путь к тексту
 fIndex := gh.IndexOf(Edit1.Text);    // узнаем номер строки где есть нужный текст
 Label1.Caption := gh.Strings[fIndex]; // выводим результат строки где имееться искомый текст.
end;

Админ: Пользуемся тегами для оформления кода! Иначе последуют санкции!

[Виталина]

я так делала, у меня вылетает

[Hunter US]

Вот моя программа я когда то делал похожую. Посмотри может поможет.