Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)
-   -   [решено] Поиск в Memo (http://forum.oszone.net/showthread.php?t=189275)

Miko 24-10-2010 20:35 1526456

Поиск в Memo
 
Здравствуйте.. У меня проблема с поиском и заменой текста в Memo.

Проблема заключается в том что в текстовом файле который я буду загружать в Memo не известно сколько строк.
Сегодня 2 строки завтра их будет 40 и так далее..

Сначала нужно найти строку и скопировать весь текст который идет после слова "Start:" и после нажатия на кнопку заменить текст который мы скопировали.
(Вставить текст из Edit в строчку со словом Start)

Вроде бы нормально объяснил.

За ранее спасибо.

El Scorpio 25-10-2010 05:16 1526666

С delphi практически не работал, так что готового решения не жди.

Цитата:

Цитата Miko
Проблема заключается в том что в текстовом файле который я буду загружать в Memo не известно сколько строк.
Сегодня 2 строки завтра их будет 40 и так далее.. »

Используй свойство Strings.Count;

Цитата:

Цитата Miko
Сначала нужно найти строку и скопировать весь текст который идет после слова "Start:" и после нажатия на кнопку заменить текст который мы скопировали.»

Функций работы со сроками в Delphi я не знаю (в c++ builder использовались свойства и методы класса AnsiString). Впрочем, для объектов класса TMemo для замены фрагментов текста советую использовать "выделение". Реализуется через свойство SelStart и сопутствующие

Miko 25-10-2010 06:19 1526675

То что вы написали я не понял. Но нашел другой способ своими ручками.

Var
Str1, Str2: String;
begin
sMemo1.Lines.LoadFromFile('C:\Program Files\File.txt');
Str1:='Str-Width: 360';
Str2:=Copy(Str1, 12, 3); - 12 начинаем копировать. 3 копируем 3 цифры.
sEdit1.Text := Str2;


Время: 14:47.

Время: 14:47.
© OSzone.net 2001-