Поиск в мемо

[Serge_Bliznykov]

Marsik, извините, мой код ничем не лучше приведённого Вами! (но и не хуже - думаю, по скоростным характеристикам он сопоставим).
Прошу поверить, что когда я его писал (и постил на форум), Вашего сообщения я не видел (не обновил страницу).
Ну зато теперь есть целых два варианта решения :-))

Добавлено. кстати, Ваш код поменяет порядок чисел, а мой - оставит такой, какой есть... :-)

[mutabor]

Говорю сразу, способ не лучший, но зато думать не надо =), если строк не много, то пойдет.

var
mas: array of string;
c: integer;
n: integer;
s: string;
found: boolean;
...
c:=0;
s:='';
n:=Memo1.Lines.Count;
SetLength(mas,n);
for i:=0 to n-1 do
  begin
  s:=Memo1.Lines[i];
  found:=false;
  for j:=0 to c-1 do
   if s = mas[j] then 
    begin
    found:=true;
    Break;
    end;
  if not found then 
    begin
    mas[c]:=s;
    Inc(c);
    end;
  end;
Memo1.Clear;
for i:=0 to c-1 do
  Memo1.Lines.Add(mas[i]);

Упс, пока писал код, уже два способа есть ) Но мой низкоуровневый, так сказать VCL независимый )

[puporev]

for i=0 to memo1.Lines.Count-1 do

Здесь выдает ошибку, потому что нужно for i:=0

[Marsik]

Serge_Bliznykov ну можно и таГ..только Я бы до этого врядли додумался. ВозниГ еще один вопрос с мемо: как работать с каждой строчкой мемо по очереди, тоесть например если первая "123", вторая "456" третья "789" и т.д. И например сначало первую строку сохраняем(или что либо другое) затем вторую, потом третью и т.д. до конца списка???Причем после каждого сохранения(или чего то там другого) нужно по sleep(3000)`ать. что то вроде этого в общем :

memo1.Lines.Strings[0]
sleep(3000);
memo1.Lines.Strings[1]
sleep(3000);
// и т.д.

Количество строк неизвестно.

[Virtson]

Marsik, учите синтаксис, циклы!

вопрос не связан напрямую с TMemo.

[Marsik]

Virtson хорошо, действительно надо бы подучить циклы ......Зато теперь целых три способа, каждый найдет себе по душе Спасибо все кто помоГал