Не могу дописать, Паскаль строки

[Айдар]

вот такая задача из файла прочитать данные:
12345
321
5432
321

надо просматреть файл и удалить дубликаты, башка не варит кто поможет

program baza;
var
  f,f2:text;
  url,url2 : string;
  i : integer;

begin
  assign(f,'baza1.txt');
  reset(f);
  assign(f2,'baza.htm');
  rewrite(f2);
  while not eof(f) do
  begin
    readln(f,url);
    readln (f,url2)
    if url=url2 then delete(url2,1,15);
    writeLn(f2,url);
  end;
  close(f);
  close(f2);
  writeLn('Done');
  readln;
end.

[Serge_Bliznykov]

нет, так не получится.
Самый простой (алгоритмически) способ — это задать в программе ограничение на размер обрабатываемого текстового файла, прочитать текст в массив (ограничение как раз и будет равно размеру массива) и дальше уже искать повторы в массиве.
схематично это будет так:

  Открыть файл 1
  Счётчик строк в массиве := 0;
  пока не конец файла 1 делать:
     прочитать очередную строчку
     поискать её в массиве (цикл от 1 до Счётчик строк в массиве)
     если не нашли такую же:
        Счётчик строк в массиве := Счётчик строк в массиве + 1;
        Massiv[Счётчик строк в массиве] := Строчка;
     (если такая уже в массиве есть - ничего не делаем!)
   завершить цикл чтения файла
 закрыть файл
открыть файл 2 
и записать в него все строчки из массива
закрыть файл 2

p.s. конечно, вот здесь ГОРАЗДО лучше (но и сложнее) использовать динамические структуры, например, списки, коллекции и т.п.

p.p.s. на Дельфи эта задача решается на порядок проще - там уже есть компоненты (TStringList), которые упростят решение задачи и снимут ограничение на размер входного файла.

[psycho-coder]

Удалить дубликаты можно с помощью метода сортировки "Пузырька".

While not EOF(f) do
begin
  readln(f, url);
  While not EOF(f) do
  begin
    readln(f, url2);
    if url = url2 then Delete(url2, 1, 15);
  end;
end;

P.S. Писал на форум, так что могут быть ошибки.

[Айдар]

чето не получается(((

program baza;
var
  f,f2:text;
  url,url2 : string;
  i : integer;

begin
  assign(f,'baza1.txt');
  reset(f);
  assign(f2,'pass.htm');
  rewrite(f2);
  While not EOF(f) do
  begin
  readln(f, url);
    readln(f, url2);
    if url = url2 then Delete(url2, 1, 15);
     writeLn(f2,url,'<br>');
  end;
  close(f);
  close(f2);
  writeLn('Done');
  readln;
end.

[psycho-coder]

А куда вложенный цикл дели?

[Айдар]

всеравно не получается(((