Вопрос № 163374: Уважаемые эксперты, помогите пожалуйста с таким вопросм. Как реализовать пункт меню "поиск слова". При условии, что текстовый файл считан в окно Memo и слово которое нужно найти в этом файле вводится в окно Edit. И еще нужно вывести количе...
Вопрос № 163380: Здравствуйте ув. Эксперты. Очень нужна Ваша помощь. Мне нужно сделать такую програмку. Я набираю в редакторе формул формулу, жму ОК и она сохраняеться в
*.doc файл. Что я делаю. Добавляю на форму OLE контейнер, вибираю там Microsoft Equeshin. Запуска...Вопрос № 163382: Прошу подскажите плиз как текст в расширении типа Tstrings перевести в расширение String! Спасибо всем заранее. <img src="http://rusfaq.ru/images/Forum/10.gif" border="0"> ...Вопрос № 163392: Здравствуйте. Помогтин пожалуйста составить программу, по условию за
дачи: Дана последовательность чисел a1,a2,...,an. Заменить все ее члены, большие данного Z, этим числом. Подсчитать количество замен. Заранее спасибо....
Вопрос № 163.374
Уважаемые эксперты, помогите пожалуйста с таким вопросм. Как реализовать пункт меню "поиск слова". При условии, что текстовый файл считан в окно Memo и слово которое нужно найти в этом файле вводится в окно Edit. И еще нужно вывести количество найденного слова в Label.
Отправлен: 27.03.2009, 11:05
Вопрос задал: Vlad9240 (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Armad
Здравствуйте, Vlad9240! procedure TForm1.Button1Click(Sender: TObject); var i, n : integer; s: string; begin i := 0; s := Memo1.Lines.Text; n := Pos(Edit1.Text, s); while n > 0 do begin i := i + 1; Delete(s, n, Length(Edit1.Text)); n := Pos(Edit1.Text, s); end; Label1.Caption := IntToStr(i); end;
Ответ отправил: Armad (статус: 3-й класс)
Ответ отправлен: 27.03.2009, 11:57
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 246174 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Оценка за ответ: 1
Отвечает: Абельхарисов Руслан/Marked One
Здравствуйте, Vlad9240! Код который ищет заданное слово:
var //s - текст из Memo в одной строке, word - последовательность
символов для поиска s, word: string; //i - для цикла, count - кол-во найденных слов i, count: integer;
begin //получаем тект Memo в переменную s := Memo1.Lines.Text + ' '; //Удаляем все обрывы строк repeat i := pos(#13 + #10, s); Delete(s, i, 2); until i = 0; word := Edit1.Text; count := 0; i := 1; //Ищем слово repeat i := PosEx(word, s, i + Length(word)); // if (s[i - 1] in divs) and (s[i + Length(word)] in divs) then inc(count); until i <= 0; //Вывод Label1.Caption := IntToStr(count); end;
Еще добавьте в раздел Uses модуль StrUtils. Если в данной задачи слово - это не просто последовательность символов, а последовательность символов которая ограничена от других символов такими знаками как пробел, ",", ".", ";" и т.д., то раскоментируйте строки выделенные
жирным шрифтом. Удачи!!!
#thank 246199 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Оценка за ответ: 5 Комментарий оценки: Спасибо!
Вопрос № 163.380
Здравствуйте ув. Эксперты. Очень нужна Ваша помощь. Мне нужно сделать такую програмку. Я набираю в редакторе формул формулу, жму ОК и она сохраняеться в *.doc файл. Что я делаю. Добавляю на форму OLE контейнер, вибираю там Microsoft Equeshin. Запускаю програму, кликаю на контейнер и редактор запускається. Как теперь сделать, что бы введенные данные сохранялись в файл. И еще расскажите как подключить сам Word к моей программе. Заранее спасибо. Буду рад, хоть какой то помощи.
Отвечает: Armad
Здравствуйте, Пустовойтенко Виктор Григорьев! Например так. OleContainer.SaveAsDocument OleContainer.SaveToFile - разумеется, сохраняться в .doc формате не будет. Для этого нужно использовать например сервер WordApplication Работа с MS Office (с Word в частности) достаточно объемная тема для обсуждения здесь. Для начала можете посмотреть тут - http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988619885&n=18
Ответ отправил: Armad (статус: 3-й класс)
Ответ отправлен: 27.03.2009, 13:49
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 246181 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Отвечает: Савенко Вадим Иванович
Здравствуйте, Пустовойтенко Виктор Григорьев!
uses ..... Word2000;
var WordApplication1: TWordApplication;
procedure TForm1.FormCreate(Sender: TObject); begin WordApplication1:= TWordApplication.Create(Self); end;
procedure TForm1.FormDestroy(Sender: TObject); begin WordApplication1.Free; end;
Ответ отправил: Савенко Вадим Иванович (статус: Практикант)
Ответ отправлен: 27.03.2009, 14:59
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 246185 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Вопрос № 163.382
Прошу подскажите плиз как текст в расширении типа Tstrings перевести в расширение String! Спасибо всем заранее.
Отправлен: 27.03.2009, 12:27
Вопрос задал: Савченко Александр
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 12)
Отвечает: Лукьяненко Алексей Валериевич
Здравствуйте, Савченко Александр!
Если Вы имеете в виду, что у Вас есть переменная (или результат функции) типа TStrings, то для получения из нее String можете воспользоваться свойством Text:
Код:
var Strs: TStrings; Str: String; begin .... Str := Strs.Text;
.... end;
#thank 246176 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Вопрос № 163.392
Здравствуйте. Помогтин пожалуйста составить программу, по условию задачи:
Дана последовательность чисел a1,a2,...,an. Заменить все ее члены, большие данного Z, этим числом. Подсчитать количество замен.
Заранее спасибо.
Отправлен: 27.03.2009, 16:59
Вопрос задала: Ekzotica (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Абельхарисов Руслан/Marked One
Здравствуйте, Ekzotica! Код задачи с комментариями в приложении. Задача сводится к перебору последовательности в цикле и проверки каждого элемента на условие a[i] > z, если условие выполняется то a[i] := z и счетчик замен увеличить на 1. Удачи!!!
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов)
** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
*** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.
