снова Мемо

[начинающий1]

Здравствуйте!
Столкнулся вот с такой задачей:
В компоненте MEMO1 есть данные в виде(после каждой оценки пробел):

Иванов   2 1 6 11 3 1 9 3 8 8 5 6 10 7 
Петров   7 2 5 7 2 10 4

Нужно в MEMO2 записать данные но только при определенных условиях:
выбрать с каждой строки MEMO1 "n" последних оценок, которые соответсвуют заданной величине оценки "х"
Например: при условии выбрать 4 последних оценки, если оценка больше 4 баллов
в МЕМО2 будет записано:

Иванов   5 6 10 7

P.S: Строка "Петров" не будет отображена в МЕМО2, так как третья оценка в МЕМО1 2, а в условии должно быть больше 4

Каким образом это можно реализовать? Спасибо.

[artemavd]

Каким образом это можно реализовать?

C помощью БД. Все остальное - геммор.

[fenix-elite]

Я могу тут конечно написать тебе способ, с copy, delete,pos и т.д. Как как сказал artemavd:

C помощью БД. Все остальное - геммор.

[evg_m]

с использованием TstringList и без контроля правильности заполнения Memo1

list:=TstringList.create;
list.delimiter:=' ';
for j:=0 to memo1.count-1 do
begin
  list.clear; 
  list.delimitertext:=memo1.lines[j];
  m:=0;
  for k:=list.count-1 do 2 do
  begin
    if m>=n then list.delete(k)
    else if strtoint(list.strings[k])>=x then mm:=mm+1
    else begin list.clear; break; end;
  end;
  if list.count=1+n then 
    memo2.lines.add(list.delimitertext);
end;

[начинающий1]

evg_m
Спасибо, немного поправив синтаксические ошибки код запускается, но не работает как хотелось бы, так как мне не понятно значение некоторых переменных(им соответственно не присвоены значения), а именно:
n и x

list:=TstringList.create;
   list.delimiter:=' ';
for j:=0 to memo1.Lines.Count-1 do
begin
  list.clear;
  list.delimitedtext:=memo1.lines[j];
  m:=0;
  for k:=list.count-1 to 2 do
  begin
    if m>=n then list.delete(k)
    else if strtoint(list.strings[k])>=x then mm:=mm+1
    else begin list.clear; break; end;
  end;
  if list.Count = 1+n then
    memo2.lines.add(list.delimitedtext);
end;

Если не трудно прокомментируйте эти строчки кода(мне не все понятно)

 
 if m>=n then list.delete(k)
    else if strtoint(list.strings[k])>=x then mm:=mm+1
    else begin list.clear; break; end;
  end;
  if list.Count = 1+n then
    memo2.lines.add(list.delimitedtext);

Спасибо.

[Sibedir]

мне не понятно значение некоторых переменных ... , а именно: n и x

выбрать с каждой строки MEMO1 "n" последних оценок, которые соответсвуют заданной величине оценки "х"

  SL := TStringList.Create;
  SL.Delimiter := ' ';
  for j := 0 to Memo1.Lines.Count-1 do begin
    SL.Clear;
    SL.DelimitedText := Memo1.Lines[j];
    m := 0;
    for k := SL.Count-1 downto 1 do begin
      if m >= n then begin
        SL.Delete (k);
      end
      else begin
        if StrToInt (SL.Strings[k]) >= x then begin
          m := m + 1;
        end
        else begin
          SL.Clear;
          Break;
        end;
      end;
    end;
    if SL.Count = 1+n then
      Memo2.Lines.Add (SL.DelimitedText);
  end;

[начинающий1]

Sibedir
Спасибо, код работает как часы.