VPF::Такой простой цикл и не работает...

rutiger

Дата 26.8.2006, 15:55 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 39
Регистрация: 25.12.2005

Репутация: нет
Всего: нет

Код


procedure TForm1.Button3Click(Sender: TObject);
var n,i: integer;
    qwer, qq: string;

begin
  for n:=0 to 50 do
    begin
    qwer:=edit1.Text;
    qq:=memo1.Lines.Strings[n];
    i:=pos(qwer,qq);
    memo2.Lines.Strings[n]:=inttostr(i);
    end;
end.

Нужно чтобы memo2 заполнялся номерами позиций . Каждая новая на новой строке.
Вроде просто, а он только в первой строке ищет....
Ума не приложу. smile

Ребят, помогите старому программисту ! smile

volvo877

Дата 26.8.2006, 16:05 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 14
Всего: 116

rutiger,
а у тебя что, в Memo2 уже есть столько же строк, сколько и в Memo1?
Так попробуй:

Код

memo2.Clear;
for n:=0 to memo1.Lines.Count - 1 do begin
  qwer:=edit1.Text;
  qq:=memo1.Lines.Strings[n];
  i:=pos(qwer,qq);
  memo2.Lines.Add(inttostr(i));
end;

rutiger

Дата 26.8.2006, 16:13 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 39
Регистрация: 25.12.2005

Репутация: нет
Всего: нет

Спасибо большое за помощь!

smile

VAngeL86

Дата 26.8.2006, 16:32 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 71
Регистрация: 29.4.2006
Где: Хабаровск

Репутация: нет
Всего: 1

На сколько я понял у тебя есть текст из 51 строки записанный в Memo1. В нем нужно найти позиции в которых встречается слово из Edit1. Вывести номера позиций нужно в Memo2?

Цитата(rutiger @ 26.8.2006, 15:55

)

memo2.Lines.Strings[n]:=inttostr(i);

Так можно делать только если у тебя уже есть n-я "линия" в Memo! Нужно так:

Код


   memo2.Lines.Add(inttostr(i));

Перед циклом удали все строки из Memo при помощи процедуры Memo2.Clear

P.S. Не забудь что pos ищет лишь первое попавшееся совпадение! Т.е. pos('1', '1001') найдёт тебе лишь первую единицу!

Парпдон....видно страничка долго грузилась...ответа не заметил!

Это сообщение отредактировал(а) VAngeL86 - 26.8.2006, 16:37

rutiger

Дата 26.8.2006, 16:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 39
Регистрация: 25.12.2005

Репутация: нет
Всего: нет

Ага , спасибо !
А как найти исчо и вторую единицу ?
Я , так понял, что простого оператора нет, и нужно что то придумывать ...
Или есть ?

VAngeL86

Дата 26.8.2006, 16:47 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 71
Регистрация: 29.4.2006
Где: Хабаровск

Репутация: нет
Всего: 1

На сколько я знаю, процедуры другой нет....
Нужно подумать....

Добавлено @ 16:58
Можно вот так:

Код


var n,i, sdvig: integer;
    qwer, qq, i_str: string;
begin
 Memo2.Clear;

  for n:=0 to Memo1.Lines.Count-1 do
    begin
    qwer:=edit1.Text;
    qq:=memo1.Lines[n];
    i_str:='';
    sdvig:=0;

    while pos(qwer, qq)<>0 do
    begin
     i:=pos(qwer, qq);
     i_str:=i_str + IntToStr(i + sdvig) + ' ';
     delete(qq, i, length(qwer));
     sdvig:=sdvig + length(qwer);
    end;
      
     if i_str = '' then i_str:='0';
      memo2.Lines.Add(i_str);
    end;
end;

Это сообщение отредактировал(а) VAngeL86 - 26.8.2006, 17:08

volvo877

Дата 26.8.2006, 17:03 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 14
Всего: 116

Цитата(rutiger @ 26.8.2006, 16:35

)

А как найти исчо и вторую единицу ?

Код

procedure TForm1.Button1Click(Sender: TObject);
var
  qq, qwer, positions: string;
  i, p, n: integer;

begin
  memo2.Clear;
  for n:=0 to memo1.Lines.Count - 1 do begin

    qwer:=edit1.Text;
    qq:=memo1.Lines.Strings[n];
    p := 1; positions := '';
    repeat
      i:=pos(qwer,copy(qq, p, length(qq)));
      if i > 0 then begin
        p := p + i;
        positions := positions + inttostr(p - 1) + ' ';
      end;
    until i = 0;

    if positions = '' then positions := '0';
    memo2.Lines.Add(positions);

  end;

end;

Этот код найдет все заданные символы в строке...

Добавлено @ 17:04
VAngeL86, а если нет НИ ОДНОЙ единицы, что будет?

VAngeL86

Дата 26.8.2006, 17:07 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 71
Регистрация: 29.4.2006
Где: Хабаровск

Репутация: нет
Всего: 1

volvo877, Пустую строку выдаст! smile

...щас изменю!

...изменил!

Это сообщение отредактировал(а) VAngeL86 - 26.8.2006, 17:10

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »