Поиск в мемо

[Marsik]

Я ищу в мемо таким способом:

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i=0 to memo1.Lines.Count-1 do
if memo1.Lines.Strings[i]='Марсель' then
showmessage('Найдено')
else
showmessage('типа нету');
end;

и как всегда выходят ошибки:

[Ошибка] Unit1.pas(31): For loop control variable must be simple local variable
[Ошибка] Unit1.pas(31): Incompatible types: 'Boolean' and 'Integer'
[Ошибка] Unit1.pas(35): Incompatible types: 'Boolean' and 'procedure, untyped pointer or untyped parameter'
[Фатальная ошибка] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

смотрел в хелпе, там что то вроде

This error message is given when the control variable of a for statement is not a simple variable (but a component of a record, for instance), or if it is not local to the procedure containing the for statement.

For backward compatibility reasons, it is legal to use a global variable as the control variable - the compiler gives a warning in this case. Note that using a local variable will also generate more efficient code.

..одним словом ничего не понял. С чем связана данная ошибка, и что Мне нужно предпринять чтобы ее исправить?

[Карась]

Первое что бросилось в глаза это

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

[Ошибка] Unit1.pas(31): For loop control variable must be simple local variable

Сообщается что переменая i обьявлена глобально и судя по всему может произойти путаница если её будут использовать одновременно разные циклы или чтото ещё..

[_Alise_]

Попробуй так:

begin
for i:=0 to memo1.Lines.Count-1 do
if pos('Марсель',form1.memo1.Lines.Str ings[i])<>0 then
showmessage('найдено')
else
showmessage('нет');

А что сообщение должно выходить после каждой строчки?

[Marsik]

_Alise_ спасибо дружище ....но все же помоему Я неправильно сформулировал вопрос. Мне ведь нужно вот что: на мемо1.линес.стринГ есть несколько одинаковых записей, и встает вопрос как их вычислсить а затем удалить??? Так сказать убрать дубликаты

[_Alise_]

Я ничего не понимаю. Какое задание вообще?

[Marsik]

есть мемо(на скрине видно). В мемо расположены построчно цифры. И нужно если цифры повторяются то один из них удалить..в общем на скрине все ясно. ...авот как это программно осуществить нет

[mutabor]

Я небольшой спец по эффективным алгоритмам, но сразу вижу два:

1. Записывать все прочтенные строки в массив, перед записью очередного элемента сканировать массив на повтор, если повтор - в массив не пишем а из файла удаляем.

2. Сначала отсортировать строки. Затем создаем одну переменную, в нее читаем строку из файла, затем читаем следующую строку, если она равна той что в переменной, удаляем строку из файла, перед этим записав ее в переменную, если не равна все равно пишем ее в переменную.

[Marsik]

Сообщение от mutabor

сканировать массив на повтор, если повтор - в массив не пишем а из файла удаляем.

А как это осуществить?

[Marsik]

эх....великая весчь Гугль...Так как Моя задача состояла втом, чтобы из мемо удалить дубликаты, то вот код с помощью которого это легко сделать:

procedure TForm1.Button3Click(Sender: TObject);
var
ls: tstringlist;
g: integer;
begin
ls:=tstringlist.Create;
ls.Sorted:= true;
ls.Duplicates:= dupignore;
try
 for g:=0 to memo1.Lines.Count-1 do
 ls.Add(memo1.Lines[g]);
 memo1.Lines.Assign(ls);
 finally
 ls.Free;
 end;
end;

может кому нить пригодится

[Serge_Bliznykov]

я бы сделал так:

var TS : TStringList;
  i : integer;
begin
  TS := TStringList.Create;
  for i:=0 to memo1.Lines.Count-1 do
   if TS.IndexOf(memo1.Lines.Strings[i])<0 then
       TS.Add(memo1.Lines.Strings[i]);
  Memo1.Text := TS.Text;
  FreeAndNil(TS)
end;