Здравствуйте, ув. господа программисты.
Подскажите мне пожста с такой штукой:
есть некая строка символов в Memo, например:
123*456*789 и соответственно три поля Edit.
Как разбить эту строку на три части до звездочек или др.разделителей и поместить это все в разные эдиты?
Выручите примером, плиз

Код

const rzd = '*'; ... var s:string; i:integer; begin s:=Memo1.Lines.Text; i:=1; while s <> '' do  begin   case i of     1: Edit1.Text:=Copy(s, 1, Pos(Rzd, s)-1);     2: Edit2.Text:=Copy(s, 1, Pos(Rzd, s)-1);     ...   end;   Delete(s, 1, Pos(Rzd, s));   inc(i);  end; end;

http://vingrad.ru/VF-DLP-000210

Как обычно рекламирую мой модуль mystr mystr
Говорю единственный раз :
Это не просто модуль это метод подхода к строке как к полям разделенными символами этим методом должен владеть каждый программист Сложное становится простым!
И я буду рекламировать свой модуль.
Немного истории
Сначала я изучил язык программирования AWK (мне нужно было работать со строками) там был именно такой подход к строке.Это был Си подобный язык .Со стороками можно было делать ВСЕ.
Потом я перешел на Паскаль и мне стало не хватать этого метода я сделал модуль mysys.tpu потом перешел на delphi и переделал немного этот модуль.Над этим модулем нужно работать ВСЕМ.Так что пишите письма.

Код

var st1:string; Edit1.text:=cNFi(1,St1,'*'); Edit2.text:=cNFi(2,St1,'*'); Edit3.Text:=cNFi(3,St1,'*');

Вот и все дела.Удачи.

Блин прозевал предыдущее сообщение писал я а Stadler это мой первый в жизни ученик по delphi.Модулю кстати лет 10.
Может администратор поменяет имя предыдущего сообщения и удалит это сообщение?

Это сообщение отредактировал(а) SlaUr - 18.1.2005, 06:11

Цитата(SlaUr @ 17.1.2005, 21:06)

Может администратор поменяет имя предыдущего сообщения и удалит это сообщение?

нет

Всем пасиба за ответы.
Сейчас доработаю код Pakshin A. S. а то он у меня не пашет... Зато принцип понятен.

В общем, я сделал так:

Код

begin s:=Memo1.Lines.Strings[n]; Memo2.Text:=Copy(s, 1, Pos(Rzd, s)-1); Delete(s, 1, Pos(Rzd, s)); Memo3.Text:=Copy(s, 1, Pos(Rzd, s)-1); Delete(s, 1, Pos(Rzd, s)); Memo3.Text:=s; end;

А если делать в цикле, чтобы не одна строка в меомо бралась а все по очереди, тогда все виснет или не работает...
Поможите еще раз
А еще подскажите как удалять какую-либо строку в мемо, плиз...

Это сообщение отредактировал(а) Балбес - 18.1.2005, 21:20

Цитата

Сейчас доработаю код Pakshin A. S. а то он у меня не пашет... Зато принцип понятен.

А все коды Pakshin A. S. ни у кого никогда не пашут с первого раза, потомучто он их перед отправкой ни когда не проверяет, а мне как всегда тут приходится всё доробатывать за ним, блин.
В данном случае он не учёл, что при 2-перезаписи из мемо в едит, удаляется символ "разделитель" и за счёт этого процедурой Delete строка S никогда полностью не удалится, т.е. бесконечный цикл (зависание). Вобщем надо добавить такую строку:

Код

if s[length(s)]<>rzd then s:=s+rzd;

сразу после S:=....

Код

procedure TForm1.Button1Click(Sender: TObject); begin  s:=Memo1.Lines.Text;  if s[length(s)]<>rzd then s:=s+rzd;  i:=1;  while s <> '' do  begin   case i of     1: Edit1.Text:=Copy(s, 1, Pos(Rzd, s)-1);     2: Edit2.Text:=Copy(s, 1, Pos(Rzd, s)-1);     3: Edit3.Text:=Copy(s, 1, Pos(Rzd, s)-1);   end;   Delete(s, 1, Pos(Rzd, s));   inc(i);  end; end;

Цитата

Как разбить эту строку на три части до звездочек или др.разделителей и поместить это все в разные эдиты?

А вот ещё вариант с использованием одновременно любых разделителей (разделителем является не цифра, а любая другая литера)

Код

procedure TForm1.Button1Click(Sender: TObject); var  s:string;  i,j:integer; begin  s:=memo1.Text;  j:=1;  for i:=1 to 3 do    begin      repeat        if s[j] in ['0'..'9'] then        begin          if i=1 then edit1.Text:=edit1.Text+s[j];          if i=2 then edit2.Text:=edit2.Text+s[j];          if i=3 then edit3.Text:=edit3.Text+s[j];          j:=j+1;        end;      until not(s[j] in ['0'..'9']);      j:=j+1;    end; end;

Цитата

есть некая строка символов в Memo, например: 123*456*789 и соответственно три поля Edit. Как разбить эту строку на три части до звездочек или др.разделителей и поместить это все в разные эдиты?

Можно воспользоваться свойствами Delimiter и DelimitedText класса TStringList.

Код

var lst:TStringList; begin   lst:=TStringList.Create;   lst.delimiter:='*';   lst.DelimitedText:=memo1.text;  //дальше оперируем строками этого листа end;

Гость_unregistered вы не хотите зарегистрироваться у нас. Нам нужны знающие люди.

Цитата

Код var lst:TStringList; begin   lst:=TStringList.Create;   lst.delimiter:='*';   lst.DelimitedText:=memo1.text;   //дальше оперируем строками этого листа end;

В 5-й Дельфе не работает ...
:-(

Zero У меня дельфей под рукой нету...

Спасибо всем за ответы
Буду пробовать

Цитата(Zero @ 19.1.2005, 01:09)

А все коды Pakshin A. S. ни у кого никогда не пашут с первого раза, потомучто он их перед отправкой ни когда не проверяет, а мне как всегда тут приходится всё доробатывать за ним, блин.

а зачем давать 100% правильный код?! Пусть человек сам додумывает, так же интереснее, чем когда тебе дают сразу работающий код.
И еще: не надо показывать, что ты "круче" кого-то в программировании. случиться момент, когда код, данный тобой, будет не правильным и уже кому-то другому придется его исправлять.