Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.22;
Скачать: CL | DM;

Вниз

Анализ строки   Найти похожие ветки 

 
Иван ©   (2002-08-09 11:38) [0]

Добрый день. Делаю программу, содержащую TEdit, используемый в качестве строки для ввода команд. Так вот, как "по-умному" сделать разбиение строки? Т.е. при нажатии кнопки, Enter (вобщем неважно чего)строка разбивалась на:
-команду
-параметр 1
-параметр 2
...
-параметр n

Помогите!!!


 
Skier ©   (2002-08-09 11:42) [1]

>Иван

В RX Library есть модуль для "работы со строками", в
частности там есть функции : "вытаскивания" слова из строки по
номеру, получение кол-во слов в строке и т.д. и т.п.

Загляни туда...(модуль StrUtils.pas)


 
McSimm ©   (2002-08-09 11:48) [2]

"По-умному" - не знаю, могу предложить удобный вариант. При котором команда и параметры становятся элементами TStringList

При условии, что разделителем является пробел:

SL.Text := StringReplace(Edit1.Text, #32, #13#10, [rfReplaceAll]);


 
Kent ©   (2002-08-09 12:01) [3]

Используй объект TParser, он не документирован в помощи Delphi, но найти его можешь по ключевому слову. Парсер разбивает строку на лексемы. А там уж из них сам решай что команда, а что параметр.
Мне энтот объект очень помог !!!
Удачи !!!


 
Юрий Зотов ©   (2002-08-09 12:29) [4]

И даже без StringReplace:
StringList1.CommaText := Edit1.Text;
А затем берем команду и параметры StringList1.


 
Леха_   (2002-08-09 15:32) [5]

QStrings в инете найти без проблемм

если не найдешь могу выслать


 
Leran2002 ©   (2002-08-09 15:41) [6]

А строка так задана или как:
"-команду-параметр1-параметр2...-параметрN"


 
Leran2002 ©   (2002-08-09 15:52) [7]

В общем мне скоро уходить пора так что вот посмотри может подойдет (если строка задается как я думал):

var
S:string;
MyList:TStringList;
begin
S:=Edit1.Text;
MyList:=TStringList.Create;
MyList.Text:=StringReplace(S,"-",#13#10"-",[rfReplaceAll]); // Режем строку
if MyList.Count>0 then MyList.Delete(0);

Memo1.Lines.Assign(MyList); // Проверка

Надеюсь помог.



Страницы: 1 вся ветка

Текущий архив: 2002.08.22;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.022 c
4-71447
Andrew_k
2002-06-20 15:26
2002.08.22
Как найти следующий RichEdit?


1-71256
Вечно молодой
2002-08-11 22:05
2002.08.22
TFileStream


3-70969
Leyler
2002-07-25 09:06
2002.08.22
из Excel в базу


14-71381
Oleg_Gashev
2002-07-28 20:38
2002.08.22
Nullsoft Install


6-71285
GM_
2002-06-10 09:41
2002.08.22
IP адрес отправки UDP пакета