Анализ строки

← →
Иван © (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 в инете найти без проблемм

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

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

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

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); // Проверка

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

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